1)在200元以上者,按9.5折优惠;(2)在300元以上者,按9折优惠;(3)400元以上者,按8折优惠;(4)600元以上者按7折优惠。在窗体上添加两个文本框和一个命令按钮,要求在Text1中输入购物商品总金额,单击命令按钮,在Text2中输出优惠后的价格。程序运行结果如图1所示。Р 图1 程序运行效果Р2.Р实现课对所选择课程进行统计现实,下如图2所示:Р图2 程序运行效果Р答案Р一、选择题(每题2分,共60分)Р1Р2Р3Р4Р5Р6Р7Р8Р9Р10РCРCРAРDРCРBРBРBРBРBР11Р12Р13Р14Р15Р16Р17Р18Р19Р20РBРAРBРBРAРAРBРCРAРBР21Р22Р23Р24Р25Р26Р27Р28Р29Р30РDРAРDРAРDРBРAРAРBРCР二、判断题(1分/题,共10分)Р1Р2Р3Р4Р5Р6Р7Р8Р9Р10РTРTРTРFРFРTРFРFРTРTР三、读程序并填空题(每空1分,共10分)Р1. 30 10Р2. -3 3 Р3. 30Р4. 8 10 12Р5. 5 4Р四、编写程序(每题10分,共20分)Р1. Private mand1_Click()(1分)Р Dim x As Single, y As SingleР x = Val(Text1.Text) (1分)Р If x < 200 Then(2分)Р y = xР ElseР If x < 300 Then(2分)Р y = 9.5 * xР ElseР If x < 400 Then(2分)Р y = 0.9 * xР ElseР If x < 600 Then(2分)Р y = 0.8 * xР ElseР y = 0.7 * xР End IfР End IfР End IfР End IfР Text2.Text = yРEnd Sub
全文预览
