vb随机数vb如何作出随机数？

VB随机数

在调用Rnd前面加个Randomize 例如 Private Sub Command1_Click() Randomize x = Val(InputBox("输入生成随机数的位数")) For i = 1 To x str1 = str1 & Int(Rnd * 10) Next i Print str1 End Sub

VB随机数代码

Dim a(5) As IntegerPrivate Sub Command1_Click() '生成不重复的随机数aa:Text1.Text = ""For i = 1 To 5 Randomize a(i) = Int(Rnd * 15) + 1 Text1.Text = Text1.Text & " " & a(i)Next iFor i = 1 To 5 For j = i To 4 If a(i) = a(j + 1) Then GoTo aa End If Next jNext iEnd SubPrivate Sub Command2_Click() '排列随机数Dim temp As IntegerText1.Text = ""For i = 1 To 5 For j = i To 4 If a(i) > a(j + 1) Then temp = a(j + 1) a(j + 1) = a(i) a(i) = temp End If Next j Text1.Text = Text1.Text & " " & a(i)Next iEnd Sub

vb如何作出随机数？

Private Sub Command1_Click() Randomize Dim sum As Integer, a As Integer, b As Integer, c As Integer Do While sum <> 100 a = Rnd * 100 b = Rnd * 100 c = Rnd * 100 sum = a + b + c Loop Text1.Text = a Text2.Text = b Text3.Text = c End Sub