考试中，帮我，计算机考试

Posted 2023-03-15

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

Function func()
Dim a As Single, x As Single
a = 898
If a <= 500 Then
x = a
Else
x = 500 + (a - 500) * 0.8
________
func = "应付金额x=" & x
End Function
'
' 请不要修改 Main() 过程 ！
'
Sub Main()
If Command = "assess" Then

Open "in.txt" For Input As #1
Line Input #1, n
Close #1

Open "out.txt" For Output As #1
Print #1, func()

参考技术A 第一个 ____ 处应该是end if本回答被提问者采纳 参考技术B end if
请测试