Question

用VB语言实现一个随机数相加的小程序

每点击一次button按纽,textbox3.text就显示一个0--6的随机数,然后将第奇数个随机数赋值给Textbox1.text,并逐步求和,而textbox2.text则是第偶数个的.
我急着用,望各位大哥大姐帮帮忙,我回追加分的,谢谢啦啊!!!拜托拜托!!!

Answer 1

Private Sub Command1_Click()
'每点击一次button按纽,textbox3.text就显示一个0--6的随机数,
'然后将第奇数个随机数赋值给Textbox1.text,并逐步求和,而textbox2.text则是第偶数个的.
Randomize
Text3.Text = Int(Rnd(1) * 6)
Text3.Tag = Val(Text3.Tag) + 1 '记录单击次数
If Val(Text3.Tag) Mod 2 = 0 Then
'偶数
Text2.Text = Val(Text2.Text) + Val(Text3.Text)
Else
'奇数
Text1.Text = Val(Text1.Text) + Val(Text3.Text)
End If
End Sub