VB中RND函数在此程序中什么作用?

来源:百度知道 编辑:UC知道 时间:2024/06/02 12:52:00
我在此程序中,不知道RND函数在这里起什么作用?这是一个简单的加法程序.此中RND函数是否可以不要?
Private Sub command1_click()
text3.Text = ""
Randomize
text1.Text = Val(Int(Rnd * 101))
text2.Text = Val(Int(Rnd * 101))
command2.SetFocus
text3.Text = Val(InputBox("请输入计算的结果:"))
End Sub

Private Sub command2_click()
If Val(text3.Text) = Val(text1.Text) + Val(text2.Text) Then
label4.Caption = "很好,答对了!"
Else
label4.Caption = "做错了,再来一次吧!"
End If
End Sub

Private Sub command3_click()
End
End Sub

这个应该是小学生用的100以内的加法运算,RND的作用是产生一个随机数,以便每一次text1和text2的值都不相同,在这个程序是必须要,并且上程序的核心,如果不要的话,每次点击按钮,text1和text2都会是101,程序就没意义了。

Rnd 得到0到1之间的随机数