vb中生成10个随机数并显示在屏幕上

Question

如题所述

Answer 1

将以下代码输入事件中即可 ：
Randomize '防止每次生出随机数一样
for i=1 to 10 '生成10个
Print Int(Rnd * 99) + 1 'rnd()生成[1，100]之间的随机数，int（）是取整
next

Answer 2

Private Sub Command1_Click()
Randomize
Dim x As Integer, i As Integer
For i = 1 To 10
x = Int(Rnd * 100 + 1)'在这里更改产生的数的范围
Print x
Next
End Sub