Private Sub Command1_Click()
If Val(Text1.Text) > 3 Then
Text2.Text = Val(Text1.Text) * 4800 * 0.9
Else
Text2.Text = Val(Text1.Text) * 4800
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "计算"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024