编程实现两个数值的交换

 时间:2026-02-14 05:15:38

1、首先启动vb6,执行文件-新建工程命令,在弹出的新建工程对话框中选择标准exe文件。

编程实现两个数值的交换

2、进入窗体,选择form1拖动周边调节窗体的大小,直至自己认为合适为止。

编程实现两个数值的交换

3、选择form1,在属性对话框中修改caption属性值为“交换两个变量的值”,修改boderstyle属性值为4-fixed。

编程实现两个数值的交换

4、在窗体上创建一个fram1对象,修改其caption属性值为无,调节其大小并使它填充整个窗体。

编程实现两个数值的交换

5、接着在fram上创建两个按钮控件,调整他们的位置,修改command1的caption属性值为“方法一”,修改command2的caption属性值为“方法二”。

编程实现两个数值的交换

6、在frame1中创建一个标签对象,修改caption属性值为“交换两个变量的值”,设置font属性,字体为王羲之书法字体,字号为二号。

编程实现两个数值的交换

7、双击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, "交换结果"

编程实现两个数值的交换

8、接着双击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

编程实现两个数值的交换

9、点击工具栏中的启动按钮进行程序代码的编译,根据错误提示进行修改程序,直至无误并且实现预先功能为止。

编程实现两个数值的交换

编程实现两个数值的交换

10、程序检测完毕后,执行文件-保存工程命令,在弹出对话框中点击保存,先保存窗体,再保存工程。

编程实现两个数值的交换

11、接着执行文件-生成工程.exe命令,在弹出对话框中输入名称为“交换两个变量的值”,保存位置为桌面,这样就生成了可执行文件。

编程实现两个数值的交换

  • 0基础!制作一个对话框【vbs小程序】
  • SQL如何查询出男生和女生人数
  • 如何给数据库的表添加数据?
  • 数据库怎么删除表中的一行数据
  • SQL语句怎么创建数据表
  • 热门搜索
    甩干机什么牌子好 概念的意思 正是河豚欲上时的欲是什么意思 买车险注意什么 伊始是什么意思 软环境是什么意思 因地制宜是什么意思 心灰意冷的意思 狐假虎威是什么意思 自动麻将机什么牌子好