最佳答案：c = Val(Text1.Text) '将Text1中的值赋给cIf c = Abs(a - b) Then 'Abs(a - b)是a和b间的差（正数），判断c是否等于该差值f =
c = Val(Text1.Text) '将Text1中的值赋给c
If c = Abs(a - b) Then 'Abs(a - b)是a和b间的差（正数），判断c是否等于该差值
f = f + 10 '是，则f加10
Label6.Caption = f '显示f
Else
f = f - 10 '否则减10
Label6.Caption = f
End If
