求VB简单随机数字生成器代码？

Question

最近在学习VB编程，想做个VB小程序。点击生成6位数数字，在文本框生成随机6位数字。点击生成8位数，在文本框生成8位数数字，还有一个清除按扭。请大家指点一下，能加上注解就最好啦！谢谢大家！

Answer 1

Private Sub Form_Load() '初始化随机数发生器
Randomize
End Sub

Private Sub Command1_Click() '生成6位随机数
Text1.Text = Int(Rnd * 900000) + 100000
End Sub

Private Sub Command2_Click() '生成8位随机数
Text1.Text = Int(Rnd * 90000000) + 10000000
End Sub

Private Sub Command3_Click() '清除
Text1.Text = ""
End Sub

Answer 2

dim i as long
Randomize '初始化随机函数
i=rnd*1000000 '生成6位数
text1.text=i

dim i as long
Randomize
i=rnd*100000000 '生成八位数
text1.text=i

text1.text="" '清除

追问

为什么有时候会生成5位数呢？

追答

dim i as long
Randomize '初始化随机函数
i=rnd*1000000 '生成6位数
do while i<100000
Randomize '初始化随机函数
i=rnd*1000000 '生成6位数
loop
text1.text=i

dim i as long
Randomize
i=rnd*100000000 '生成八位数

do while i<10000000
Randomize '初始化随机函数
i=rnd*100000000 '生成八位数loop
text1.text=i

Answer 3

Private Sub Command1_Click() '生成6位
Text1.Text = RndTest(6)
End Sub

Private Sub Command2_Click() '生成8位
Text1.Text = RndTest(8)
End Sub

Private Sub Command3_Click() '清除
Text1.Text = ""
End Sub

Private Function RndTest(ByVal LngN As Long) As String '自定义函数
Randomize '初始化随机数生成器
Dim i As Long, StrTmp As String
For i = 1 To LngN
If i = 1 Then
StrTmp = Int(Rnd * (9 - 1 + 1) + 1) '随机数的第一位不为0 就是随机一位1-9之间的数~int(rnd*(上限-下限+1)+下限)
'
Else
StrTmp = StrTmp & Int(Rnd * (9 - 0 + 1) + 0) '除第一位外的数可以为0~0-9

End If
Next
RndTest = StrTmp
End Function

Answer 4

dim i as long
Randomize '初始化随机函数
for i =1 to 6
i=i &rnd ' 循环生成随机数字 共6次 生成6位数
next
text1.text=i

dim i as string
Randomize
for i= 1 to 8
i=i & rnd '供循环八次 生成八位数
next
text1.text=i

text1.text="" '清除

Answer 5

dim i as long
Randomize '初始化随机函数
i=rnd*1000000 '生成6位数
text1.text=INT(i)

dim i as long
Randomize
i=rnd*100000000 '生成八位数
text1.text=INT(i)

text1.text="" '清除