实验名称：在VB中对于随机数ab的比较大小

实验步骤：

1. 在桌面中双击VB6.0打开程序

2. 在工具箱窗口找到command的图标，单击图标并在窗体中适当位置创建并在属性窗口中找到caption并把其后面改为“排序”

3. 在工具箱窗口找到textbox的图标，单击图标并在窗体中适当位置创建。

4. 在窗体中双击command图标，并在弹出的对话框中输入代码。

   代码如下：

   Dim a As Integer

   Dim b As Integer

   a = Int(Rnd * 1000)

   b = Int(Rnd * 1000)

   If a < b Then

    Me.Text1.Text = "a<b"

   Else

   If a = b Then

    Me.Text1.Text = "a=b"

   Else

   Me.Text1.Text = "a>b"

   End If

   End If

5. 在工具栏中单击“启动”并单击“交换”即可出现效果。