智途科技是周末休吗:一个VB问题

来源:百度文库 编辑:高考问答 时间:2024/07/08 16:28:17
我想设计一个程序,由一个文本框和一个按钮组成,只要按下按钮,文本框里的数就会随机加上一个1-6之间的数,请问我应该怎么编写代码?

Private Sub Command1_Click()
Text1.Text=Val(Text1.Text)+Int(Rnd()*6)+1
End Sub

随机数比较简单用 rnd() 函数可以产生一个随机数

private sub command_click()

text1 =text1.text + int(rnd(6))

end sub

Randomize
Text1.Text = Val(Text1.Text)+Rnd * 5 + 1