15电气 齐振昊 实验名称：在VB中对于随机数ab的比较大小

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






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

实验步骤：

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

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

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

在窗体中双击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

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

2016 物理与电子信息学院15电气1班齐振昊15050341022