15电气 齐振昊 实验名称：VB中数字的交换

实验名称：VB中数字的交换

1. 启动VB软件

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

3. 在窗体中双击“交换”，并在弹出的对话框中输入

   Cls

   Dim b As Integer, c As Integer

   Dim d As Integer

   c = Int(Rnd() * 1000)

   b = Int(Rnd() * 1000)

   Print "b" & b

   Print "c" & c

   d = c

   c = b

   b = d

   Print "b" & b

   Print "c" & c

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

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