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
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