1.我从范本抓程式码 书只有一个乱数 我把他改成六个乱数 但是会发生重复的数字 我想设计大乐透产生器 Label1.Text = "大乐透随机选号 " Dim generator As New Random Dim randomValueA, randomValueB, randomValueC, randomValueD, randomValueE, randomValueF As Integer randomValueA = generator.Next(1, 50) randomValueB = generator.Next(1, 50) randomValueC = generator.Next(1, 50) randomValueD = generator.Next(1, 50) randomValueE = generator.Next(1, 50) randomValueF = generator.Next(1, 50) Label1.Text &= " " & (randomValueA) & "、" & (randomValueB) & "、" & (randomValueC) & "、" & (randomValueD) & "、" & (randomValueE) & "、" & (randomValueF) 2.我也是从范本抓下来的 五格数字自动找出最大、最小值 我希望五格里面 只要有一格空白就显示 label1.text = "不可空白" num(0) = Val(textbox1.text) num(1) = Val(textbox2.text) num(2) = Val(textbox3.text) num(3) = Val(textbox4.text) num(4) = Val(textbox5.text) Dim i As Integer Dim min As Integer = num(0) Dim max As Integer = 0 For i = 0 To 4 If num(i) > max Then max = num(i) ElseIf num(i) < min Then min = num(i) End If Next If textbox1.text <> "" Or textbox2.text <> "" Or textbox3.text <> "" Or textbox4.text <> "" Or textbox5.text <> "" Then Label1.Visible = True label1.text = "最大值=" & max & " 最小值=" & min Else Label1.Visible = True label1.text = "不可空白" End If textbox1.text = "" textbox2.text = "" textbox3.text = "" textbox4.text = "" textbox5.text = "" 这是期中作业 其实老师还没教那麽深 既然作业都出了 我想加减做 虽然老师说小游戏做不出来没关系.... 而GOOGLE找答案，对关键字怎麽换都找不到，或是找到看不懂的 同学也没有可以问的 所以想麻烦各位学长学姊指导 谢谢 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 58.99.28.129