Question

vb中关于Rnd函数的问题，请帮忙写代码

在窗体上添加四个标签和一个文本框，属性设置如下表所示，用户每单击一次窗体，Label1和Label3上就随即显示两个[1,100]之间的随机数。即每单击一次窗体就出一道1-100之间的加法运算题。

Label1 caption=""
Label2 caption="+"
Label3 caption=""
Label4 caption="="
Text1 Text=""
提示：为了让每次程序运行时产生不同的题目，可在产生随机数之前加入Randomize语句。

Answer 1

Private Sub Form_Click()
Label1.Caption=CStr(Int(100 * Rnd + 1))
Label2.Caption=CStr(Int(100 * Rnd + 1)）

End Sub

Answer 2

Randomize
label1.caption=str(Int(100 * Rnd + 1))
label2.caption=str(Int(100 * Rnd + 1)）

Answer 3

Option Explicit

Private Sub Form_click()
Randomize
Label1 = Int(Rnd * 100 + 1)
Label2 = "+"
Label3 = Int(Rnd * 100 + 1)
Label4 = "="
Text1 = ""
End Sub

Private Sub Text1_KeyPress(K%)
If K = 13 Then If CInt(Label1) + CInt(Label3) = CInt(Text1) Then Form_click Else Text1 = ""
End Sub