vb6.0随机数据问题
在command1中产生的10个随机数据a(1)---a(10)到text1中,如何在按command2时在text2中大到小排列顺序。
看看我的图,应该修改哪里啊
答案:两个过程用同一个变量,应该定义公用变量
如下面代码:
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 10
k = i
a(i) = Val(Int(40 * Rnd + 60))
Text1.Text = a(i) & "," & Text1.Text
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 10
For k = i + 1 To 10
If a(i) > a(k) Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next k
Text2.Text = a(i) & "," & Text2.Text
Next i
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
上一个:vb设计一个5行5列的窗体右上角全是1左下角全是0
下一个:4*3矩阵vb程序