发布网友 发布时间:2024-10-23 22:34
共2个回答
热心网友 时间:2024-10-24 08:44
用 Rnd()
Private Sub CmdShow_Click()
temp = Rnd() * 1000 '1000表示所得随机数小于1000
LabTemp.Caption = Int(Temp) 'int进行取整
End Sub
热心网友 时间:2024-10-24 08:45
randomize
inum
=
int((900)
*
rnd
+
100)