UC知道一道VB题~~谢谢~~~
来源：百度知道 编辑：UC知道 时间：2024/06/25 23:27:04
单击第一个按钮，生成20个【1，50】之间的随机整数，显示于地图个文本框中，单击第二个按钮，将这20个随机整数按从大到校排序，并将排序结果显示于另一个文本框中。
Dim A(20) As Integer, I As Integer, S As String
Private Sub Command1_Click()
Randomize
Text1.Text = ""
S = ""
For I = 1 To 20
A(I) = Int(Rnd * 50 + 1)
S = S + Str(A(I))
Next
Text1.Text = S
End Sub
Private Sub Command2_Click()
Dim J As Integer, K As Integer
S = ""
For I = 1 To 19
For J = I + 1 To 20
If A(I) < A(J) Then
K = A(I)
A(I) = A(J)
A(J) = K
End If
Next
Next
For I = 1 To 20
S = S + Str(A(I))
Next
Text2.Text = S
End Sub
已经运行过