Question

启动VB，打开工程文件“c:\MyExam\VB76.vbp”，完成如下算法设计:

启动VB，打开工程文件“c:\MyExam\VB76.vbp”，完成如下算法设计:
在2012年，苹果公司推出了新产品“New Ipad”，售价定为4800元/台。为了促销，某商场实行了如下的销售策略：一次购买3台以上（不包含3台）的，实行9折优惠。下列程序的功能是计算顾客应付的金额。X表示该顾客购买的台数，y表示应付金额。
请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。

Answer 1

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