Question

vb 里怎样编写0-9，随机产生其中的一个数。

Answer 1

代码及注释如下：

Private Sub Command1_Click()'点击命令按钮执行程序
Randomize'初始化随机数发生器
x = Round((Rnd() * 9), 0)'先利用随机数得到0-1区间的小数，然后乘以9，在对这个数进行四舍五入后，赋值给x
Print x'窗体打印x
End Sub

Answer 2

Dim a As Integer
Randomize()
a = CInt(Rnd * 9)  
Msgbox a

Randomize() 是随机初始化，防止每次生成的随机数一样。

Rnd 是生成一个 0～1 的随机数。

CInt() 是将小数变为整数。

Answer 3

Sub s()
    text1.Text = Int(Rnd() * 10)
End Sub

Answer 4

[这里是dim什么的。。。]



randomize
a:=round(ran(10))
print a

Answer 5

Dim a As Long
a = Rnd * 9