启动VB，打开工程

Posted 2023-03-15

启动VB，打开工程文件“c:\MyExam\VB32.vbp”，完成如下算法设计：
购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元的部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额。请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。

参考技术A private sub form_click()
dim a,x
a=inputbox("输入购物金额：")
if a>500 then x=(a-500)*0.8+500
print "顾客需要付" & x & "元"
end 参考技术B text1.text 是购物金额 也就是 a了 这里不能填写数字以外的 如果需要请自己看着办 if not text1.text<=500 then
text1.text=text1.text * 0.8 msgbox "打折后要" & text1.text & "元!" end if 也就是 x 只能输入数字的限制问题 请百度 这里不写了