模拟试卷三参考答案 1页

模拟试卷三参考答案 一．单项选择题 题号 ‎1‎ ‎2‎ ‎3‎ ‎4‎ ‎5‎ ‎6‎ ‎7‎ ‎8‎ ‎9‎ ‎10‎ 答案 D C B D A C C A C D 二．上机题 ‎11.略 ‎12. private sub command1_click()‎ ‎ Dim number As Integer, price As Integer ‎ Number=Val(Text1.text)‎ ‎ Price=Val(Text2.text)‎ ‎ Text3.text=number*price End sub ‎13. private sub command1_click()‎ Dim N As Integer, S As Long ‎ N=val(text1.text)‎ ‎ S=0‎ ‎ For i=1 to N ‎ S=S+i*(i+1)‎ ‎ Next i ‎ Text2.text=s ‎ End sub ‎ 注意：要使用题目给出的全部测试数据来试运行。‎