Question

vb6.0 生成随机数怎么求和

定义窗口，单击窗口实现：在屏幕上随机显示2个数据，在标签lable2上显示它们的和。

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'RND
Dim a, b As Integer
a = Convert.ToInt32(Rnd() * 10000) Mod 100
b = Convert.ToInt32(Rnd() * 10000) Mod 100
Label1.Text = a.ToString()
Label2.Text = b.ToString()
Label3.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a, b, c As Integer
a = Convert.ToInt32(Label1.Text)
b = Convert.ToInt32(Label2.Text)
c = a + b
Label3.Text = c.ToString()
End Sub

Answer 2

Private Sub Form_Click()
Label1.AutoSize = True
Label2.AutoSize = True
Randomize
a = 10 * Rnd
b = 100 * Rnd
Label1.Caption = "a + b ="
Label2.Caption = a + b
End Sub