VB中如何设置Text2.Text = 任何数字

来源:百度知道 编辑:UC知道 时间:2024/06/16 01:15:09
Private Sub Form_Load()
SkinH_Attach
Text1.Text = "0"
Text2.Text = "5"
WebBrowser1.navigate ("http://xxx.xxx.xx")
End Sub

如何设置Text2.Text = "5" 为任何数字呢?而不是5

Randomize
Text2.Text = 100000*Rnd()

随机数RAD()

RAD生成的随机数小于1

在使用随机数之前,使用Randomize进行初始化

为了语言严谨,使用STR()函数,进行数值与字符转换
Randomize
Text2.Text =STR(RAD())