VB编写产生随机整数的函数,产生30个1~100之间的随机数
答案:2 悬赏:10 手机版
解决时间 2021-03-05 03:26
- 提问者网友：十年饮冰
- 2021-03-04 18:06
VB编写产生随机整数的函数,产生30个1~100之间的随机数
最佳答案
- 五星知识达人网友：低音帝王
- 2021-03-04 19:38
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a(30) As Integer
For i = 1 To 30
a(i) = 1 + Int(Rnd * 100)
Print a(i)
Next
End Sub
Cls
Dim i As Integer
Dim a(30) As Integer
For i = 1 To 30
a(i) = 1 + Int(Rnd * 100)
Print a(i)
Next
End Sub
全部回答
- 1楼网友：上分大魔王
- 2021-03-04 20:39
int(100*rnd())，循环 30 次即可。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯