vb语言如何产生随机数组并使数组在text中显示

text可以多行显示

2024-11-26 16:31:12

推荐回答（2个）

回答1：

产生100个1000以内随机数并在Text中显示
Private Sub Form_Load()
Dim a(100) As Integer
Randomize Timer
For k = 1 To 100
a(k) = Int(Rnd() * 1000)
Text1 = Text1 & Str(a(k))
Next k
End Sub

回答2：

Option Explicit

Private Sub Command1_Click()
Dim a(3) As Single
Dim i As Integer
Randomize
For i = 0 To 3
a(i) = Rnd()
Text1.Text = Text1.Text & a(i) & vbCrlf
Next
End Sub

最新问答

计程车是怎么计费的？

每天早上女朋友为什么要我亲她下额头才乖乖起床？不亲的话就一直赖在我怀里不起床？

女儿今年高二突然想高考厦门大学钢琴专业，想找一个厦门大学的老师学钢琴，哪个教得比较好呢？

一条长4米的圆柱形木条,锯成5 断用了40分钟。若锯成8段,则需要多少分钟？

家里洗手间有很多各种各样的虫子有类似（蚰蜒，蠼螋）的还有类似西瓜虫的，怎么去除？

大连市甘井子区金三角附近有没有成人韩语速成班？

无锡商业职业学院与无锡工艺职业技术学院哪个更好点？就业和宿舍情况怎么样？

动力火车的所有资料

如何用三端稳压器制作稳压电源

现在上高三了，高一高二没学。我能补上去吗？