原创力文档- 1、本文档共2页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
月考上机试题 程序：
一．选择题：(10*2) Private Sub Command1 _ Click （）
1 由单精度浮点型的数据组成的字节数是 Static X As Integer
A.2 B.4 C.8 D.16 Static Y As Integer
2.可以同时删除字符串前导和尾部空白的函数是 Cls
A．Ltrim Y=l
B．Rtrim Y=Y+5
C．Trim X=5+X
D．Mid Print X，Y
3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 End Sub
A.工程资源管理器窗口 程序运行时，三次单击命令按钮 Command1 后，窗体上显示的结
B.工具箱窗口 果为:
C.代码窗口 A.15 16 B.15 6 C.15 15 D.5 6
D.属性窗口
4.在窗体上添加如下命令按钮，然后编写如下事件过程：C 二．填空题（3*4）
Private Sub Command1 _ Click() 1.计算 1*2*3*...*3000，当积大于 3000 时停止计算。请在
Dim a(10)As Integer _______处将程序补充完整。
Dim p(3)As Integer Private Sub FormClick()
k=5 Dim t As Single,j As Integer
For i=1 To 10 J=1
a(i)=i For j=1 To 3000
Next i __________________
For i=1 To 3 If t＞3000 Then Exit For
p(i)=a(i*i) Next j
Next i Debug.Print j,t
For i=1 To 3 End Sub
k=k+p(i)*2 2.下面程序运行后，输出的结果是_______ 。
Ne
本司主营文章撰写、培训教材、合同协议、发言稿、策划、汇报、各类文案。 ~ 海量资深编辑老师无缝对接，一对一服务。 ~ 保原创！可加急！免费改！
文档评论（0）