原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB选择题3[精选]
1、执行语句Msgbox “除数不能为0!”, 48, “数据出错”，在弹出的对话框中显示的是：
A感叹号图标 B 停止图标 C 问号图标 D 消息图标
2、设Picture1.Scaleleft=-200, Picture1.ScaleTop=250, Picture1.Width=500, Picture1.height=-400，则右下角为：
A (300, -150) B (500, -450) C (-200, 250) D (700, 650)
3、运行下列程序，单击窗体后的结果是：
Private Sub Form_Click()
S=1
For i=1 to 2
For j=0 to i
S=S + S*j
Print S; Spc(2);
Next j
Print
Next i
End Sub
A 1 2 B 1 2 C 1 2 D 1 2
4 12 2 4 2 4 12 1 2 6
4、窗体上有一个命令按钮C1，两次单击C1后结果为：
Dim Z%
Sub S()
Dim Z
Z=Z+2
Print Z
End Sub
Private Sub C1_Click()
Z=Z+2
Call S
Print Z
End Sub
A 2 2 与 4 4 B 4 4 与 8 8 C 2 2 与 2 4 D 2 4 与 4 6
5、能打开对话框的标题为“Visual Basic”的事件过程为：A．CommonDialog1.DialogTitle=”Visual Basic”
CommonDialog1.ShowPrinter
B．CommonDialog1.DialogTitle=”Visual Basic”
CommonDialog1.ShowSave
C．CommonDialog1.DialogTitle=”Visual Basic”
CommonDialog1.ShowFont
D．CommonDialog1.DialogTitle=”Visual Basic”
CommonDialog1.ShowColor
6、不能把2^5*3.15*8的结果输出到立即窗口的是：
A．在代码窗口中使用Debug.Print 2^5*3.15*8 语句
B．在立即窗口中直接使用2^5*3.15*8
C．在立即窗口中直接使用？2^5*3.15*8
D．在立即窗口中直接使用Print 2^5*3.15*8
7、执行语句a=”software and hardware”: b=Right(a,8):c=Mid(a,1,8): Msgbox a,,b,c,1后，消息框的标题是：
A.1 B. software C. hardware D. software and hardware
8、运行下列程序，输出的结果是：
Public Function f(Byval n%, Byval x%)
If n0 then
f=f(n\x, x)
Print n Mod x;
End if
End function
Private Sub Command1_Click()
Print f(20,8)
End Sub
A 2 4 B 1 2 4 C 1 4 4 D 4 4
9. 事件过程为：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii Asc(0) Or KeyAscii Asc(9) Then
KeyAscii = 0
End If
End Sub
A 只能向Text1中输入数字字符0-9
B 只能向Text1中输入ASCII码在0-9之间的字符
C只能向Text1中输入非数字字符
D Text1不接受任何输入
10、阅读下列程序：
Sub Fan(x%, ByVal y%)
x = 5 * x: y = x + y
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 5: b = 10
Fan a, b
Print a, b
End Sub
A 5 10 B 5 20 C 25 10 D 25 25
11、运行下列程序，其中n=n+1被执行的次数是：
Dim m%, n%
For m = 1 To 3
For n = 1 To 6 Step 2
n = n + 1
文档评论（0）