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
本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系本站邮箱yoyou2525@163.com删除。