private sub command1_click()
dim i as integer
i=int(rnd*10)
print i
end sub
private sub command2_click()
dim i as integer
i=int(rnd*89+10)
print i
end sub
private sub command1_click()
dim i as integer
i=int(rnd*899+100)
print i
end sub
上面的程序可实现,用三个按钮分别能产生一位数、二位数或三位数的随机整数。
有什么问题请留言。