vb里，怎么设计出在标签上显示6个随机两位数。。以33-25-14-63-32-64的形式。。

Question

如题所述

Answer 1

产生随机数的函数是 Rnd()，它产生的是0~1之间的随机数
要产生随机的两位数可以用表达式 s = Int( Rnd()*89+10 )的形式，用Rnd()*89+10产生的是10到99之间的浮点随机数，Int函数把浮点随机数转换成不大于它的整型随机数，也就得到10~99的随机两位数了
如果要显示的话可以用Str()函数实现数字到字符串的转换，写成Str( Int( Rnd()*89+10 ) )就可以了，如果想要在现实阶段不断变化这六个随机数的话可以用Timer控件，可以实现每隔多长时间刷新一次的效果

Answer 2

代码如下
Private Sub form1_load()
randomize
dim a as integer,b as integer,c as integer,d as integer,e as integer
a=int(90*rnd)+10
b=int(90*rnd)+10
c=int(90*rnd)+10
d=int(90*rnd)+10
e=int(90*rnd)+10
print str(a) + "-" +str(b)+"-"+str(c)+"-"+str(d)+"-"+str(e)+"-"
end sub
这样窗体就会显示你要的数字了

楼上的，人家要的是两位数。。。本回答被提问者采纳

Answer 3

Private Sub Command1_Click()
For i = 1 To 6
Print Int(Rnd * 99 + 1) & "-";
Next
End Sub