- 2024-03-16 发布 |
- 37.5 KB |
- 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 注意:要使用题目给出的全部测试数据来试运行。查看更多