医学VB模拟题
vb考试试题及答案
vb考试试题及答案VB考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中的哪个函数可以用来获取当前系统时间？A. Now()B. Date()C. Time()D. All of the above答案：D3. 在VB中，以下哪个选项是正确的循环结构？A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D4. VB中，以下哪个选项是正确的条件判断语句？A. If...ThenB. Select...CaseC. Both A and BD. None of the above答案：C5. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C6. VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的事件处理程序？A. Sub Form_Load()B. Sub Form_Click()C. Both A and BD. None of the above答案：C8. VB中，以下哪个选项是正确的控件？A. LabelB. TextBoxC. Both A and BD. None of the above答案：C9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Both A and BD. None of the above答案：C10. VB中，以下哪个选项是正确的错误处理语句？A. On Error GoToB. On Error Resume NextC. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用语句_________。
VB模拟试题试及参考答案
VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。
A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。
A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。
A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。
A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。
A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。
A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。
A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。
A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。
A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。
A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。
A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。
A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。
国家二级VB机试(选择题)模拟试卷265(题后含答案及解析)
国家二级VB机试（选择题）模拟试卷265(题后含答案及解析) 题型有：1.1．下列叙述中正确的是A．在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B．在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化C．在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D．上述三种说法都不对正确答案：C解析：在栈中，允许插入与删除的一端称为栈顶，而不允许插入与删除的另一端称为栈底。
栈跟队列不同．元素只能在栈顶压入或弹出，栈底指针不变栈中元素随栈顶指针的变化而动态变化，遵循后进先出的规则。
知识模块：数据结构与算法2．在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是A．O(n)B．O(n2)C．O(log2n)D．O(nlog2n)正确答案：C解析：对于长度为n的有序线性表，在最坏情况下，二分法查找只需比较log2n次，而顺序查找需要比较n次。
知识模块：数据结构与算法3．VB中，若没有显式声明变量的数据类型，则默认的类型是A．整型B．字符型C．日期型D．变体类型正确答案：D解析：VB允许隐式声明变量。
若没有显式声明变量的数据类型，则默认的类型是变体型。
知识模块：数据类型及运算4．表达式Sgn(0．25)的值是A．-1B．0C．1D．0.5正确答案：C解析：sgn函数会返回参数的符号，如果参数为正数返回1，为负数返回-1。
知识模块：数据类型及运算5．检查软件产品是否符合需求定义的过程称为A．确认测试B．集成测试C．验证测试D．验收测试正确答案：A解析：确定测试是验证软件的功能和性能及其他特性是否满足了需求规格说明书中确定的各种需求以及软件配置是否完全、正确。
知识模块：软件工程基础6．数据库系统的三级模式不包括A．概念模式B．内模式C．外模式D．数据模式正确答案：D解析：数据库系统的三级模式包括概念模式、外模式和内模式(物理模式)。
知识模块：数据库设计基础7．语句：Print Asc(Chr$(Mid$(“98765432”，4，2)))的输出是A．65B．AC．8765D．W正确答案：A解析：Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾，本题中是从第4位取长度为2的子串即“65”。
国家二级(VB)机试模拟试卷216(题后含答案及解析)
国家二级（VB）机试模拟试卷216(题后含答案及解析) 题型有：1. 选择题 2. 基本操作题 3. 简单应用题 4. 综合应用题选择题1．某二叉树共有400个结点，其中有100个度为l的结点，则该二叉树中的叶子结点数为( )。
A．149B．150C．151D．不存在这样的二叉树正确答案：D解析：在树结构中，一个结点所拥有的后件个数称为该结点的度。
对任何一棵二又树，度为0的结点(即叶子结点)总是比度为2的结点多一个。
二叉树中有400个结点，设叶子结点个数为n0，度为1的结点个数为100，设度为2的结点个数为n2。
400=n0+100+n2且n0=n2+1，则n0=150．5，n2=149．5。
由于结点个数必须是整数，所以不存在这样的二叉树，故选择D选项。
2．在窗体上画一个命令按钮，然后编写如下时间过程( )。
Print Sub Command 1—Click( )a=InputBox(“Enter the First interger”)b=InputBox(“Enter the Second interger”)Print b+aEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是A．579B．123C．456D．123456正确答案：D解析：Inp’utBox函数返回的是字符串格式的用户输入的数据，因此本题中，最后变a和变量b中存储的是字符串‘456’和‘123’，因此表达式b+a，就是将这两个字符串连接起来，称为字符串’123456’。
3．为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是( )。
A．把这2组单选按钮设置为名称不同的2个控件数组B．使2组单选按钮的Index属性分别相同C．使2组单选按钮的名称分别相同D．把2组单选按钮分别画到2个不同的框架中正确答案：D解析：框架(Frame)是一个容器控件，用于将屏幕上的对象分组，单选按钮(OptionButton)组用于提供多个选项间的唯一选择，因此若要使得每组中都有一个按钮被选中，需要将其使用框架分组。
vb对口升学模拟试题及答案
vb对口升学模拟试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim aB. Dim b = 10C. Dim c = "Hello"D. 所有选项都是正确的答案：D2. 下列哪个是Visual Basic中的数组声明？A. Dim arr(10)B. Dim arr() As IntegerC. Dim arr(0 To 9) As IntegerD. 所有选项都是正确的答案：D3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10 Then EndC. If x > 10 Then End IfD. If x > 10 Then Else答案：A4. 下列哪个是Visual Basic中的循环结构？A. For EachB. WhileC. Do WhileD. 所有选项都是正确的答案：D5. 在Visual Basic中，以下哪个是调用函数的正确方式？A. Call functionName()B. functionName()C. Both A and BD. None of the above答案：C6. 下列哪个是Visual Basic中的事件处理程序？A. Sub eventName()B. Function eventName()C. Property eventName()D. Sub eventName(ByVal sender As Object, ByVal e As EventArgs)答案：D7. 在Visual Basic中，以下哪个是正确的类声明？A. Class MyClassB. Dim MyClassC. Function MyClassD. None of the above答案：A8. 下列哪个是Visual Basic中的继承关键字？A. InheritsB. InheritsFromC. ExtendsD. None of the above答案：A9. 在Visual Basic中，以下哪个是正确的属性声明？A. Property MyProperty As IntegerB. Dim MyProperty As IntegerC. Function MyProperty As IntegerD. Both A and B答案：A10. 下列哪个是Visual Basic中的接口声明？A. Interface MyInterfaceB. Dim MyInterfaceC. Function MyInterfaceD. None of the above答案：A二、填空题（每空2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个类。
国家二级VB机试(数据类型及运算)模拟试卷18(题后含答案及解析)
国家二级VB机试（数据类型及运算）模拟试卷18(题后含答案及解析)题型有：1. 选择题选择题1．以下合法的VB变量名是A．aB．yPrintC．a-bD．Type正确答案：B解析：变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为255个；不能用，VB的保留字作变量名，但变量名中可以包含保留字，如ConstA，变量名也不能是末尾带有类型说明符的保留字，如Dim!起不合法的变量名；不区分字母的大小写。
知识模块：数据类型及运算2．设在一个工程的窗体中有如下代码：Public x As IntegerPrivate Sub Form_Load( )Dim YAs IntegerEnd Sub在该工程的标准模块的声明部分有代码：Public a As Integer：Private b As Integer关于上述代码，以下叙述中错误的是A．变量X的作用域是整个工程B．变量Y的作用域是Form_Load过程C．变量a的作用域是整个工程D．变量b的作用域是整个标准模块正确答案：A解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：知识模块：数据类型及运算3．以下不合法的VB变量名是A．filenameB．readC．_yD．e5正确答案：C解析：变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为255个；不能用VR的保留字作变量名，但变量名中可以包含保留字，如ConstA；变量名也不能是末尾带有类型说明符的保留字，如Dim!是不合法的变量名；不区分字母的大小写。
知识模块：数据类型及运算4．以下关于变量作用域的叙述中，错误的是A．在标准模块声明部分用Public声明的变量的作用域为整个工程文件B．在标准模块声明部分用Private声明的变量的作用域为该标准模块C．在窗体的声明部分不能用Private声明变量D．在过程中不能使用Public声明变量正确答案：C解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：知识模块：数据类型及运算5．下列符号常量的声明中不合法的是A．Const a As Single=3．5B．Const a As Double=5+8C．Const a As Integer=“25”D．Const a=“OK”正确答案：C解析：声明特号常量用来代替数值或字符串。
VB模拟题
试卷编号：8016所属语言：Visual Basic试卷方案：VB模拟试卷总分：100分共有题型：5种一、填空共10题（共计10分）第1题（1.0分）题号:66VB 6.0的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：=======(答案1)=======逻辑第2题（1.0分）题号:234当x=2时,语句if x=2 then Print x=2 的结果值是【1】.答案：=======(答案1)=======True第3题（1.0分）题号:1286使用Dim CJ(1 To 3, 1 To 4, 2 To 3),声明数组CJ有【1】个数组元素.答案：=======(答案1)=======24第4题（1.0分）题号:1460执行下面的程序段后,a 的值为【1】, b 的值为【2】.a=300b=20a=a+b b=a-ba=a-b答案：=======(答案1)=======20=======(答案2)=======300第5题（1.0分）题号:389Visual Basic中保存工程文件时,若不改变目录名,则系统默认的目录是【1】.答案：=======(答案1)=======VB98第6题（1.0分）题号:57在控件之中,【1】不能从工具箱中被删除.答案：=======(答案1)=======内部控件=========或=========标准控件第7题（1.0分）题号:270将焦点定位于命令按钮Command1之上的语句为【1】.答案：=======(答案1)=======Command1.SetFocus=========或=========SetFocus第8题（1.0分）题号:232表达式93\7 MOD 2^3的值是【1】.答案：=======(答案1)=======5第9题（1.0分）题号:1410两质数的差为2,称此两质数为质数对,下列程序是找出100以内的质数对,并成对显示结果.其中,函数IsP判断参数m是否为质数.请在程序中下划线处填入相应的内容.Public Function IsP(m)As BooleanDim I%【1】For I=2 To Int(Sqr(m))If 【2】Then IsP=FalseNext IEnd FunctionPrivate Sub Command1_Click()Dim I%P1=IsP(3)For I=5 To 100 Step 2P2=IsP(I)If 【3】Then Print I-2,IP1 【4】Next IEnd Sub答案：=======(答案1)=======IsP=True=======(答案2)=======m Mod I=0=======(答案3)=======p1 And p2 =======(答案4)=======p2第10题（1.0分）题号:44一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【1】文件.答案：=======(答案1)=======工程二、判断共10题（共计10分）第1题（1.0分）题号:300如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.答案：Y第2题（1.0分）题号:1122对象的三要素包括:属性、事件、方法.答案：Y第3题（1.0分）题号:250Image 控件不能用作容器使用.答案：Y第4题（1.0分）题号:228Dim i, j as integer 表明i和j都是整型变量.答案：N第5题（1.0分）题号:1134ActiveX部件是可以重复使用的编程代码和数据.答案：Y第6题（1.0分）题号:312通用对话框只能用SHOW方法进行调用.答案：N第7题（1.0分）题号:346在Visual Basic 中Dim a ,b,c as integer 和Dim a as integer, b as integer,c as integer 相同.答案：Y第8题（1.0分）题号:349在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.答案：N第9题（1.0分）题号:341在VB中,可通过函数 Now返回计算机系统的日期和时间.答案：N第10题（1.0分）题号:362属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置.答案：N三、单项选择共20题（共计20分）第1题（1.0分）题号:855在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中()窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息.A:立即B:监视C:本地D:中断答案：A第2题（1.0分）题号:374下列可缩放图片的属性是().A:autosizeB:pictureC:stretchD:OleDrawMode答案：C第3题（1.0分）题号:860组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:StyleB:BoderStyleC:FillStyleD:DrawStyle答案：A第4题（1.0分）题号:2257在用菜单编辑器设计菜单时,必须输入的项有().A:快捷键B:标题C:索引D:名称答案：D第5题（1.0分）题号:358下列()是日期型常量.A:"2/1/02"B:37258C:#2/1/02#D:|2/1/02|答案：C第6题（1.0分）题号:349为了防止用户随意将光标置于控件上,应(). A:将控件的TABINDEX属性设置为0B:将控件的TABSTOP属性设置为TRUEC:将控件的TABSTOP属性设置为FALSED:将控件的ENABLED属性设置为FALSE答案：D第7题（1.0分）题号:3243属性窗口只能在使用.A:设计时B:编译时C:运行时D:以上都不对答案：A第8题（1.0分）题号:3412下面关于对象的描述中,错误的是().A:对象就是自定义结构变量B:对象代表正在创建的系统中的一个实体C:对象是一个状态和操作(或方法)的封装体D:对象之间的信息传递是通过消息进行的答案：A第9题（1.0分）题号:3442一句语句要在下一行继续写,续行符是(). A:+B:-C:_D:…答案：C第10题（1.0分）题号:3207设a="Visual Basic",下面使b="Basic"的语句是 .A:b=Left(a,8,12)B:b=Left(a,8,5)C:b=Mid(a,8,5)D:b=Right(a,5,5)答案：C第11题（1.0分）题号:2245结构化程序由三种基本结构组成,下面不属于三种基本结构之一的是().A:顺序结构B:选择结构C:过程结构D:循环结构答案：C第12题（1.0分）题号:377下列哪个变量的取法是不正确的().A:TNameB:T_TempC:T32D:T32#答案：D第13题（1.0分）题号:294改变控件在窗体中的左右位置应修改该控件的()属性.A:TopB:LeftC:WidthD:Right答案：B第14题（1.0分）题号:3538关于键盘事件的说法中,正确的是A:按下键盘任意键都会引发KeyPress事件B:大键盘的"1"键,和数字键盘的"1"键的KeyCode编码相同C:KeyDown 和 KeyUp事件过程中有KeyAscii参数D:大键盘的4的上档符号是$,当同时按下Shift 键和大键盘的4时,KeyPress事件过程KeyAscii参数值是$的Ascii值.答案：D第15题（1.0分）题号:3193下列程序段的运行结果.Private Sub Form_Click()Dim MsgHideMsg="选择'确定'按钮"MsgBox MsgShowEnd SubA:隐藏窗体,按'确定'按钮使窗体重现B:隐藏窗体C:显示窗体,按'确定'按钮使窗体隐藏D:显示窗体答案：A第16题（1.0分）题号:3233执行下面程序段后,变量c$的值为___ ___. a$= "Visual Basic Programming"b$= "Quick"c$=b$ & Ucase(Mid$(a$,7,6)) &Right$(a$,12)A:Visual BASIC ProgrammingB:Quick Basic ProgrammingC:QUICK Basic Programming D:Quick BASIC Programming答案：D第17题（1.0分）题号:2179当在滚动条内拖动滚块时触发()事件. A:KeyUpB:KeyPressC:ChangeD:Scroll答案：D第18题（1.0分）题号:3185函数Int(Rnd*11)+10产生的数值的范围是______.A:(0,10)B:[10,10]C:[10,20]D:(0,20)答案：C第19题（1.0分）题号:3254下面程序段输出的结果是Private Sub Command1_Click()x = 8For i = 0 To 20 Step 5x = x + iNextPrint "X="; xEnd SubA:X=210B:X=218C:X=50D:X=58答案：D第20题（1.0分）题号:3534执行指令"Line(1200,1200)-Step(1000,500),,B"后,CurrentX=A:2200B:1200C:1000D:1700答案：A四、程序设计共5题（共计50分）第1题（10.0分）题号:131'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
本科《计算机程序设计基础(VB)》试卷总分100注意：1. 一、二、三、四题为客观题，请将答案填涂在机读卡上。
2. 五、六题为主观题，请将答案做在主观答题纸上。
3. 考试试卷、机读卡、答题纸均按要求填写年级、班级、学号、姓名。
4. 考试试卷、机读卡、答题纸均不得带出考场，否则以0分计一．单项选择题（每小题1分，共20分）1．若要在文本框Text1中显示表达式a+b的值，应选用的语句是（）。
A．a+b = Text1 B．Text1.Text = a+bC．Text1.Caption = a+b D．Text1.Rem a+b2．执行语句Print 3+2后的显示结果为（）。
A．5 B．3+2 C．3 D．错误信息3．若要将某个命令按钮(CommandButton)设置为焦点，应使用（）方法。
A．Print B. SetFocus C. GotFocus D. LostFocus 4．命令按钮(CommandButton)不能响应的事件是（）。
A. ClickB. DbClickC. MouseDownD. MouseUp5．在VB中，对于没有赋值的数值变量，系统默认的值是（）。
A．0 B．―0‖C．1 D．-16．在复选框(CheckBox)中，Value的值为（）时，表示该复选框被选中。
A. 0B. 1C. 2D. 37．当鼠标在窗体上移动时，会发生（）事件。
A. MouseDownB. MouseUpC. MouseMoveD. DragDown8. 表达式19 Mod 3 的值是( )。
A. 1B. 2C. 3D. 49．若要得到11—99之间的随机整数(包括11和99)，正确的表达式是。
（）A．Int(Rnd*99) B．Int(Rnd*11)C．Int(Rnd*89+11) D．Int(Rnd*99+11)10．数学式cos300写成VB表达式是（）。
A. Cos(30)B. Cos(300)C. Cos30D. Cos(30*3.14/180) 11．表达式"12" & "56" 的结果为（）。
A. "1256"B. "2165"C. "5612"D. "68"12．下列合法的变量名为（）。
A. IfB. 56C. XY123D.―student‖13．用VB表达式正确表示―0≤X<10‖的是（）。
A.0<=X<10B.0≤X<10C.0<=X AND X<10D.0<X OR X<1014．在VB中，执行语句Line (20 ,20) – (100, 100) 后，输出数据的当前坐标位置为（）。
A．0，0 B．20，20 C．100，100 D．120，12015．函数 MsgBox 的返回值的数据类型为（）。
A．字符串型String B．整型IntegerC．日期型Date D．变体型Variant16．X$ = ―Visua l Basic 6.0‖，若要从X$中取出子字符串―Basic‖，可选用的语句是（）。
A．Right (X$,5) B．Right (X$,9) C．Mid (X$,7,5) D．Mid (X$,8,5)17．对窗体Form1编程，有Form1.BackColor=RGB(0,255,0)语句，则（）。
A．窗体Form1的背景色被设置为红色B．窗体Form1的背景色被设置为黑色C．窗体Form1的背景色被设置成绿色D．窗体Form1的背景色被设置成蓝色18．表达式14.3 \ 4.6的值是（）。
A．2 B．3 C．4 D．519．执行Print Int (12.34567 * 1000)／1000 后，显示的结果为( )。
A．12.000 B．12.346 C．12.345 D．12.345620．在窗体中有一组单选按钮OptionButton，在程序运行时( )。
A．无一个可以被选中B．单选按钮中只有一个被选中C．可以有多个被选中D．全部被选中二、多项选择题（每小题1分，共5分）要求：每题均有两个及两个以上正确答案，选出全部正确答案，错选和漏选均不得分。
21．在VB中，能使用Print方法输出数据的控件是( )。
A．窗体B．图片框PictureBox C．标签框LabelD．文本框TextBox E．命令按钮22．若变量x、y为整数且x<y，能产生一个大于等于x且小于等于y的随机整数的表达式为( )。
A．Int((y-x)*Rnd+1) B．Int((y-x+1)*Rnd)+xC．Int((y-x+1)*Rnd+x)D．Int((y-x)*Rnd+x) E．x+Int((y-x-1)*Rnd)23．下列符号中，是VB的算术运算符的有（）。
A．% B．& C．Mod D．And E．\24．下列语句错误的是（）。
A．If X<3*Y And X>Y Then Y=X-3B．If X<3*Y And X>Y Then Y=X3C．If X<3*Y : X>Y Then Y=X-3D．If X<3*Y And X>Y Then Y=X^3E．If X<3*Y And X>Y Y=X-325．下面选项中，（）是MouseDown事件中的参数。
A．Ctrl B．Shift C．Button D．Alt E．Tab三．是非题（每小题1分，共15分）要求：下列各题用―A‖表示正确，用―B‖表示不正确。
26．VB中，每一个控件都有Name 属性，Name 属性在程序运行中不能被修改。
27．VB中，时钟控件(Timer)无Visible属性。
28．命令按钮(CommandButton)其表面不可以显示图形。
29．在运行程序时，滚动条的Value属性的值必定是大于Min属性值且小于Max属性值的。
30．VB中，画直线只能用Line方法。
31．对于一个控件，若其Enabled = False，则不能响应对其的操作。
32．时钟控件(Timer)的Interval属性值为500，则触发Timer事件过程的时间间隔为0.5秒。
33．在VB中，未作任何声明的变量的数据类型为Variant型。
34．在VB中，用Circle方法可以画圆、椭圆、弧和扇形。
35．函数Len ( “100/5” )返回的值是20。
（是5）36．在For/Next循环中，循环结束后循环控制变量的值一定等于终值。
37．为了实现根据图像框控件（Image）的大小来改变图像大小功能，必须将其Stretch 属性的值设置为True。
38．语句Dim x, y, z As Integer 能将变量x、y、z都声明成整型变量。
39．Byte类型的数据，其数值范围在-255～255之间。
（0~225）40．函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值。
四．读程序（每题2分，共20分）41．在窗体（Form1）上添加一个文本框Text1和一个命令按钮Command1，然后编写一个事件过程。
要求：运行程序，在文本框中输入一个任意字符，单击命令按钮，该命令按钮的标题变成“计算机考试”。
以下能实现上述操作的事件过程是（）。
A. Private Sub Command1_Click()Text1.Text=―计算机考试‖End SubB. Private Sub Command1_Click()Command1.Caption=“计算机考试”End SubC. Private Sub Form_Click()Text1. Caption=―计算机考试‖End SubD. Private Sub Form_Click()Command1.Caption=―计算机考试‖End Sub42．下列程序运行时，若在文本框Text1中输入2，Y的值为（）。
Private Sub Command1_Click()X = Val (Text1.Text)Select Case XCase Is < 5 : Y = 5Case Is < 3 : Y = 3Case Else : Y = 2End SelectEnd SubA．2 B．3 C．5 D．出错43．运行下列程序，单击窗体后，显示的结果为（）。
Private Sub Form_Click()Dim X(0 To 5) As Integer, N As IntegerFor N = 0 To 5X(N) = NS = S + X(N)Next NPrint "S="; SEnd SubA．S= 15 B．S= 16 C．15 D．16 44．运行下列程序段后，变量A的值为（）。
X = 0 :A = 3Do While A > 0X = X + 1A = A - 1LoopA．3 B．2 C．1 D．045．下列程序运行后，在Text1、Text2、Text3中依次输入3、4、5后，单击窗体，Label1的显示结果为（）。
Private Sub Form_Click()Dim a As Single, b As Single, c As Singlea = Text1.Text:b = Text2.Text:c = Text3.TextLabel1.Caption = Str(a * a + 2 * b * b + 3 * c * c)End SubA．116 B．117 C．118 D．11946．运行下列程序，单击窗体，在窗口上显示为（）。
Private Sub Form_Click()Dim a As Integera = 4Print a = 3 + 2End SubA．4 B．5 C．True D．False47．运行下列程序，单击窗体，在窗口上显示为（）。
Private Sub Form_Click()Dim a!, c!For a = 3.2 To 0.5 Step -0.1c = c + 1Next aPrint cEnd SubA．28 B．27 C．0.4 D．报错信息48．运行下列程序，单击窗体，在窗口上显示为（）。
Private Sub Form_Click()Dim a%(1 To 5), N%For N = 5 To 1 Step -1a(N) = NNext NPrint a(N)End SubA．1 B．a(1) C．a(0) D．报“下标越界”错49．运行下列程序，单击窗体，在窗口上显示为（）。