vb 1到15生成随机排序后输出

Question

vb 1到15生成随机排序后输出

Answer 1

随机生成2个数字，按从小到大输出。

望采纳。。。。。

Answer 2

Private Sub Form_Click()
Dim i As Integer, j As Integer, a(14) As Integer
Randomize
For i = 1 To 15
    Do
        j = Int(Rnd * 15)
    Loop While a(j) <> 0
    a(j) = i
Next
For i = 0 To 14
    Print a(i);
Next
End Sub

本回答被提问者采纳

Answer 3

Private Sub command1_click()

  Dim a(14) As Integer

  For i = 0 To 14

    a(i) = i + 1

  Next i

  Randomize

  Print "随机排序后的1~15："

  For i = 15 To 2 Step -1

    x = Int(Rnd * i)

    t = a(x): a(x) = a(i - 1): a(i - 1) = t

    Print a(i - 1);

  Next i

  Print a(0)

End Sub