- 1、本文档共51页,可阅读全部内容。
- 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模拟题2013讲述
Visual Basic6.0等级考试模拟试卷
第一套模拟试卷
一、选择题
1.当一个工程含有多个窗体时,单击“启动”按钮,运行的窗体是( )。
A) 正在编辑的窗体 B) 第一个添加的窗体
C) 最后一个添加的窗体 D) 在工程属性对话框中指定的窗体
2.以下声明语句中错误的是( )。
A) Deflnta-z B) Dim var=ABC
C) Const varl=123 D) Static var3 As Integer
3.设a=8,b=6,c= -1;执行语句Print abc后,窗体上显示的是( )。
A) 1 B) True C) False D) 出错信息
4.以下能判断是否到达文件尾的函数是( )。
A) LOF B) BOF C) LOC D) EOF
5.下列( )语句是合法的。
A) x3=y B) x+y=5 C) x=y3 D) x=y+
6.执行语句X = InputBox(请输入圆的半径,0,求圆的面积),在弹出对话框后输入5回车,则下列叙述正确的是( )。
A) 0是默认值 B) X的值是字符5
C) X的值是数字5 D) 对话框标题是求圆的面积
7.被一个对象所识别的外界动作被称为( )。
A) 事件 B)方法 C)过程 D)属性
8.为了使标签Label1不可见,正确的属性设置为( )。
A) Label1.Visible=True B) Label1.Visible=1
C) Label1.Visible=0 D) Label1.Visible=False
9.在图形模式下,点亮坐标为X,Y的像素所用的语句是( )。
A) Locate X,Y B) Pset X,Y,5 C) Position X,Y D) Pset(X,Y)
10.复选框的Value属性为0时,表示( )。
A) 复选框被选中 B) 复选框未被选中
C) 复选框不可操作 D) 复选框内有灰色的钩
11.在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:
Private Sub Commandl—Click0
Move 500,500
End Sub
程序运行后,单击命令按纽,执行的操作为( )。
A) 命令按纽移动到距窗体左边界、上边界各500的位置
B) 窗体移动到距屏幕左边界、上边界各500的位置
C) 命令按纽向左、上方向各移动500
D) 窗体向左、上方向各移动500
12.要引用列表框List1最后一项数据应使用( )。
A) List1.List(ListCount) B) List1.List(List1.ListCount)
C) List1.List(ListCount-1) D) List1.List(List1.ListCount-1)
13.当拖动滚动条中的滑动块时,将触发的滚动条事件是( )。
A) Scroll B) Change C) GotFocus D) DragOver
14.在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是( )。
A) Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii〈65 Or KeyAscii 90 Then
MsgBox 请输入大写字母
KeyAscii = 0
End If
End Sub
B) Private Sub Text1_Change( )
If Asc(Text1.Text) 64 And Asc(Text1.Text) 91 Then
MsgBox 请输入大写字母
KeyCode = 0
End If
End Sub
C) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text) 65 Or Asc(Text1.Text) 90 Then
MsgBox 请输入大写字母
End If
End Sub
D) Private Sub Text1_KeyDown(KeyCode As Int
您可能关注的文档
- TMSSolution_全网覆盖_全面防护讲述.pptx
- T梁预制(二级)施工技术交底讲述.doc
- U8+V12.5产品报价讲述.docx
- TORO400E电动铲运机保养手册讲述.doc
- U2VL-bootcamp-oracle.v8讲述.pptx
- U8课后练习讲述.docx
- UDP数据报套接字讲述.doc
- ug自动编程及加工图讲述.doc
- Turbomeeting用户手册讲述.doc
- UI组件:TextView及其子类讲述.doc
- Robinhood Markets-HOOD.US市场前景及投资研究报告-加密复苏受益,政策东风,牛市周期.pdf
- 专业服务行业市场前景及投资研究报告:人服行业AI,国内人服龙头AI+发展前景.pdf
- 机械设备行业市场前景及投资研究报告:谐波减速器需求,国内企业拥抱国产化机遇.pdf
- 集智股份-市场前景及投资研究报告:平衡机主业,乘势机器人,水声业务,第二增长曲线.pdf
- 小商品城-市场前景及投资研究报告:天时地利人和,再创辉煌.pdf
- 匠心家居-市场前景及投资研究报告:创新驱动,产品为基,自主品牌出海成长可期.pdf
- GE航天航空-市场前景及投资研究报告-飞机交付催生航空发动机MRO周期.pdf
- 钢铁行业2025年投资策略分析报告:内卷严格限产.pdf
- 互联网传媒行业市场前景及投资研究报告:MiniMax,Hailuo 02,中国游戏市场同环比增长.pdf
- 非银金融行业2025年市场前景及投资研究报告:贸易摩擦背景,市场韧性增强.pdf
最近下载
- 国开02047_政府经济学-机考复习资料.docx VIP
- 特殊教育:培智部五年级生活数学B卷.docx
- OBE理念指导下的软件实训课教学改革实践探索.docx VIP
- 安检现场处置单位广州民航王超58课件.pptx VIP
- (2025春新版本)七年级下册道德与法治知识点总结.pdf VIP
- 微软-2025-该年前沿企业诞生(英译中).pdf
- 2024年华为认证HCIE存储H13-629必备考试题库大全(含答案).docx VIP
- 房地产管理新加坡房地产经济.docx VIP
- T_CERDS 3-2022 企业ESG评价体系.docx VIP
- 2024年公安机关人员基础知识考试题库及答案 (新版).docx
文档评论(0)