实验名称:VB中数字的交换
-
启动VB软件
-
在工具箱窗口找到command button的图标,单击图标并在窗体的适当位置创建,在属性窗口中找到caption并把其后面改为“交换”。
-
在窗体中双击“交换”,并在弹出的对话框中输入
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
-
在工具栏中单击“启动”即可出现效果
2016物理与电子信息学院 15电气1班齐振昊15050341022