当前位置: 源码素材网 » VB源码 » 控件组件 » 详情页

VB实现Inputbox数据交换功能

VB6.0实现Inputbox数据交换功能,两种方法演示了借用中间变量的表达式运算,为了使用户操作方便,把处理过程写入了按钮子过程中,用户单击按钮,激活运算过程:
  Private Sub Command1_Click()
  Dim x As Integer, y As Integer, z As Integer '声明三个整形变量
  x = Val(InputBox("请输入变量x的值:", "x 值")) '用户随意输入两个变量的值
  y = Val(InputBox("请输入变量y的值:", "y 值"))
  Print "用户输入的x值为:"; x; Spc(3); "y 值为:"; y
  '为作比较,在窗体上输出原值
  z = x '借用中间变量实现数据交换
  x = y
  y = z
  Print " 交换后的x值为:"; x; Spc(3); "y 值为:"; y
  '将交换后的结果在窗体上输出
  End Sub
  Private Sub Command2_Click()
  Dim a As Integer, b As Integer '声明二个整形变量
  a = Val(InputBox("请输入变量x的值:", "x 值")) '用户随意输入两个变量的值
  b = Val(InputBox("请输入变量y的值:", "y 值"))
  Label3.Caption = "用户输入的两个值为:" & a & "和" & b
  a = a - b '用表式的运算,同样实现数据的交换
  b = a + b
  a = b - a
  Label4.Caption = "交换后两个值为:" & a & "和" & b
  '将交换后的结果在标签上输出
  End Sub

  • 相关标签:数据交换
  • 调试环境:VB6.0
  • 文件大小:2.25K
  • 资源评级:
  • 更新时间:2019-08-14
  • 相关链接:暂无演示

源码测试截图:

VB实现Inputbox数据交换功能运行截图

相似源码:数据交换 VB源码下载:VB实现Inputbox数据交换功能 测试截图

下载地址:

暂无相关的VB源码!

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“VB实现Inputbox数据交换功能”源代码侵犯了您的权益,请尽快告诉我们。