vb随机生成十个正整数
答案:2 悬赏:10
解决时间 2021-02-20 01:21
- 提问者网友：失败的占卜者
- 2021-02-19 04:35
vb随机生成十个正整数
最佳答案
- 二级知识专家网友：糜废丧逼
- 2021-02-19 04:46
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
End Sub
Dim a(10) As Integer
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
End Sub
全部回答
- 1楼网友：心与口不同
- 2021-02-19 05:50
private sub command1_click() dim a as long, i as integer for i = 1 to 8 a = int((65535 - 0 + 1) * rnd + 0) text1.text = text1.text & a & " " next i end sub
private sub command2_click() unload form1 end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| • 手机登qq时，显示手机磁盘不足，清理后重新登 |
| • 刺客的套装怎么选啊？ |