Question

VB编程实现：运行时，单击第一个按钮，生成20个（1,50）区间的随机整数，显示于第一个文本框中，

VB编程实现：运行时，单击第一个按钮，生成20个（1,50）区间的随机整数，显示于第一个文本框中，单击第二个按钮，将这20个随机整数按从大到小排序，并将排序结果显示于另一个文本框中。

Answer 1

Dim a(20) As Integer

Private Sub Command1_Click()
  Randomize
  For i = 1 To 20
    a(i) = Int(Rnd * 50) + 1
    Text1 = Text1 & a(i) & " "
    If i Mod 10 = 0 Then Text1 = Text1 & vbCrLf
  Next i
End Sub

Private Sub Command2_Click()
  For i = 1 To 19
    For j = 1 To 20 - i
      If a(j) < a(j + 1) Then
        t = a(j): a(j) = a(j + 1): a(j + 1) = t
      End If
    Next j
  Next i
  For i = 1 To 20
    Text2 = Text2 & a(i) & " "
    If i Mod 10 = 0 Then Text2 = Text2 & vbCrLf
  Next i
End Sub

Private Sub Form_Load()
  Text1 = ""
  Text2 = ""
  
End Sub