Question

用 visual basic 帮我写一个小程序

1.在某书店购书，100元以下者8折优惠，100元以上者（包括100元）7折优惠。请编写程序，要求输入购书的金额，计算并输出应付金额。通过文本框Text1输入金额，在按钮的click事件中编程实现购书程序，应付款项在Text2中显示。

Answer 1

Private Sub Command1_Click()
Dim X As Single, X1 As Single
X = Val(Text1.Text)
If X <= 0 Then
    MsgBox "请输入购书书的总价格！", 16, "价格不能是0或负数！"
    Exit Sub
End If
If X < 100 Then X1 = X * 0.8
If X >= 100 Then X1 = X * 0.7
Text2.Text = X1
End Sub

Answer 2

Private Sub Command1_Click()
    Dim x, zk
    x = Text1.Text
    If x <= 0 Then
    MsgBox ("输入的金额有误")
    Exit Sub
    End If
    
    If x < 100 Then
        zk = 0.8
    Else
        zk = 0.7
    End If
    
    Text2.Text = x * zk
End Sub

form里拖入对应的控件Text1 Text2 Command1