vb 随机产生50个30到150之间的整数代码
答案:2 悬赏:30
解决时间 2021-01-03 21:15
- 提问者网友：焚苦与心
- 2021-01-03 17:08
vb 随机产生50个30到150之间的整数代码
最佳答案
- 二级知识专家网友：像个废品
- 2021-01-03 18:18
新建一个工程，在窗体上拖入 一个按钮控件与文本框的控件。将文本框的MultiLine设置为True。
然后在代码区（删除其它所有代码后），粘贴以下代码：
Option Explicit
Private Sub Command1_Click()
Dim I As Long
Text1.Text = ""
Randomize
For I = 1 To 50
Text1.Text = Text1.Text & Int(30 + Rnd() * 120) & " "
Next I
End Sub
然后在代码区（删除其它所有代码后），粘贴以下代码：
Option Explicit
Private Sub Command1_Click()
Dim I As Long
Text1.Text = ""
Randomize
For I = 1 To 50
Text1.Text = Text1.Text & Int(30 + Rnd() * 120) & " "
Next I
End Sub
全部回答
- 1楼网友：轮獄道
- 2021-01-03 18:24
dim arr(50) as int16
dim i as int16
Dim r As New Random
for i=0 to 49
arr(i) = r.Next(30,150)
next
dim i as int16
Dim r As New Random
for i=0 to 49
arr(i) = r.Next(30,150)
next
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯