- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB模拟题目十答案
《计算机水平考试模拟试题十》(VB)
一、选择题(40分,共25题)
1、 [单选题]执行下列代码的结果是_______。
Private Sub Command1_Click()
Dim a(10)
For I = 1 To 10
a(I) = I * 10
Next I
Print a(I)
End Sub
(A)、 110
(B)、 10
(C)、 100
(D)、 数组下标越界
2、 [多选题]在Visual Basic中,下面的4个语句语法中正确的有______。
(A)、 x=Log(0)
(B)、 x=Sqr(0)
(C)、 x=Sin(0)
(D)、 x=Sgn(0)
3、 [单选题]执行下面的语句后,分别输入1和2,输出结果是__________。
Private Sub Form_Click()
a = InputBox(1)
b = InputBox(2)
Print a + b + 1
End Sub
(A)、 13
(B)、 a+b+1
(C)、 4
(D)、 12
4、 [多选题]从键盘上输入一个实数nu,利用字符串函数对该数进行处理。程序输出结果可能为___________。
Private Sub Command1_Click()
nu=InputBox(nu=)
n$=Str$(nu)
P=InStr(n$,.)
If p0 Then
Print Mid$(n$,p)
Else
Print END
End If
(A)、 只去掉数据中的小数点,保留所有数字输出
(B)、 输出数据的小数部分
(C)、 输出数据的整数部分
(D)、 利用字符方式输出数据nu
(E)、 输出内容为END
5、[单选题]为了把焦点移到某个指定的控件,所使用的方法是_____________。
(A)、 GetFocus
(B)、 SetFocus
(C)、 Visible
(D)、 Refresh
6、 [单选题]修改控件属性,一般可以使用属性窗口,也可以通过__________为属性赋值。
(A)、 命令
(B)、 代码
(C)、 对象
(D)、 方法
7、 [单选题]可以将VB的控件分为三种类型,__________不属于这三种类型。
(A)、 对象控件
(B)、 内置(标准)控件
(C)、 外来控件
(D)、 ActiveX控件
8、 [单选题]执行下列程序,从键盘输入10,运行结果是_________。
Private Sub Command1_Click()
S=InputBox(请输入一个数字:)
Select Case S
Case Is0
Print 0
Case Is3
Print 3
Case Is5
Print 5
End Select
End Sub
(A)、 3
(B)、 0
(C)、 出错
(D)、 5
9、 [多选题]当窗体上画一个名称为List1的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是__________。
(A)、 Private Sub List1_Click() : Label1.Caption=List1.listIndex : End Sub
(B)、 Private Sub List1_Click() : Label1.Name=List1.text : End Sub
(C)、 Private Sub List1_Click() : Label1.Caption=List1.text : End Sub
(D)、 Private Sub List1_Click() : Lab
您可能关注的文档
最近下载
- 转正合同协议.docx VIP
- 糖尿病优秀ppt课件.pptx VIP
- 《区域地理-东南亚(第课时)》-公开课件(设计).ppt VIP
- 2025年农村环保问题解析:十种废弃物资源化利用创新模式研究.docx
- 药食同源-公开课件.ppt VIP
- 回收废弃农作物秸秆项目备案申请可行性研究报告.docx
- 消食类药食同源中药的合理应用教材(PPT 74页).ppt VIP
- 犀牛角及其制品鉴定识别方法的研究.doc VIP
- 药食同源食物介绍PPT课件.pptx VIP
- Unit 1 Helping at home Part A (3) Let's spell 课件2025-2026学年度人教PEP版英语四年级上册.pptx VIP
文档评论(0)