实验名称:在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