编程实现两个数值的交换
在我们学习数学的过程中，经常会用到交换两个变量的数值问题，对于这个问题我们如何使用编程来实现呢？下面我将使用vb6编程来解决这一个数学问题，同时把制作的步骤和截图分享给大家，希望对大家有所帮助。
操作方法
- 01
首先启动vb6，执行文件-新建工程命令，在弹出的新建工程对话框中选择标准exe文件。
- 02
进入窗体，选择form1拖动周边调节窗体的大小，直至自己认为合适为止。
- 03
选择form1，在属性对话框中修改caption属性值为“交换两个变量的值”，修改boderstyle属性值为4-fixed。
- 04
在窗体上创建一个fram1对象，修改其caption属性值为无，调节其大小并使它填充整个窗体。
- 05
接着在fram上创建两个按钮控件，调整他们的位置，修改command1的caption属性值为“方法一”，修改command2的caption属性值为“方法二”。
- 06
在frame1中创建一个标签对象，修改caption属性值为“交换两个变量的值”，设置font属性，字体为王羲之书法字体，字号为二号。
- 07
双击command1进入代码区域，在代码区域中对象选择command1，过程选择click，然后输入代码为： Dim a As Integer, b As Integer, c As Integer a = Val(InputBox("输入a")) b = Val(InputBox("输入b")) Me.Print "交换前：a= "; a, "b="; b c = a a = b b = c MsgBox "交换后a=" & a & "b=" & b, vbOKOnly, "交换结果"
- 08
接着双击command2，进入代码区域，输入代码为： Dim X, Y As Integer X = Val(InputBox("请输入x的值!")) Y = Val(InputBox("请输入y的值！")) X = X + Y Y = X - Y X = X - Y Print X, Y
- 09
点击工具栏中的启动按钮进行程序代码的编译，根据错误提示进行修改程序，直至无误并且实现预先功能为止。
- 10
程序检测完毕后，执行文件-保存工程命令，在弹出对话框中点击保存，先保存窗体，再保存工程。
- 11
接着执行文件-生成工程.exe命令，在弹出对话框中输入名称为“交换两个变量的值”，保存位置为桌面，这样就生成了可执行文件。