vb 如何使产生的十个随机数全部显示出来

Question

如何产生随机数可以做出来 但是怎么使产生的十个随机数全部显示在label框上 谢谢

Answer 1

把这10个数每个数之间插入一个分隔符（比如空格、逗号、回车换行等等）再放入label不就行了吗？比如
label1.caption=n1 & " " & n2 & " " & n3 ...... & " " & n10
如果你的10个随机数是放在数组里面的就更简单了，比如数组a()：
label1.caption=join(a," ")

Answer 2

vb生成十个随机数字代码如下：

Private Sub Command1_Click()
    Dim k As Long, i As Long
    Randomize ' 对随机数生成器做初始化的动作。
    For i = 0 To 9 '循环10次生成并输出
        k = Int(Rnd * 1000)
        Print k
    Next
End Sub
'另外提供一个自定义函数，可以定义生成的随机数字范围
'自定义函数，a是下界（最小数），b是上界（最大数）
Private Function Rndz(a As Long, b As Long)
    Randomize
    Rndz = Int((a - b + 1) * Rnd() + b)
End Function

Answer 3

在窗体上放一个label，Caption设为空，然后复制下面的代码就OK了。
Private Sub Form_Load()
Dim a(9)
Randomize (Timer)
For i = 0 To 9
a(i) = Rnd * 10000
Label1.Caption = Label1.Caption & a(i) & Chr(13) & Chr(10)
Next
End Sub本回答被提问者和网友采纳

Answer 4

在窗体上放1个label，粘贴下面代码试试。
Private Sub Form_Load()
Randomize
Dim r(10) As Integer, i As Integer
Label1.Caption = ""
For i = 1 To 10
Label1.Caption = Label1.Caption & Int(Rnd() * 100) & ", "
Next i
End Sub