VB模拟题2013讲述.docVIP

  1. 1、本文档共51页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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

文档评论(0)

jiayou10 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:8133070117000003

1亿VIP精品文档

相关文档