15电气郄慧敏vb作业4VB中数字的交换

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