VB二级考试模拟试题2
计算机vb二级考试试题及答案
计算机vb二级考试试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. DoubleD. Object答案：D2. VB中，以下哪个关键字用于声明变量？A. DimB. SetC. ConstD. Function答案：A3. 在VB中，以下哪个选项不是控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Sub答案：D4. 在VB中，以下哪个方法用于打开一个文件？A. OpenC. WriteD. Read答案：A5. VB中，以下哪个属性用于设置文本框的只读属性？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A6. 在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. ValD. Sgn答案：A7. VB中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A8. 在VB中，以下哪个关键字用于循环结构？B. UntilC. LoopD. All of the above答案：D9. VB中，以下哪个属性用于获取或设置文本框中的文字？A. TextB. CaptionC. ValueD. Name答案：A10. 在VB中，以下哪个方法用于将一个字符串转换为数字？A. ValB. StrC. CIntD. CDbl答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个数组。
答案：Dim2. VB中，使用________函数可以将字符串转换为整数。
答案：CInt3. 当需要在VB中创建一个自定义函数时，应使用关键字________。
答案：Function4. 在VB中，使用________方法可以关闭一个已经打开的文件。
国家二级VB机试(对象及其操作、Visual Basic程序设计基础)模拟试卷2
国家二级VB机试（对象及其操作、Visual Basic程序设计基础）模拟试卷2(题后含答案及解析)题型有：1. 选择题选择题1．假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是( )。
A．单击窗体上没有控件的地方B．单击任意一个控件C．双击任意一个控件D．单击属性窗口的标题栏正确答案：A解析：单击窗体上没有控件的地方，在属性窗口就会出现窗体的各属性，这样就可对窗体的属性进行设置，故A选项正确。
单击任意一个控件，在属性窗口中出现的是该控件的属性，故B选项错误；双击任意一个控件，打开的是“代码窗口”，故C选项错误；单击属性窗口的标题栏，属性窗口成为活动窗口，故D选项错误。
知识模块：对象及其操作2．为了在运行时能显示窗体左上角的控制框(即系统菜单)，应执行的操作是( )。
A．把窗体的ControlBox属性设置为False，其他属性任意B．把窗体的ControlBox属性设置为True，并且把BorderStyle属性设置为1到5中的一个数C．把窗体的ControlBox属性设置为True，并且把BorderStyle属性设置为0 D．把窗体的ControlBox属性设置为Fale，并且把BorderStyle属性设置为1到5中的一个数正确答案：B解析：ControlBox属性：运行程序时该属性有效。
在窗体标题栏左边设置一个任务列表，点击窗体图标左上角显示系统菜单。
True：能显示系统菜单，False：不能显示系统菜单。
BorderStyle属性：为窗体等对象设置边框的样式。
0—None：窗体无边框。
1—FixeSingle：程序运行后窗体大小不被改变，单线边框。
2—Sizable：程序运行后窗体大小可以被改变，双线边框。
3—FixedDouble；程序运行后窗体大小不被改变，双线边框。
4—FixedToolWindow：程序运行后窗体大小可以被改变，单线边框。
国家二级VB机试(程序设计基础)模拟试卷2(题后含答案及解析)
国家二级VB机试（程序设计基础）模拟试卷2(题后含答案及解析) 题型有：1. 选择题选择题1．以下自定义数据类型的语句中，正确的是( )。
A．Type student ID As String * 20 name As String * 10 age As IntegerEnd studentB．Type student ID As String * 20 name As String * 10 age As IntegerEnd TypeC．Type student ID As String name As String age As IntegerEnd studentD．Type ID As String * 20 name As String * 10 age As IntegerEnd Type student正确答案：B解析：自定义数据类型的语法结构是：Type自定义类型名<成员名1>[(下标)] As<标准类型名1> <成员名2>[(下标)] As<标准类型名2> ……End Type 其中，成员可以定义为定长的或不定长字符串，也可定义为数组。
本题中，B选项符合语法规则，故B选项正确。
知识模块：程序设计基础2．以下变量名中合法的是( )。
A．x2-1B．PrintC．str_nD．2x正确答案：C解析：Visual Basic中变量名的命名规则：①必须以字母或汉字开头②由字母、汉字、数字或下画线组成③不能使用Visual Basic的保留字。
本题中x2-1中有-(减号)，不是下画线。
print是Visual Basic的保留字，也不能作变量名。
2x以数字开头，也是错误的。
故C选项正确。
知识模块：程序设计基础3．以下变量名中合法的是( )。
A．x-2B．12abeC．sum_totalD．print正确答案：C解析：根据Visual Basic中变量名的命名规则，变量x-2中有一减号，不合法；变量12abc是以数字开头，不合法；变量print是Visual Basic的保留字，不能作变量名，也不合法。
计算机等级考试二级VB模拟试题一及答案解析
计算机等级考试二级VB模拟试题一及答案解析知识点复习：形参：指出现在Sub 和Function过程形参表中的变量名、数组名，过程被调用前，没有分配内存，其作用是说明自变量的类型和形态以及在过程中的角色。
形参可以是：1）除定长字符串变量之外的合法变量名；2）后面跟（）括号的数组名。
实参：是在调用Sub 和Function过程时，传送给相应过程的变量名、数组名、常数或表达式。
在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来。
一、选择题(1) 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成A) 动态结构和静态结构B) 紧凑结构和非紧凑结构C) 线性结构和非线性结构D) 内部结构和外部结构正确答案: C(2) 设一棵二叉树中有3个叶子结点，有8个度为1的结点，则该二叉树中总的结点数为A) 12B) 13C) 14D) 15正确答案: B(3) 在下列几种排序方法中，要求内存量最大的是A) 插入排序B) 选择排序C) 快速排序D) 归并排序正确答案: D(4) 下列叙述中，不属于结构化程序设计方法的主要原则的是A) 自顶向下B) 由底向上C) 模块化D) 限制使用goto语句正确答案: B(5) 下列不属于软件调试技术的是A) 强行排错法B) 集成测试法C) 回溯法D) 原因排除法正确答案: B(6) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为A) PAD图B) N-S图C) 结构图D) 数据流图正确答案: B(7) 软件复杂性度量的参数包括A) 效率B) 规模C) 完整性D) 容错性正确答案: B(8) 下列叙述中，不属于数据库系统的是A) 数据库B) 数据库管理系统C) 数据库管理员D) 数据库应用系统正确答案: B(9) 数据库系统的核心是A) 数据库B) 数据库管理系统C) 数据模型D) 软件工具正确答案: B(10) 视图设计一般有3种设计次序，下列不属于视图设计的是A) 自顶向下B) 由外向内C) 由内向外D) 自底向上来源正确答案: B(11) 下列说法错误的是A) 标准模块的扩展名是.basB) 标准模块由程序代码组成C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体正确答案: C(12) 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性A) ValueB) VisibleC) DefaultD) Enabled正确答案: D(13) 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是A) 设置Enabled的值为TrueB) 设置TabIndex的值为1C) 设置TabIndex的值为0D) 设置Index的值为0正确答案: C(14) 下列几项中，属于合法的日期型常量的是A) "10/10/02"B) 10/10/02C) {10/10/02}D) #10/10/02#正确答案: D(15) 下列程序段的执行结果为A=2B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A) TrueB) FalseC) -1D) 1正确答案: B(16) 以下语句的输出结果是a=Sqr(26)Print Format$ (a, "$####.###")A) $5.099B) 5.099C) 5099D) $0005.099正确答案: A(17) 标签控件能够显示文本信息，决定其文本内容的属性是A) AlignmentB) CaptionC) VisibleD) BorderStyle正确答案: B(18) 在属性窗口中，加载指定的图形放入当前对象中的属性是A) CurrentYB) PictureC) CurrentXD) Caption正确答案: B(19) 在使用应用程序时，常常用作在单击时执行指定的操作的控件是A) 命令按钮B) 图片框C) 复选框D) 单选按钮正确答案: A(20) 当直线或形状的BorderStyle属性设置为1时，控件是A) 虚线B) 点线C) 不可见D) 实线正确答案: D正确答案: B(21) 通过设置何属性可以改变所画图形的形状？A) ShapeB) IndexC) EnabledD) Height正确答案: A(22) 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()s=1Dos=(s + 1) * (s + 2)Number=Number + 1Loop Until s >=30Print Number, sEnd Sub程序运行后，输出的结果是A) 2 3B) 2 56C) 5 12D) 10 20正确答案: B(23) 下列程和序段的执行结果为x=Int(Rnd() + 9)Select Case xCase 10Print "excellent"Case 9Print "good"Case 8Print "pass"Case ElsePrint "fail"End SelectA) excellentB) goodC) passD) fail正确答案: B(24) 下列程序段的执行结果为a=75If a > 60 Then Score=1If a > 70 Then Score=2If a > 80 Then Score=3If a > 90 Then Score=4Print " Score="; ScoreA) Score＝1B) Score＝2C) Score＝3D) Score＝4正确答案: B(25) 下列程序段的执行结果为I=1x=5DoI=I + 1x=x + 2Loop Until I >=7Print "I="; IPrint "x="; xA) I＝4x＝5B) I＝7x＝15C) I＝6x＝8D) I＝7x＝17正确答案: D(26) 下面的程序的运行结果是a=1b=1Doa=a^2b=b + 1Loop Until b > 5Print "k="; a; Spc(4) ; "b="; b + aA) k＝7b＝14B) k＝6b＝6C) k＝4b＝8D) k＝1b＝7正确答案: D(27) 单击命令按钮，下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=32: y=42Call PCS(x, y)Print x; yEnd SubPublic Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1m=m Mod 10+1End SubA) 32 42B) 2 32C) 2 3D) 12 3正确答案: A(28) 下列程序的执行结果为Private Sub Command1_Click()Dim s1 As String, s2 As Strings1="abcd"Call Transfer(s1, s2)Print s2End SubPrivate Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As Stringi=Len(xstr)Do While i >=1tempstr=tempstr + Mid(xstr, i, 1)i=i - 1Loopystr=te mpstrEnd SubA) dcbaB) abdcC) abcdD) dabc正确答案: A(29) 单击命令按钮，下列程序的执行结果是Private Sub Blck(x As Integer)x=x * 2 + 1If x < 6 ThenCall Blck(x)End Ifx=x * 2 + 1Print x;End SubPrivate Sub Command1_Click()Blck 2End SubA) 23 47B) 10 36C) 22 44D) 24 50正确答案: A(30) 有如下程序：Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Gad (A)Next iEnd SubFunction Gad (a As Integer)b=0Static cb=b + 1c=c + 1Gad=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为A)123B) 234C) 456D) 146正确答案:c(31) 下列过程定义语句中，参数不是对象的定义语句是A) Sub Pro4(x As Form)B) Sub Pro4(y As Control)C) Sub Pro4(Form1 As Form,Labell As Control)D) Sub Pro4(x As Currency)正确答案: D(32) 下列说法正确的是A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器D) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器正确答案: D(33) 下列各选项说法错误的一项是A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D) 通用对话框的名称属性的默认值为CommonDialogX(X＝1，2……) ，此外，每种对话框都有自己的默认标题正确答案: B(34) 下列数组定义语句错误的是A)k%=10Dim Arr(k)B)Const k%=10Dim Arr(k)C)Dim Arr1(10) As IntegerDim Arr2 (10)D)Dim Arr1(1 To 10)Dim Arr2(1 To 10, 2 To 11)正确答案: A(35) 在Visual Basic中按文件的数据性质不同，可将文件分为A) 数据文件和程序文件B) 文本文件和数据文件C) 顺序文件和随机文件D) ASCII文件和二进制文件正确答案: A二、填空题(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【1】。
《Visual Basic程序设计》 模拟试题二和答案
广东省高等教育自学考试《Visual Basic程序设计》模拟试题二（课程代码 07759）一、单项选择题（本大题共16小题，每小题1分，共16分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。
错选、多选或未选均无分。
1.下列能从字符串“Microsoft”中直接取出子字符串“Micro”的函数是 ( )A.MidB. LeftC.InstrD. String2.下列不合法．．．的Visual Basic变量名是（）A.c_bB. andifC.cb6D. _xyz3.如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（）A.FalseB. TrueC.-1D. 14.在窗体上有一名称为Text1的文本框，影响Text1的输入量最大字符数量的属性是（）A.VisibleB. TabStopC.MaxLengthD. SelLength5.InputBox函数的返回值类型是（）A.字符串型B.变体型C.数值型D.数值或字符串型（视输入的数据而定）6.设a=8,b=6，则执行x=IIf(b\a*a=10,0,-1)后，x的值为（）A.1B.0C.使用错误D.-17.当某个控件获得焦点时，将会触发的事件是（）A.SetTocusB.GotFocusC.ReceiveFocusD.无事件触发8.类模块文件的扩展名为（）A. .clsB. .frxC. .basD. .vbp9.将CommonDialog通用对话框设置为“另存为”对话框，须选择的方法为（）A.ShowOpenB.ShowColorB.C.ShowSave D.ShowFont10.对窗体进行操作时，能实现将窗体装入内在和显示的方法是（）A.HideB.UnloadB.C.Load D.Show11.按照数据的编码方式，文件可以分为（）A.程序文件和数据文件B.顺序文件和随机文件C.ASCII文件和二进制文件D.磁盘文件和打印文件12.在菜单项的属性中，能使该菜单项失效的属性是（）A.EnabledB.CheckedB.C.Visible D.Caption13.要想从过程调用后返回一个整数型结果，则下列过程说明正确的是（）A. Sub f1 (Byval x As Single) As IntegerB. Function f2 (Byval x As Integer) As SingleC. Sub f3 (x As Integer) As SingleD. Function f4 (x As Integer) As Integer14.语句Dim Arr (-4 To 3) 定义的数组Arr的元素个数是（）A.7B.8C.9D.1015.为将多个语句放在同一行中书写，下列合法的语句行为（）A. x=1: y=5:z=10B. x=1.y=5.z=10C. x=1,y=5,z=10D. x=1;y=5;z=1016.在窗体Forml上显示字符“Hello”的正确语句是（）A. Forml.Display”Hello”B. Forml.Print”Hello”B. C.Forml.Output”Hello” D. Forml.Write”Hello”二、判断改错题（本大题共10小题，每小题2分，共20分）判断下列每小题的正误。
国家二级VB机试(选择题)模拟试卷2(题后含答案及解析)
国家二级VB机试（选择题）模拟试卷2(题后含答案及解析)题型有：1. 选择题选择题1．在窗体上画一个名称为Commandl的命令按钮，并编写如下程序：Function Fun(x) y=0 If x＜10 Then y=x Else y=y+10 End If Fun=y End Function Private Sub Command l_Click( ) n=InputBox(”请输入一个数”)：n=Val(n) P=Fun(n)：Print P End Sub 运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100，并单击“确定”按钮，则输出结果为A．10B．100C．1 10D．出错信息正确答案：A解析：本题是一个简单的函数调用，在函数中会判断参数x的值，根据x 的值不同执行If语句的不同分支。
由于实际参数为100不满足x＜10，因此函数返回值为10。
2．设有如下事件过程：Private Sub Command l_Click( )Dim aa=Anrray(12，3，8，5，10，3，5，9，2，4)For k=1 To 9 Print fun(a(k-1)，a(k))；””；Next k End Sub Private Function fun(x，y)As IntegerDo While x＞：y x=x-yLoopfun=x End Function 程序运行时的输出结果是A．4 0 1 0 3 0 0 4 0B．0 3 3 5 1 3 5 1 2C．9-5 3-5 7-2-4 7-2D．9 3 3 5 7 3 5 7 2正确答案：B解析：本题中函数fun的作用是当第一个形参比第二个形参大或着相等的时候让它减去第二个形参，直到比第二个形参小为止；在按钮的单击事件中循环调用9次函数，每次都用数组的前一个元素和后一个元素作为函数的实参，所以应输出的是12-3-3-3-3、3、8-5、5、10-3、3、5、9-2、2。
计算机vb二级考试试题及答案
计算机vb二级考试试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，下列哪个选项是正确的变量声明方式？A. Dim a$B. Dim a% IntegerC. Dim a As IntegerD. Dim a Integer答案：C2. 下列哪个函数用于计算一个数的平方？A. SqrB. AbsC. RoundD. Sq答案：A3. 在Visual Basic中，哪个控件用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B4. 下列哪个选项是正确的Visual Basic程序结构？A. Sub Main()B. Function Main()C. Procedure Main()D. Process Main()答案：A5. 在Visual Basic中，哪个关键字用于声明一个子程序？A. FunctionB. SubC. ClassD. Module答案：B6. 下列哪个选项是正确的数组声明方式？A. Dim arr(10)B. Dim arr As Integer(10)C. Dim arr(10) As IntegerD. Dim arr Integer(10)答案：C7. 在Visual Basic中，哪个控件用于创建下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B8. 下列哪个选项是正确的条件语句？A. If condition ThenB. If condition BeginC. If condition Then ElseD. If condition Begin Else答案：C9. 在Visual Basic中，哪个关键字用于退出当前的循环？A. ContinueB. ExitC. BreakD. Return答案：C10. 下列哪个选项是正确的Visual Basic事件处理方式？A. Function eventname()B. Sub eventname()C. Procedure eventname()D. Call eventname()答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个全局变量。
国家二级VB机试(综合应用题)模拟试卷2(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷2(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt5．vbp，在其窗体中有一个实心圆。
程序运行时，当用鼠标左键单击窗体任何空白位置时，实心网则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。
窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控仲属性。
最后将修改后的文件按原文件名存盘。
正确答案：【操作步骤】步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案Dim stepy As Integer ‘纵向移动增量Dim Stepx As Integer ‘横向移动增量Const LEFT BUTTON＝1 Private Sub Form_MouseDown(Button As Integer，Shift As Integer，x As Single，y As Single) Dim x0 As Integer，y0 As Integer，a As Single，radius As_Integer radius＝Shapel．Width／2 ‘圆的半径If Button＝LEFT BUTTON Then ‘单击鼠标左键移动x0＝Shapel．Left＋radius’圆心的x坐标y0＝Shapel．Top＋radius’圆心的y坐标If x＝x0 Then’垂直移动stepy＝Sgn(y－y0)*50 stepx＝0 Else’倾斜移动a＝(y－y0)／(x－x0)’斜率stepx＝Sgn(x－x0)*50 stepy＝a*stepx ‘通过stepx确定stepy的值If Abs(stepy)＞Abs(stepx)Then stepy＝Sgn(y－y0)*50 stepx＝stepy／a End If End If Timer1．Enabled＝True’单击鼠标左键则触发Timer事件E1se Timer1．Enabled＝False’单击鼠标右键则停止Timer事件End If End Sub Private Sub Timer1_Timer( ) Shape1．Move Shape1．Left＋stepx，Shapel．Top＋stepy’移动shapel End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
计算机二级vb模拟考试试题及答案
计算机二级vb模拟考试试题及答案一、单选题1. 下面哪个选项是VB的内置数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 在VB中，用于表示两个选项互斥关系的控件是？A. RadiobuttonB. CheckboxC. ComboboxD. Listbox答案：A3. 下面哪个事件是在窗体加载时发生？A. LoadB. ClickC. MouseHoverD. KeyPress答案：A4. 在VB中，用于将文本显示在标签控件上的属性是？A. TextB. ValueC. CaptionD. Name答案：C5. 在VB中，用于打开文件选择对话框的控件是？A. OpenFileDialogB. SaveFileDialogC. FolderBrowserDialogD. PrintDialog答案：A二、填空题1. 在VB中，用于声明一个整型变量的关键字是________________。
答案：Dim2. 在VB中，用于判断条件的关键字是________________。
答案：If3. 在VB中，用于循环执行代码块的关键字是________________。
答案：For4. 用于将字符串转换为整型的函数是________________。
答案：CInt5. 用于将字符串转换为小数类型的函数是________________。
答案：CDbl三、编程题1. 编写一个VB程序，实现计算两个数相加的功能，并在窗体上显示结果。
答案：```vbPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(TextBox1.Text)num2 = CInt(TextBox2.Text)result = num1 + num2Label1.Text = "结果：" & result.ToString()End SubEnd Class```2. 编写一个VB程序，实现输入一个整数n，计算并输出1到n的所有偶数之和。
计算机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，则窗体上显示的是 。
计算机程序设计-VisualBasic【VB】考试试题(2)
A、 Enabeld B、 Hide C、 Visible D、 BackColor 正确答案： C 解析：
39、窗体对象的__________属性可用于设置窗体上的控制菜单。
A、 MinButton B、 MaxButton C、 ControlBox D、 DrowMode 正确答案： C 解析：
A、 6 B、 8 C、 123445 D、 123456 正确答案： C 解析：
31、从字符串中任意位置截取字符的函数是_________。
A、 Left() B、 Mid() C、 Str() D、 Right() 正确答案： B 解析：
32、表达式 InStr(2,"文本文件","文") 的值是________。
A、 1 B、 0 C、 False D、 True 正确答案： C 解析：
13、下面所列中，__________是合法的字符常数。
A、 ABC B、 'ABC' C、 "ABC" D、 ABC$ 正确答案： C 解析：
14、下面所列中，__________是不合法的单精度常数。
A、 100！ B、 100.0 C、 1E+2 D、 100.0D+2 正确答案： D 解析：
25、表达式 Format(val("111a"),"##.##") 的值是_______。
A、 111. B、 11.10 C、 111.00 D、 11.1a 正确答案： A 解析：
26、表达式 Fix(5.6)+Int(-5.6) 的值是________。
国家二级VB机试(过程)模拟试卷2(题后含答案及解析)
国家二级VB机试（过程）模拟试卷2(题后含答案及解析)题型有：1. 选择题选择题1．以下关于VB特点的叙述中，错误的是( )。
A．VB采用事件驱动的编程机制B．VB程序能够以解释方式运行C．VB程序能够以编译方式运行D．VB程序总是从Form_load事件过程开始执行正确答案：D解析：在一般情况下，整个应用程序从设计时的第一个窗体开始执行，需要首先执行的程序代码放在Form Load事件过程中。
如果需要从其他窗体开始执行应用程序，则可通过“工程”菜单中的“工程属性”命令(“通用”选项卡)指定启动窗体。
但是，如果有Sub Main过程，则可以(注意，是“可以”，而不是“必须”)首先执行Sub Main过程。
知识模块：过程2．如果把程序的启动对象设置为Sub Main，则Sub Main过程( )。
A．只能写在Form1窗体中代码的最前面B．可以写在Form1窗体中代码的任何位置C．只能写在某个标准模块的代码中D．可以写在任何窗体或标准模块的代码中正确答案：C解析：在运行窗体程序之前先执行一些操作，此时可以通过在标准模块中创建一个Sub Main的子过程，不能在窗体模块中创建Sub Main的子过程，然后在创建的SubMain过程中编写启动时要执行的代码，每个工程只能有一个Sub Main 的子过程。
知识模块：过程3．设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码：Private Sub Form_Load( ) Image1．Picture=LoadPicture(“LEAF．bmp”) Image2．Picture=LoadPicture(“OPEN．bmp”) Image3．Visible=False End Sub Private Sub Image1_Click( ) Image2．Picture=Image1．Picture End Sub Private Sub Image2_Click( ) Image3．Picture=Image2．Picture Image2．Picture=Image1．Picture Image1．Picture=Image3．Picture End Sub在程序运行期间单击Image2，则在窗体上看到的结果是( )。
国家二级计算机vb考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。
答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。
答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。
答案：Dim4. VB中，使用____关键字可以定义一个过程。
答案：Sub5. VB中，使用____关键字可以定义一个函数。
答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。
计算机vb二级考试试题及答案
计算机vb二级考试试题及答案一、选择题（每题2分，共20分）1. VB中用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Let答案：A2. 在VB中，下列哪个选项不是合法的变量名？A. _myVariableB. 123VariableC. myVariableD. Variable$答案：B3. VB中，用于结束一个循环的语句是：A. ContinueB. ExitC. BreakD. Stop答案：B4. 在VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Length()C. StrLen()D. Size()答案：A5. 下列哪个选项不是VB中的流程控制语句？A. If...ThenB. For...NextC. Do...LoopD. Switch...Case答案：D6. VB中，用于定义一个类模块的关键字是：A. ClassB. ModuleC. FormD. Sub答案：A7. 在VB中，下列哪个选项是正确的事件处理程序的声明方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Private Function Button1_Click()D. Public Function Button1_Click()答案：A8. VB中，用于创建一个数组的语句是：A. Dim arr(5) As IntegerB. Dim arr As Integer(5)C. Dim arr As Integer[5]D. Dim arr(5) As Integer()答案：A9. 在VB中，下列哪个选项不是合法的数值类型？A. IntegerB. DoubleC. StringD. Long答案：C10. VB中，下列哪个选项是正确的字符串连接操作？A. "Hello" & "World"B. "Hello" || "World"C. "Hello" + "World"D. "Hello" ||| "World"答案：A二、填空题（每题2分，共10分）1. 在VB中，使用________函数可以将数字转换为字符串。
二级vb考试试题及答案
二级vb考试试题及答案一、单选题（每题2分，共10题）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. SubD. Function答案：A2. 如果要在一个窗体上显示一个按钮，应该使用哪个控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：C3. Visual Basic中的事件驱动编程意味着什么？A. 程序在事件发生时执行代码B. 程序在用户输入时执行代码C. 程序在定时器触发时执行代码D. 程序在启动时执行所有代码答案：A4. 下列哪个不是Visual Basic的数据类型？A. IntegerB. StringC. BooleanD. Float答案：D5. 在Visual Basic中，如何使用循环结构来重复执行一段代码？A. 使用If语句B. 使用For...Next语句C. 使用While...Wend语句D. 使用Select Case语句答案：B6. Visual Basic中，哪个函数用于计算数组中元素的总和？A. SumB. CountC. AverageD. Max答案：A7. 在Visual Basic中，如何声明一个名为“myString”的字符串变量？A. Dim myString As IntegerB. Dim myString As StringC. Dim myString As BooleanD. Dim myString As Double答案：B8. Visual Basic中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A9. 在Visual Basic中，如何将一个变量的值赋给另一个变量？A. 使用赋值运算符“=”B. 使用比较运算符“==”C. 使用逻辑运算符“&&”D. 使用算术运算符“+”答案：A10. Visual Basic中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B二、填空题（每题2分，共5题）1. 在Visual Basic中，使用________关键字可以定义一个过程。
vb二级计算机考试试题及答案
vb二级计算机考试试题及答案一、单选题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Type答案：A2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. 在VB中，用于定义类模块的关键字是：A. ClassB. ModuleC. FormD. Interface答案：A4. VB中，用于读取文件内容的函数是：A. DirB. FileGetC. FileOpenD. FilePut答案：C5. 在VB中，下列哪个选项不是数组的声明方式？A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案：D6. VB中，用于创建一个窗体的关键字是：A. FormB. DialogC. WindowD. Frame答案：A7. VB中，用于实现事件驱动编程的关键字是：A. EventB. SubC. FunctionD. Property答案：B8. 在VB中，下列哪个选项不是字符串函数？A. LeftB. RightC. MidD. Round答案：D9. VB中，用于定义常量的关键字是：A. DimB. ConstC. StaticD. Private答案：B10. VB中，下列哪个选项不是循环结构？A. For EachB. ForC. Do WhileD. If答案：D二、填空题（每题2分，共20分）1. VB中，用于声明全局变量的关键字是________。
答案：Public2. VB中，用于定义一个过程的关键字是________。
答案：Sub3. 在VB中，用于定义一个函数的关键字是________。
国家二级VB机试公共基础知识模拟试卷2_真题-无答案
国家二级VB机试（公共基础知识）模拟试卷2(总分60,考试时间90分钟)1. 选择题1. 有二叉树如下图所示：则前序序列为( )。
A. ABDEGCFHB. DBGEAFHCC. DGEBHFCAD. ABCDEFGH2. 设二叉树的前序序列为ABDEGHCFIJ，中序序列为DBGEHACIFJ。
则后序序列为( )。
A. JIHGFEDCBAB. DGHEBIJFCAC. GHIJDEFBCAD. ABCDEFGHH3. 某二叉树的中序遍历序列为CBADE，后序遍历序列为CBEDA，则前序遍历序列为( )。
A. CBADEB. CBEDAC. ABCDED. EDCBA4. 某二叉树的前序序列为ABCDEFG，中序序列为DCBAEFG，则该二叉树的深度(根结点在第1层)为( )。
A. 2B. 3C. 4D. 55. 某完全二叉树按层次输出(同一层从左到右)的序列为ABCDEFGH。
该完全二叉树的前序序列为( )。
A. ABCDEFGHB. ABDHECFGC. HDBEAFCGD. HDEBFGCA6. 设非空二叉树的所有子树中，其左子树上的结点值均小于根结点值，而右子树上的结点值均不小于根结点值，则称该二叉树为排序二叉树。
对排序二叉树的遍历结果为有序序列的是( )。
A. 前序序列B. 中序序列C. 后序序列D. 前序序列或后序序列7. 设二叉树中共有15个结点，其中的结点值互不相同。
如果该二叉树的前序序列与中序序列相同，则该二叉树的深度为( )。
A. 4B. 6C. 15D. 不存在这样的二叉树8. 在长度为n的顺序表中查找一个元素，假设需要查找的元素一定在表中，并且元素出现在表中每个位置上的可能性是相同的，则在平均情况下需要比较的次数为( )。
A. n／4B. nC. 3n／4D. (n+1)／29. 在长度为n的顺序表中查找一个元素，假设需要查找的元素有一半的机会在表中，并且如果元素在表中，则出现在表中每个位置上的可能性是相同的。
国家二级VB机试(上机操作)模拟试卷2(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷2(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Forml的窗体上画两个名称分别为Frame1、Frame2的框架，标题分别为”字号”、”修饰”；在Frame1中画两个单选按钮，名称分别为Optionl、Option2，标题分别为”10号字”、”20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为”下划线”。
运行后的窗体如图2-34所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjt1．frm。
正确答案：步骤1：新建一个”标准EXE”工程，如表3-18在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
2．在名称为Forml的窗体上从上到下画两个文本框，名称分别为Textl、Text2；再画一个命令按钮，名称为Commandl，标题为”选中字符数是”。
程序运行时，在Textl中输入若干字符，选中部分内容后，单击”选中字符数是”按钮，则在Text2中显示选中的字符个数(如图2-35所示)。
请编写按钮的Click事件过程。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：步骤1：新建一个”标准EXE”工程，如表3-19所列在窗体Forml 中画出控件并设置它们的属性。
步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Commandl_Click( )Text2．Text=Forml．Textl．SelLengthEnd Sub简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。
程序运行后，单击”读入数据”按钮，可把考生文件夹下in3．txt文件中的所有英文单词读入，并显示在Textl文本框中；单击”插入列表框”按钮，则按顺序把每个单词作为一项添加到Listl列表框中(如图2-36所示)。
计算机二级VB考试题及答案
计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB二级考试模拟试题2一．单项选择题（每题一分，共40分）1.在计算机领域中，MIPS 通常用来描述计算机的A运算速度 B 内存容量 C 分辨率D主频2.下面属于计算机输出设备的是A显示器B鼠标C键盘D扫描仪3.微型计算机在突然断电，则中的信息全丢失。
A硬盘 B RAM C ROM D光盘4.若X是二进制数1011，Y是十进制数13，Z是十六进制1D，则X，Y，Z从大到小的顺序是。
（X,Y,Z都无符号数）A Z Y XB Y Z XC X Y ZD Z X Y5.在Windows中，下面关于删除文件的描述错误的是A U盘上的文件被删除，不能从回收站中还原B 可以不经过回收站直接删除文件C 可以将文件先复制到回收站，需要时再将其从回收站还原D 利用“清空回收站”选项可以把回收站中的文件全部删除6.下面关于E-mail功能的描述中，错误的是A 在发送电子邮件时，可以同时发送给多人B 在发送电子邮件时，可以发送附件C 在发送电子邮件时，可以将附件下载到本地计算机上D 在发送电子邮件时，必须将附件下载到本地计算机上7.为减少多媒体数据所占储存空间，常采用技术。
A 高速缓冲B 数据压缩C 多通道D 流媒体8. 中“http”指的是A 计算机主机域名B 文件传输协议Ｃ超文本传输协议ＤTCP/IP协议９.下面关于计算机病毒的叙述中，正确的是Ａ计算机病毒不能感染安装了杀毒软件的计算机系统Ｂ计算机病毒只能通过网络传播Ｃ计算机病毒不能感染加密或压缩的文件Ｄ计算机病毒可以通过Ｕ盘进行传播10.下面系统软件中，最核心是Ａ编译系统Ｂ语言处理系统Ｃ操作系统Ｄ数据库管理系统11. 在Visual Basic6.0的设计模式下，双击窗体上的某个控件，打开的窗口是_________.A)工程资源管理窗口B）代码窗口C）属性窗口D）工具箱窗口12. 以下叙述错误的是_______.A) 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）程序运行时，双击一个窗体，则出发该窗体的DblClick事件C）Visual Basic6.0 应用程序只能以解释方式执行D）事件可以由用户触发，也可以由系统触发13．以下不属于Visual Basic6.0 系统的文件类型是________.A）.Frm B）.Bas C) .Cpp D) .Vbp14. 在Visual Basic6.0 中编写代码，如果要强制显示声明变量，可在窗体模块或标准模块的声明中加入语句________.A)Option Explicit B)Option Compare C)Option Base 0 D)Option Base 115.下列选项中_______不是Visual Basic常量.A) “Good Luck”B)PI C)1.5E –03 D)16.341216. 以下声明语句中错误的是______A）Const varl = 123 B）Dim varl =“abc”C) Public varl As Integer D）Static varl As Integer17骰子是一个正六面体，分别用1~6代表其六个面，掷一次骰子出现的数可表示为_____【A】A）Int（Rnd*6+1）B）Int（Rnd*6）C）Int（Rnd*7）D）Int（Rnd（6）+1）18. 声明变量n为整型，执行语句n=4.5后，_______ 【VB存在BUG】A）n的值为4 B）n的值为5 . C）n的值为4.5 D）出错19. 表达式4+5\6*7/8的值是_______ 运算次序注：* / 优先级高于\A）4 B）5 . C）6 D）720. MsgBox（）函数返回值的类型是_____A）日期型B）字符型C)逻辑型D）整型21. 阅读下面的程序段：【x=InputBox（“请输入第一个数”）y= InputBox（“请输入第二个数”）Print x + y当输入22和33时，程序输出为_______A）22 B）33. C）55 D）223322. 假设A=“Good Morning”，B=“Afternoon,Boys.”,下列_____表达式的结果是“Good Boys.”A）Left（A，5）+Right（B，5）B）Right（A，5）+ Left（B，5）C）Mid（A，1，5）+Mid（B，1，6）D）Right（A，5）+ Right（B，5）23. 能正确执行的语句是_______A) x=Sin45°B) x=Sin(45)C) x=Sin(45*3.14/180) D) x=sSin(45°/180)24. 下列正确的赋值语句是_____A)i+j=10 B）i=0：j=0. C）i=0；j=0 D）i=0，j=025 设a=6,b=-1,c=8;执行语句Print a>b>c 后，窗体上显示的结果是_____A) 1 B) True C) False D) 出错26. 可以强行中断程序运行的操作是_____A)按Ctrl + C键B)按Ctrl + Z键C)按Ctrl + V键D)按Ctrl + Break键27. 当用户单击滚动条的空白处时，滑块移动的增量由其_____属性决定。
A ) Small ChangeB ) Large ChangeC ) MinD ) Max28. 以下叙述中正确的是_____A)窗体的Name属性指定窗体的名称，用来标识一个窗口。
B)窗体的Name属性的值是显示在窗体标题栏中的文本。
C)可以在运行期间改变对象的Name属性值。
D)对象的Name属性值可以为空。
29．以下能够触发文本框Change 事件的操作是_____A)文本框失去焦点B)文本框获得焦点C）设置文本框的前景色D）改变文本框的内容30. 要在命令按钮上显示图片，应设置其_____属性和Picture属性A)Caption B)Name C)Style D)Appearance31. 时钟控件只有一个_____事件A)Click B)Interval C)Timer D)Time32. 移除列表框List1 的第3项“张三”，应使用_____语句A)List1.RemoveItem 2 B）List1.RemoveItem 3C) List1.RemoveItem “张三”，2 D) List1.RemoveItem “张三”，333. 设置图像框Image 1的_____属性，可以自动调整装入图形的大小以适应图像框的尺寸。
A)AutoSize B)Appearance C)Align D)Stretch34. 下列对象中不能获得焦点的是_____A)命令按钮控件B)标签控件C)文本框控件D)单选按钮控件35. 控件数组的元素是通过_____属性来区分的。
A)Name B)TabIndex C)Index D)Enabled 36. 下列叙述中错误的是_____A)Sub 过程能通过其过程名返回值B)Dim 可以用于声明模块级变量或过程级变量C)静态变量是一种过程级变量，当所在的过程执行结束时，其值依然存在 D)Public 定义变量时，只能出现在通用声明段37. 下列叙述中真确的是_____A)一个Sub 过程至少要有一个Exit Sub 语句 B)一个Sub 过程中定义一个End Sub 语句C)可以在Sub 过程中定义一个Function 过程，但不能定义Sub 过程D)可以在Function 过程中定义一个Sub 过程，但不能定义Function 过程38.设菜单项名称为Menult,为了在运行时使该菜单项失效（变灰），应使用的语句为 _____A) Menult.Enabled = True B) Menult.Enabled = False C) Menult.Visible = True C) Menult.Visible = False39.关于语句Open ”D:\Text.txt ”For Output As #1,以下叙述中错误的是 _____A)若D 盘根目录下无Text.txt 文件，则该语句创建此文件 B)该语句用文件号1打开D 盘根目录下的文件Text.txtC)该语句打开磁盘D 已存在的Text.txt,之后就可以从文件中读取信息D)执行该语句后，就可以通过Print 语句或Write 语句向Text.txt 中写入信息40.以下能判断文件指针是否到达文件尾的函数是 _____A) BOF B) LOC C) LOF D) EOF二、填空题（每空2分，共20分）1.数学表达式e d cb a ++的Visual Basic6.0表达式为 _____2.表达式100 + 25 Mod 10 \ 4 + Int(3.14)的值是 _____3.已知Fibonacci 数列定义如下：f(1) = 1,f(2) = 1,f(n) = f(n – 1) + f(n-2),n >2。
下列程序的功能是计算并输出此数列前20个数并求和，切要求每行输出5个数，试填空完成以下程序。
Option ExplicitPrivate Sub Form_Click()Dim f(20) As IntegerDim n As Integer, s As Integer f(1) = 1 : f(2) = 1 : s = 2 Print f(1) ; f(2) ; For n = 3 To 20f(n) = f(n – 1) + f(n – 2)s = __________ ‘求和Print f(n);If n Mod5 = 0 Then _____ ‘打印5个数后换行Next nPrint”s = “; sEnd Sub4.随机产生10个1~999（包括1和999）之间的整数，找出其最大值、最小值和平均值，试填空完成以下程序。
Option ExplicitPrivate Sub Form_Click()ClsDim a(1 To 10) As Integer, s As SingleDim m_max As Integer, m_min As Integer, I As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd *_____+1) …产生随机数并存入数组aPrint a(i) …打印数组元素Next iFor i = 1 To 10If a(i) > m_max Then m_max =a(i) …找最大值If a(i) < m_min then_ _ …找最小值s = s + a(i) …10个数相加Next iPrint”最大数是:” ; m_max …输入最大值Print”最小数是:” ; m_min …输入最小值Print “平均值是:”; s / 10 …输入平均值End Sub5.用一元纸币兑换一分,二分和五分的硬币；要求兑换硬币的总数为50枚。