VB模拟试题2
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 Integer3．设a=8，b=6，c= -1；执行语句Print a>b>c后，窗体上显示的是（）。
A) 1 B) True C) False D) 出错信息4．以下能判断是否到达文件尾的函数是（）。
A) LOF B) BOF C) LOC D) EOF5．下列（）语句是合法的。
A) x>3=y B) x+y=5 C) x=y>3 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=1C) Label1.Visible=0 D) Label1.Visible=False9．在图形模式下，点亮坐标为X,Y的像素所用的语句是（）。
A) Locate X,Y B) Pset X,Y,5 C) Position X,Y D) Pset(X,Y)10．复选框的Value属性为0时，表示（）。
北语直属14秋《VB》作业2满分答案
作业名称：14秋《VB》作业2 出卷人：SA
作业总分：100 通过分数：60
起止时间：2015-1-14 22:30:06 至2015-1-14 23:04:33
学员姓名：学员成绩：100
标准题总分：100 标准题得分：100
详细信息：
题号:1 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
下列不能打开菜单编辑器的操作是___。
A、按Ctrl+E
B、单击工具栏中的“菜单编辑器”按钮
C、执行“工具”菜单中的“菜单编辑器”命令
D、按Shift + Alt + M
标准答案:D
学员答案:D
本题得分:4
题号:2 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
为了清除窗体上的一个控件，下列正确的操作是___。
A、按回车键
B、按Esc键
C、选择（单击）要清除的控件，然后按Del键
D、选择（单击）要清除的控件，然后按回车键
标准答案:C
学员答案:C
本题得分:4
题号:3 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
设a=″Visual Basic″，下面使b=″Basic″的语句是___。
A、b=Left(a，8，12)
B、b=Mid(a，8，5)
C、b=Right(a，5，5)
D、b=Left(a，8,5)
标准答案:B
学员答案:B
本题得分:4
题号:4 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:。
VB上机模拟卷
《计算机高级语言上机实验（VB）》试卷模拟卷考试时间：70分钟考试方式：闭卷学院班级姓名学号序号【考试须知】1. 请在E盘下新建一个以你的班级、学号、姓名命名的考生文件夹2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。
一、改错题（40分）【题目】一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称是绝对素数。
例如11和13都是绝对素数。
试求所有两位绝对素数。
【要求】1．新建工程，输入代码（5分）；参考界面如图1；（3分）2．共3处错误。
改错时，不得增加或删除语句，但可适当调整语句位置；（30分）3．将窗体文件和工程文件分别命名为F1和P1，并保存到考生文件夹中。
（2分）图1错误的代码：二、编程题（60分）编写程序，生成一个5×5的二维数组，每个元素均为随机生成的两位正整数；然后将数组的最大值与最小值位置互换。
【要求】1.程序参考界面如图2所示。
编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见（6分）。
2.单击“生成数组”按钮，在左边文本框中生成1个5×5的二维数组（14分）；单击“互换”按钮，则把最大值和最小值位置对换，并按图示格式输出结果（10分）；单击“清除”按钮，将两个文本框中的内容清除，焦点置于“生成数组”按钮上（6分）；单击“退出”按钮，则停止程序运行（2分）。
3.程序中包含1个名为MinAMax的通用Sub过程，用来求一个数组的最小值与最大值，并记录最小值与最大值各自的行坐标与列坐标（20分）。
4.将窗体文件和工程文件分别命名为F2和P2，并保存到考生文件夹下（2分）。
图2。
vb理论第2次练习范文
1 用下面语句定义的数组元素个数是（）。
Option Base 1Dim Arr4(6,5) As IntegerA）42 B）30 C）37 D）36解答该题首先通过Option Base 1语句使数组的下标从１开始，所以数组定义语句Dim Arr4(6,5) As Integer与语句Dim Arr4(1 to 6,1 to 5) As Integer等价，不难算出该数组元素个数为30。
答案 B2 可以用来清除数组内容或对数组重新定义的语句是（）A UnloadB ClsC EraseD Free解答数组一旦被定义，就在内存中分配了相应的存储空间，其大小是不能改变的但有时可能需要清除数组的内容或对其重新定义，这可以用 Erase 语句来实现，其格式为 Erase 数组名[, 数组名]…，该语句用来重新初始化静态数组的元素或者释放动态数组的存储空间，其中，数组名不带括号和下标。
Unload 语句是从内存中卸载窗体或控件，当所占内存另有它用或需要重新设置窗体控件的属性值为初始值时，就有必要卸载窗体或控件，而 Cls Clear 都是 Visual Basic 中的方法。
本题正确答案为 C3 下面能正确表示Visual Basic 中数组a 的元素的是（）A a[5]B a5C aD a(5)解答在Visual Basic 中使用数组元素时，必须把下标放在一对紧跟在数组名之后的括号不能写其他的形式，如要表示数组s 中下标为 5 的元素必须写成s(5) 。
答案为D4 下列数组定义中错误的是：其中n 是一个变量A Dim a(7, 3 To 9) As StringB Dim b(n) As IntegeC Dim c(1, 7, 9) As IntegerD ReDim(n)解答在使用Dim 定义一个数组时其上下标不能为变量，而在ReDim 中就可以使用变量来改变数组的维数答案为B5 使用语句Dim A（）As Integer 声明数组A 之后，以下说法正确的是：A A 数组中的所有元素值为0B A 数组中的所有元素值不确定C A 数组中的所有元素值为EmptyD 执行Erase A 后A 数组中的所有元素值为0解答所谓数组就是能够保存具有数据类型的多个数值的存储空间，当声明一个数组后，在没有给它赋值前，数组中的所有元素值为0，因此可知选项A 是正确的，B ，C选项都是错误的，在选项 D 中出现了Erase 语句，使用Erase 语句将释放动态数组所占的内存空间，而题中语句Dim A As Integer 正好是声明动态数组A 的，所以选项D 的说法不正正确答案为A6 计算下列定义的语句中数组所占有的空间为（）Option Base 1Dim sngLp(3, 2 To 5) As SingleA 80 字节B 48 字节C 60 字节D 96 字节解答首先使用了Option Base 1 将数组的下标定位为1，所以数组sngLp 的定义实际是Dim sngLp(1 To 3, 2 To 5) As Single，又因为Single 单精度类型的所占空间为4个字节，因此所占空间=(3-1+1)*(5-2+1)*4=48 字节。
VB笔试模拟试卷123(题后含答案及解析)
VB笔试模拟试卷123(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．下列说法中错误的是( )。
A．在同一模块不同过程中的变量可以同名B．不同模块中定义的全局变量可以同名C．引用另一模块中的全局变量时，必须在变量名前加模块名D．同一模块中不同级的变量可以同名正确答案：D解析：变量可以分为3类：局部变量、模块变量、全局变量。
在同一模块不同过程中的变量叫做局部变量，其作用域是它所在的过程，所以不同过程中的局部变量可以同名；模块变量的作用范围是整个窗体或模块，引用其他模块中的模块变量时，必须加上模块名；当同一个模块内的不同过程使用相同的变量时，必须声明窗体层的变量，当然不能有重名。
2．下列数据结构中，属于非线性的是( )。
A．线性表B．队列C．树D．栈正确答案：C解析：线性结构，是指数据元素只有一个直接前件元素和直接后件元素。
线性表是线性结构。
栈和队列是指对插入和删除操作有特殊要求的线性表，树是非线性结构。
3．下列叙述中错误的是( )。
A．线性表是由n个元素组成的一个有限序列B．线性表是一种线性结构C．线性表的所有结点有且仅有一个前件和后件D．线性表可以是空表正确答案：C解析：线性表是一种线性结构，由n(n≥0)个元素组成，所以线性表可以是空表。
但是在线性表中，第一个结点没有前件，最后一个结点没有后件，其他结点有且只有一个前件和后件，所以C是错误的。
4．按照“先进先出”组织数据的数据结构是( )。
A．队列B．栈C．双向链表D．二叉树正确答案：A解析：队列是一种特殊的线性表，只允许在表的一端插入元素，在表的另一端删除元素，插入元素的一端叫“队尾”，删除元素的一端叫“队头”，先插入的元素先被删除，是按“先进先出”的原则组织数据的。
5．下列关于线性链表的描述中正确的是( )。
全国计算机二级VB试题及答案
下面的138道题目，在二级考试中命中率极高。
一、选择题(1) 下面叙述正确的是(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是(C)A. 队列B. 线性表C. 二叉树D. 栈(3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得A. 8B. 16C. 32D. 15(4) 下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句(5) 下面概念中，不属于面向对象方法的是 (D) 注：P55-58A. 对象B. 继承C. 类D. 过程调用(6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B)A. 可行性分析B. 需求分析C. 详细设计D. 程序编码(7) 在软件开发中，下面任务不属于设计阶段的是(D)A. 数据结构设计B. 给出系统模块结构C. 定义模块算法D. 定义需求并建立系统模型(8) 数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库(9) 下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108A. 内模式B. 外模式C. 概念模式D. 逻辑模式(11) 算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数D. 算法程序中的指令条数(12) 算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间(13) 设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B) 注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A. 349B. 350C. 255D. 351(14) 结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15) 在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D) 注：即第一个阶段A. 概要设计B. 详细设计C. 可行性分析D. 需求分析(16) 数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。
《VB程序设计基础》模拟试题
《VB程序设计》模拟试题●填空题1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、类模块文件的扩展名为______CLS_______ 。
Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。
3. Abs= ；Int= ____-10_______。
4. "程序"& "设计"运算结果为 ___程序设计____ 。
5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。
6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes 表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。
7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。
8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最常用。
9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。
在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。
10. 条件判断语句可以使用___If…then____________语句、____If…Then…Else______语句和 ______If…Then…ElseIf______语句。
Select case 语句11. 声明一个值为的常量Pi的语句为___Const pi = 。
2010上半年计算机等考二级VB真题及答案
D、读写磁头是既能从磁表面存储器读出信息又能把信息写入磁表面存储器的装置
41． 一个非零的无符号二进制整数，若在其右边末尾加上两个"0"形成一个新的无符号二进制整数，则新的数是原来数的( )倍。 四 或 4
42． 为解决某一问题而设计的指令序列称为( )。 程序
34． 下列四条叙述中，正确的一条是( )。A
A、假若CPU向外输出20位地址，则它能直接访问的存储空间可达1MB
B、PC机在使用过程中突然断电，SRAM中存储的信息不会丢失
C、PC机在使用过程中突然断电，DRAM中存储的信息不会丢失
D、外存储器中的信息可以直接被CPU处理
15． 微机中1K字节表示的二进制位数是( )。D A、1000 B、8x1000 C、1024 D、8x1024
16． 计算机硬件能直接识别和执行的只有( )。D A、高级语言 B、符号语言 C、汇编语言 D、机器语言
17． 用于保存计算机输入输出数据的材料及其制品称为( )。A
一级WINDOWS超级模拟考试（十）
43． 汉字国标码中共收集了个汉字及符号。D
A、3755 B、3008 C、6763 D、7445
44． 个人计算机属于( )。C
A、小巨型机 B、小型计算机 C、微型计算机 D、大型计算机
45． 存储器中的信息可以是指令，也可以是数据，计算机是靠( )来判别的。D
全国计算机等级考试一级B模拟试题及答案
1． 目前各部门广泛使用的人事档案管理、财务管理等软件，按计算机应用分类，应属于( )。D
A、实时控制 B、科学计算 C、计算机辅助工程 D、数据处理
计算机VB语言模拟试题二含答案
模拟试题二一、单选题1. 以下关于Visual Basic 特点的叙述中，错误的是 。
(A) 构成Visual Basic 程序的多个过程没有固定的执行顺序 (B) Visual Basic 程序只能编译运行(C) Visual Basic 是采用事件驱动编程机制的语言(D) Visual Basic 是结构化程序，具备结构化程序的三种基本结构 2. 有程序代码如下:Tex1.Text=" Tex1.Text "则Tex1、Text 、" Tex1.Text "分别代表 。
(A) 对象、值、属性 (B) 对象、方法、属性(C) 对象、属性、值 (D) 属性、对象、值 3. 下面关于对象的描述中， 是错误的。
(A) 在Visual Basic 中，对象所能响应的事件是由系统定义的(B) 对象的任何属性既可以通过“属性”窗口设定，也可以通过程序语句设定 (C) Visual Basic 中允许不同对象具有相同属性和方法 (D) Visual Basic 中的对象具有自己的属性和方法 4. 任何控件共同具有的是 属性。
(A) Text (B) Name (C) ForeColor (D) Caption5. 与数学表达式cd ab3对应 ，不正确的VB 算术表达式是 。
(A) a*b/(3*c*d) (B) a/3*b/c/d (C) a*b/3/c/d (D) a*b/3*c*d 6. InputBox 函数返回值的类型是 。
(A) 整型数值 (B) 字符串 (C) 变体 （D ） 数值或字符串 7. 下面正确的赋值语句是 。
(A) x+y=30 (B) y= *r*r (C) y=x+30 (D) 3y=x 8. 下面程序段运行后，显示的结果是 。
Dim x If x Then Print x Else Print x+1(A)l (B)O (C)-1 (D)显示出错信息9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程，程序运行后，如果在“输入”对话框中输入3，则窗体上显示的是 。
VB进制转换练习题(2)
VB 进制转换练习题（2）1．下列VB 程序的功能是将二进制数转换为十进制数。
采用位权展开的方法：10012342(29)2120212121(11101)=⨯+⨯+⨯+⨯+⨯= 。
程序运行时，在文本框Text1中输入一个二进制数，单击计算按钮（Command1）后，文本框Text2中显示对应的十进制数。
程序的运行界面如图所示。
请在划线上填入合适的代码。
Function fq(n As Integer, x As Integer) As Long '函数返回位权值Dim i As IntegerIf x = 1 Thenfq = 1For i = 1 To nfq = fq * 2Next iElsefq = 0End IfEnd FunctionPrivate Sub Command1_Click()Dim s1 As String, length As Integer,ch As String, x As IntegerDim sum As Long, i As Integers1 = Text1.Text sum = 0 For i = 1 To lengthch = Mid(s1, i, 1)x = Val(ch)Next iText2.Text = Str(sum)End Sub2．编写VB 程序，实现如下功能：在文本框Text1中输入十六进制数，单击“转换”按钮Command1，在列表框List1中输出对应的十进制数，运行界面如图所示，程序代码如下。
(1)要调整Label1中的字体大小，可选择在属性面板中设置Label1的________属性值。
(单选，填字母：A.Caption/B.Font/ C.Height)(2)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()Dim s As String, c As String, t As StringDim i As Integer, b As Integer, ans As LongDim flag As Booleans＝_______①_______ b ＝Len(s)flag ＝Trueans ＝0For i ＝1 To bc ＝Mid(s, i, 1)If c >＝“0” And c <＝“9” Thenans ＝ ans*16＋Asc(c)－Asc(“0”)ElseIf c >＝“A ” And c <＝“F ” Thenans ＝ans*16＋_______________②_________________Else_________③__________′输入情况有误Exit ForEnd IfNext iIf flag Then t ＝ Str(ans)Else t ＝“输入有误！”List1.AddItem s ＋ “－－>” ＋ tEnd Sub(3)由上述算法可知，运行时在Text1框中输入“d8”，列表框List1中添加的条目为________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、单选题（30分，每小题1分）1、（C ）字节称为一个MB。
（A）1024 （B）1000K （C）1024*1024 （D）10000K2、计算机硬件系统的五大部件是（A ）。
（A）CPU、内存储器、输入设备、输出设备、外存储器（B）运算器、控制器、存储器、输出设备、输入设备（C）CPU、总线、存储器、外设、主板（D）主机箱、显示器、音箱、鼠标、键盘3、常用的输入设备有（A ）。
（A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标（C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标4、计算机网络的主要作用是( D )。
(A) 数据处理(B) 信息传输与数据处理(C) 文献查询(D) 资源共享与信息传输5、二进制数1010等于十六进制数( C )。
(A) 10 (B) 11 (C) A (D) B6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( B )。
(A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare7、下列程序段的执行结果为( D )。
J1 = 10J2 = 30If J1 < J2 Then Print J2;Print J1(A)10 (B)30 (C)10 30 (D)30 108、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（C ）(A) x1="False" (B) x1='False' (C) x1=False (D) x1=#False#9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（B ）。
(A) Private Sub Text1_LostFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)End Sub (B) Private Sub Text1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)End Sub(C) Private Sub Text1_SetFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text) End Sub (D) Private Sub Text1_Change()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub10、设用复制、粘贴的方法建立了一个单选按钮数组Option1，以下对该数组的说法错误的是( C )。
(A) 所有单选按钮的Caption属性都是Option1(B) 单选按钮的大小都相同(C) 在代码中访问任意一个单选按钮只需使用名称Option1(D) 单选按钮共享相同的事件过程11、下面过程说明语句中合法的是（B ）。
(A) Sub f1（ByV al n() As Integer）(B)Function f1（ByV al n As Integer）(C) Function f1（f1 As Integer）As Integer (D)Sub f1（n() As Integer）As Integer12、Cls 方法可清除窗体或图片框中的（C ）信息。
(A) Picture属性设置的背景图案(B) 在设计时放置的控件(C) 程序运行时产生的图形和文字(D) 以上都对13、在窗体中右击鼠标能弹出菜单test的是（ A ）。
(A)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button =2 Then PopupMenu testEnd Sub(B)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)PopupMenu testEnd Sub(C)Sub Form_Click()PopupMenu testEnd Sub(D)Sub Form_DblClick()PopupMenu testEnd Sub14、下列符号常量的声明中，( C )是不合法的。
(A) Const a As Single = 1.1 (B) Const a As Integer = "12"(C) Const a As Double = Sin(1) (D) Const a = "OK"15、下列程序段的执行结果为( B )。
Dim S(9)For i=0 To 9S(i)=3*INext iPrint S(S(3))(A) 12 (B) 27 (C) 0 (D) 出错16、下列数组声明正确的是（D ）。
(A) n=5Dim a(1 to n) As Integer (B) Dim a(10) As IntegerReDim a(1 to 12)(C) Dim a() As SingleReDim a(3 ,4) As Integer (D) Dim a() As Integern=5ReDim a(1 to n) As Integer17、下列控件中，没有Caption属性的是（B ）。
(A) 框架(B) 列表框(C) 复选框(D) 单选按钮18、下面关于计时器控件（Timer）的叙述中，错误的是（B ）。
(A) 计时器控件运行时不可见(B) 通过Color属性可设置计时器控件的颜色(C) 计时器控件只有一个事件即Timer事件(D) 计时器的Interval属性值设为0时，计时器无效19、表达式 2 ^ 2 * 5 + 3 Mod 10 \ 3 的值是（D ）。
（A）0 （B）18 （C）19 (D) 2020、在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为20和100。
程序运行后，如果移动滚动条滑块，则在文本框中显示滚动条的当前值。
以下程序段中能实现上述操作的是（A ）。
(A) Private Sub Hscroll1_Change()Text1.Text=HScroll1.V alueEnd Sub (B) Private Sub Hscroll1_Click()Text1.Text=HScroll1.V alueEnd Sub(C) Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd Sub (D) Private Sub Hscroll1_Click()Text1.Text=Hscroll1.CaptionEnd Sub21、在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Load()Text1.Text = ""Text1.SetFocusFor i = 1 To 5Sum = Sum + iNext iText1.Text = SumEnd Sub上述程序的运行结果是（D ）。
(A) 在文本框中输出15 (B) 在文本框中输出0(C) 在文本框中输出不定值(D) SetFocus方法不可在Load事件中使用，所以出错22、下面说法不正确的是( C )。
(A) 滚动条的重要事件是Change和Scroll(B) 框架的主要作用是将控件进行分组，以完成各自相对独立的功能(C) 计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上(D) 组合框中Style属性有三个不同的值，使组合框呈现不同的形式23、以下Case语句中有语法错误的是（ B ）。
(A) Case 0 To 10 (B) Case Is>10 And Is<50(C) Case Is>10 (D) Case 3,5,Is>1024、关于文件操作控件，下列叙述不正确的是（C ）。
(A) 驱动器列表框（DriveListBox）能显示系统中所有有效磁盘驱动器(B) 从驱动器列表框中选择驱动器能变更系统当前的工作驱动器(C) 使用通用对话框(CommonDialog)中的“打开文件”对话框选择文件名，无需编程即可自动地打开所选文件(D) 通过编写适当的程序代码可以使文件列表框（FileListBox）中显示当前目录列表框(DirLIstBox)中选中的文件列表25、从磁盘上读入一个名为“c:\filel.txt”的顺序文件，下面程序段正确的是（ D ）。
(A) Open "c:\filel.txt" For Output As # 2 (B) Open c:\filel.txt For Input As # 1(C) F="c:\filel.txt"Open "F" For Input As # 2 (D) F="c:\filel.txt"Open F For Input As # 126、改变下列（C ）属性可设置控件的位置，。
(A) Height 与Width (B) Height 与Top (C) Left 与Top (D) Left 与Width27、在Visual Basic 中，( A ) 关键字用于注释语句。
(A) Rem (B) End (C) Else (D) Loop28、X是一个数值型变量，表达式Int（X / 2）= X / 2 的作用是（A ）。
(A) 用于测试X是否偶数(B) 返回一个整数(C) 返回一个奇数(D) 用于测试X是否整数29、执行了下面程序后，组合框中显示的数据项是（ B ）。
Private Sub Form_Load()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub(A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 630、打开顺序文件语句中，关键字Append表示把新数据添加到( B )。
(A) 文件首(B) 文件尾(C) 文件中间(D) 随机位置二、填空（50分，每空2分）1、设有如下程序段：a$="ShanghaiBeijing"：b$=Mid(a$,InStr(a$,"i")+1)执行上面的程序段后，变量b$的值为__。