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

你的代码没问题，但你缺少 显示结果 的代码 代码如下 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