实验名称: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电气郄慧敏15050341023