怎样用vb6生成一个整数随机数

Question

怎样用vb6生成一个整数随机数,要步骤，谢了！

Answer 1

生成一个随机的两位数，代码： Private Sub Command1_Click()
Dim a As Integer
a = Int(Rnd * 90) + 10
Print a
End Sub rnd ，是随机函数，范围： [0,1) ，int是取整的函数。

Answer 2

100以内的随机数Dim i as IntegerRandomizei= Rnd*100本回答被网友采纳

Answer 3

Private Sub Command1_Click()
For i = 1 To 10
Text1(i) = Int(Rnd() * 100)
Next
End Sub

Private Sub Command2_Click()
For i = 1 To 10
If Val(Me.Text1(i).Text) Mod 2 = 1 Then
Me.Text1(i).ForeColor = vbRed

Else
Me.Text1(i).ForeColor = vbBlack
End If
Next
End Sub

Private Sub Command3_Click()
For i = 1 To 10
If Val(Me.Text1(i).Text) Mod 2 = 1 Then
Me.Text1(i).FontItalic = True
Me.Text1(i).FontBold = True
Me.Text1(i).ForeColor = vbRed
Else

Me.Text1(i).FontItalic = False
Me.Text1(i).FontBold = False
Me.Text1(i).ForeColor = vbBlack
End If

Next
End Sub

Answer 4

取之间的整数i=int(rnd*100)

Answer 5

a=val(10000*rnd)