代码大约长这样，自己完善一下。
Private Sub Command1_Click()
Dim a#, b#, c#
a = Val(Text1)
If Option1 Then b = a * 0.8
If Option2 Then b = a * 0.9
If Option3 Then b = a
If a >= 1000 And Check1 Then c = b / 12
Label1.Caption = b & vbCrLf & c
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024