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