15电气 齐振昊 实验名称：在VB中三个数的排序



实验名称：在VB中三个数的排序

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

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

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

   代码如下：

   Dim a As Integer

   Dim b As Integer

   Dim c As Integer

   Dim swap AsInteger

   a = Int(Rnd *1000)

   b = Int(Rnd *1000)

    

   c = Int(Rnd *1000)

    

   If a < b Then

   swap = a

   a = b

   b = swap

   End If

    

   If a < c Then

   swap = a

   a = c

   c = swap

   End If

    

   If b < c Then

   swap = b

   b = c

   c = swap

   End If

    

   Print a& "," & b & "," & c

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

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