[ASP ] ASP.NET 新手發問 亂數不重複 值不可空白
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
推
04/17 14:09, , 1F
04/17 14:09, 1F
推
04/18 20:33, , 2F
04/18 20:33, 2F