Question

Dim a As Integer Dim b As Integer Dim c As Integer a = Text1.Text b = Text2.Text c = a a = b b = c

使用VB交换两个变量的值，运行时交换不了，也没有出错信息，请教错在什么地方？谢谢！

Answer 1

你的代码没问题，但你缺少 显示结果 的代码   代码如下

Private Sub Command1_Click()
  Label1.Caption = ""
  Dim a, b, c As Integer
  'a = Text1.Text: b = Text2.Text
  'val 是将 字符 转化为 数值的函数 因为 你定义abc 三个变量都是 整型 以防万一出错
  a = Val(Text1.Text): b = Val(Text2.Text) 
  c = a: a = b: b = c
  Label1.Caption = "a=" & a & " ," & "b=" & b & " ," & "c=" & c
End Sub