创建两个随机树在1到100之间，然后按大小顺序输出在文本框上

 Private Sub Command1_Click()
   Dim rand(2) As Integer
   Dim i As Integer
   For i = 0 To 1
     rand(i) = Int(100 * Rnd) + 1
   Next
   If rand(0) > rand(1) Then
     Text1.Text = rand(0) & "，" & rand(1)
   Else
     Text1.Text = rand(1) & "，" & rand(0)
   End If
  
End Sub

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。