VB随机数代码

Question

求一段代码。。有一个窗体Form1， 一个文本框Text1。两个按钮Command1（随机），Command2（排序）。
要求。
点Command1，在Text1里随机输出5个数，随机范围.1到15。，不能重复。例如。
输出" 7 9 1 5 6"
然后点Command2 对TEXT1输出的数 进行 从小到大排序。
即“1 5 6 7 9”
随机出的5个数不能重复。随机范围是1到15的数

Answer 1

Dim a(5) As IntegerPrivate Sub Command1_Click() '生成不重复的随机数aa:Text1.Text = ""For i = 1 To 5 Randomize a(i) = Int(Rnd * 15) + 1 Text1.Text = Text1.Text & " " & a(i)Next iFor i = 1 To 5 For j = i To 4 If a(i) = a(j + 1) Then GoTo aa End If Next jNext iEnd SubPrivate Sub Command2_Click() '排列随机数Dim temp As IntegerText1.Text = ""For i = 1 To 5 For j = i To 4 If a(i) > a(j + 1) Then temp = a(j + 1) a(j + 1) = a(i) a(i) = temp End If Next j Text1.Text = Text1.Text & " " & a(i)Next iEnd Sub