VB中随机数ab的比较大小

1.  

   打开vb

2. 在左侧工具箱中找到command的图标，在窗体中适当位置创建图标，并在窗体command图标中修改为“排序”。

3. 在左侧工具箱找到textbox的图标，在窗体中恰当位置创建图标。

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

5. Cls

6. me.font.size=50

7.  

   Dim a As Integer
8. Dim b As Integer
9. a = Int(Rnd * 1000)
10. b = Int(Rnd * 1000)
11. If a < b Then
12. Me.Text1.Text = "a<b"
13. Else
14. If a = b Then
15. Me.Text1.Text = "a=b"
16. Else
17. Me.Text1.Text = "a>b"
18. End If
19. End If
20. 在单机“运行”按钮，即可进行进行排序.