《全国计算机二级VB笔试试题总结.docx》由会员分享，可在线阅读，更多相关《全国计算机二级VB笔试试题总结.docx（115页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2002年4月二级VB笔试试题一、选择题135题每题2分，共70分。下列各题A)、B)、C)、D)四个选项中，只有一个选择是正确的，请将正确选项涂写 在答题卡相应位置匕答在试卷上不得分。1 .下列不能打开属性窗口的操作是()oA)执行“视图”菜单中的“属性窗口”命令B)按F4键C)按 Ctrl+TD)单击工具栏上的“属性窗口”按钮。2 .下列可以打开立即窗口的操作是().A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G3 . InputBox函数返回值的类型为()=A)数值B)字符串C)变体D)数值或字符串(视输入的数据而定)4 .可以同时删除字符串前导和尾部空白
2、的函数是()oA) Ltrim B) Rtrim C) Trim D) Mid5 .表达式4+5 6 *7/8 Mod 9的值是().A) 4 B) 5 C) 6 D) 76 .如果在立即窗口中执行以下操作：a=8 (vCR是回车键，下同)b=9 print ab 则输出结果是()oA) -1 B) 0 C) False D) True7 .以下语句的输出结果是()oPrint Format $(32548.5,“000,000.00)A) 32548.5 B) 32,548.5 0 032,548.50 D) 32,548.508 .执行以下程序段后，变量c$的值为()oa$=Visual
3、Basic Programingb$=Quick”c$=b$ & UCase(Mid$(a$,7,6) & Right $ (a$,ll)A) Visual BASIC Programing B) Quick Basic Programing C) QUICK Basic ProgramingD) Quick BASIC Programing9 .为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置 为True,这个属性是()oA) Value B) Default C) Cancel D) Enabled10 .为了把焦点移到某个指定的控件，所使用的方法是()。A)
4、SetFocus B) Visible C) Refresh D) GetFocus11 .设 a=6,则执行 x=Hf(a5,-l,0)后，x 的值为(),A) 5 B) 60 0 D) -112 .执行下面的程序段后，x的值为()。x=5For i=l To 20 Step 2x=x+i5Next iA) 21 B) 22 0 23 D) 2413 .在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command l_Click()For i=l To 4x=4For j =1 To 3 x=3For k=l To 2x=x+6Next kNext jNex
5、t iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是()。A) 7B) 150 157 D) 53814 .在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command 1 _Click()x=0Do Until x=-la = InputBox(“请输入A的值”)a = Val(a)b = InputBox( “请输入B的值”)b = Val(b)x = InputBox(请输入x的值”)x = Val(x) a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、1,则输出结果为()
6、oA) 2B) 3 C) 14 D) 1515 .在窗体(Name属性为Form 1)上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程：Private Sub Command 1 _Click()a=Text 1 .Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Textl.Text=m,Text2.Text=,u,End sub程序运行后，在第一个文本框(Textl)和第二个文本框(Text2)中分别输入123和321, 然后单击命令按钮，则输出结果为
7、()oA) 444B) 321123 0 123321 D) 13223116 .阅读下面的程序段：For i=l To 3For j=l To iFor k=j To 3 a=a+lNextkNext jNext i执行上面的三重循环后，a的值为()。A) 3B) 90 14 D) 2117 .在窗体上画一个文本框(其中Name属性为Textl),然后编写如下事件过程：Private Sub Form_Load()Textl.Text=HTextl.SetFocusFor i=l To 10Sum = Sum+iNext iTextl.Text=SumEnd Sub上述程序的运行结果是(。A
8、)在文本框Textl中输出55B)在文本框Text 1中输出0 C)出错D)在文本框Textl中输出不定值18 .在窗体上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(其Name 属性为Command),然后编写如下事件过程：Private Sub Commandl_Click() x=0Do While xml Thenml =a(i)m2 =iEnd IfNext iEnd IfPrint mlPrint m2End Sub程序运行后，按回车键，输出结果为().A) 48B) 2374 1C) 498D) 4985 4二、填空题(每空2分，共30分)请将每空的正
9、确答案写在答题卡115序号的横线上，答在试卷上不得分。1 .设有如下的Visual Basic表达式：5 * xA2 - 3*x - 2 * Sin(a)/3它相当于代数式1 ,2 .执行下面的程序段后，s的值为2 s = 5Fori = 2.6To4.9 Step0.6s = s+1Next i3.表达式 Fix(-32.68)+Int(-23.02)的值为3.4 .为了在运行时把图形文件picfile.jpg装入图片框Pictured所使用的语句为4。5 .在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command l_Click()a =加putBox(请输入一
10、个整数”)b = InpulBox(请输入一个整数”)Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456,输出结果为15 o6 .执行下面的程序段后，b的值为6 oa=300b=20a=a+bb=a-ba=a-b7 .以下程序段的输出结果是7 num=O ；While num 11 处将程序补充完整。Option Base 1Private Sub Command l_Click()Dim aa=Array(678,45,324,528,439,387,87,875,273,823)For i= 9Forj=10Ifa(i)llJa(j
11、)Thenal=a(i)a(i)=a(j)a(j)=alEnd IfNext jNext iFor i=l To 10Print a(i)Next iEnd Sub10 .在窗体上画一个命令按钮，然后编写如下过程：Function fun(ByVa) num As Long)As LongDim k As Longk=lnum=Abs(num)Do While numk=k*(num Mod 10)num=numl0Loopfun=kEnd FunctionPrivate Sub Command 1 _Click()Dim n As LongDim r As Longn=InputBox(请输
12、入一个数”)n=CLng(n)r=fun(n)Print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234,输出结果为12 11 .如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为13。12 .假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Forml和 Form2,启动窗体为Forml。在Forml上画一个命令按钮Command 1,程序运行后，要求当 单击该命令按钮时，Forml窗体消失，显示窗体Form2,请在14和15处将程序补充 完整。Private Sub Command 1 _Click（）;14 FormlForm2. 15End
13、Sub2002年9月二级VB笔试试题一、选择题（每题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂 写在答题卡相应位置上，答在试卷上不得分。（1）在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）oA）工程资源管理器窗口B）工具箱窗口C）代码窗口D）属性窗口（2）以下叙述中正确的是（）oA）窗体的Name属性指定窗体的名称，用来标识一个窗体B）窗体的Name属性的值是显示在窗体标题栏中的文本C)可以在运行期间改变对象的Name属性的值D)对象的Name属性值可以为空(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。A)单选
14、按钮B)图片框 C)通用对话框D)文本框(4)设有如下变量声明Dim TestDate As Date为变量TestDate正确赋值的表达方式是()。A) TextDate=#l/l/2002#B) TestDate=# 1/1/2002 ” #C) TextDate=date( *1/1/2002 ) D) TestDate=Format( m/d/yy”，“ 1/1/2002 )(5)设有如下声明：Dim X As Integer如果Sgn(X)的值为-1,则X的值是()。A)整数 B)大于0的整数 C)等于。的整数 D)小于0的数(6)在窗体上画一个名称为Commandl的命令按钮，然后
15、编写如下程序：Private Sub Command l_Click()Static X As IntegerStatic Y As IntegerCisY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为()。A) 15 16 B) 15 6 C) 15 15D)5 6(7)设a=3,b=5,则以下表达式值为真的是()oA) a=b And b10 B) (ab)Or(b0)C) (a0) D) (-3+5a)And(b0)(8)设有语句x=InputBox( “ 输入数值”，“0”，“ 示例”)程序运行后，如果从键盘上
16、输入数值10并按回车键，则下列叙述中正确的是()。A)变量X的值是数值10 B)在InputBox对话框标题栏中显示的是“示例C) 0是默认值D)变量X的值是字符串“10”(9)从键盘上输入两个字符串，分别保存在变量strl、str2中。确定第二个字符串在第 一个字符串中起始位置的函数是().A) Left B) Mid C) String D) Instr(10)设 a= Visual Basic,下面使 b= Basic”的语句是()。A) b=Left(a,8,12)B) b=Mid(a,8,5)C) b=Rigth(a,5,5)D) b=Left(a,8,5)(11)以下能够触发文本框
17、Change事件的操作是()。A)文本框失去焦点B)文本框获得焦点C)设置文本框的焦点D)改变文本框的内容(12)在窗体上有一个文本框控件，名称为TxtTime： 一个计时器控件，名称为Timed, 要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer I _ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是()oA) Enabled B) Visible C) Interval D) Timer(13)在窗体上画两个单选按钮，名称分别为Option】、Option2,标题分别为“宋体”和 “黑体”；一个复选框，名称为Checkl,标
18、题为“粗体”；一个文本框，名称为Textl, Text 属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗 体外观如下图)，则能够实现上述要求的语句序列是()oA) Optionl.value=TrueCheck 1. Value=FalseC) Option2.Value=FalseCheck l.Value=TrueB) Option 1.Value=TrueCheck 1. Value=TrueD) Option 1.Value=True Check l.Value=l(14)为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一
19、个属性设置为True,这个属性是(A) Value B) Default C) Cancel D) Enabled(15)在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序：Private Sub Command l_Click()For 1=1 To 4For J=0 To 1Print Chr$(65+I);Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是()oA)BB B)A C)B D)AACCBBCCDDDDCCCDDDBBBCCCCEEEEE DDDDEEEEDDDDD(16)图像框有一个属性，可以自动调整图形的大小
20、，以适应图像框的尺寸，这个属性 是()。A) Autosize B) StretchC) AutoRedraw D) Appearance(17)在窗体上画两个名称分别为Text 1 Texte2的文本框和,个名称为Command)的命 令按钮，然后编写如下事件过程：Private Sub Command 1 _Click()Dim x As Integer,n As Integer x=l n=0Do While x 10 Then xit for NextTextl.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是()oA) 2B)3D)4D)5(19)在
21、窗体上画一个名称为Textl的文本框和一个名称为Command 1的命令按钮，然 后编写如下事件过程：Private Sub Command I _Click()Dim arrayl(10,10) As IntegerDim i,j As IntegerFor i=l To 3Forj=2To4array l(i,j)=i+jNext jNext ITextl.Text=array l(2,3)+array 1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是()oA) 12 B) 13 C) 14 D) 15(20)在窗体上画一个名称为Command1的命令按钮，然后编写
22、如下程序：Private Sub Command 1 _Click()Dim i As Integerj As IntegerDim a(10,10)As IntegerFor i=l To 3Forj=l To 3a(i,j)=(i-l)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后，单击命令按钮，窗体上显示的是()oA) 123 B) 234 C) 147 D) 123246345258456369456369789(21)设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Int
23、egera = Array。,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是()oA) 4321 B) 5432 C) 6543 D) 7654(22)下列叙述中正确的是(A)在窗体的Form_Load事件过程中定义的变量是全局变量B)局部变量的作用域可以超出所定义的过程C)在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但 其作用域只限于该过程D)在调用过程时，所有局部变量被系统初始化为0或空字符串(23)在窗体上画一个命令按钮，名称为Commands程序运行后，如果单击
24、命令按钮， 则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程Fl.在Fl中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1,否则返回0。能 够正确实现上述功能的代码是()oA) Private Sub Commandl_Click()x=InputBox(请输入整数”)a=Fl(Val(x)Print aEnd SubFunction Fl(ByRef b As Integer) If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd FunctionB) Private Sub Command 1 _Click()x
25、=InputBox(“请输入整数”) a=Fl(Val(x)Print aEnd SubFunction Fl(ByRef b As Integer) If b Mod 2=0 ThenFl=0ElseFl = lEnd IfEnd FunctionC) Private Sub Commandl_Click()x=InputBox(请输入整数”)Fl(Val(x)Print aEnd SubFunction Fl(ByRef b As Integer) If b Mod 2=0 ThenFl=lElseFl=0End IfEnd FunctionD) Private Sub Command 1
26、 _Click()x=InpulBox( “请输入整数”)Fl(Val(x)Print aEnd SubFunction Fl(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function(24)在窗体上画一个名称为Command 1的命令按钮和一个名称为Textl的文本框，然 后编写如下程序：Private Sub Command 1 _Click()Dim x,y,z As Integerx=5y=7z=0Textl.text=Call Pl(x,y,z)Textl.Text=Str(x)End Sub
27、Sub Pl (By Vai a As Integer, By Vai b As Integers As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是()oA)0 B) 12 C) Str(z) D)没有显示(25)以下叙述中错误的是()。A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B) Sub过程中不能嵌套定义Sub过程C) Sub过程中可以嵌套调用Sub过程D)事件过程可以像通用过程一样由用户定义过程名(26)以下叙述中错误的是()A)在KeyUp和KeyDown事件过程中，从犍盘上输入A或a被视作相同的字
28、母(即具 有相同的KeyCode)B)在KeyUp和KeyDown事件过程中,将键盘上的“1”和右侧小键盘上的“1”视作 不同的数字(具有不同的KeyCode)D) KeyPress事件中不能识别键盘上某个键的按下与释放E) KeyPress事件中可以识别键盘上某个键的按下与释放(27)以下叙述中错误的是().A)在同一窗体的菜单项中，不允许出现标题相同的菜单项B)在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C)程序运行过程中，可以重新设置菜单的Visible属性D)弹出式菜单也在菜单编辑器中定义(28)设在菜单编辑器中定义了一个菜单项，名为menul。为了在运行时隐藏该菜单
29、项, 应使用的语句是()A) menu 1 .Enabled=True B) Munu 1 .Enabled=FalseC) Menu 1.Visible=True D) Menu 1.Visible=False(29)以下叙述中错误的是()A)在程序运行时，通用对话框控件是不可见的B)在同个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框 具有不同的作用C)调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文 件D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框(30)在用通用对话框控件建立“打开”或“保存”文件对话框时
30、，如果需要指定文件 列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是()。A) text (.txt)l(*.txt) B)”文本文件(.txt) I (.txt)”C) utext(.txt)ll(*.txt)n D) *text(.txt)(*.txt)(31)以下叙述中错误的是()。A) 一个工程中只能有一个Sub Main过程B)窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C)窗体的Hide方法和Unload方法的作用完全相同D)若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体(32)以下叙述中错误的是()。A) 一个工程中可以包含多个窗体
31、文件B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用C)在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文 件D)全局变量必须在标准模块中定义(33)设在工程中有一个标准模块，其中定义了如下记录类型Type BooksName As String *10TelNum As String *20End Type在窗体上画一个名为Command 1的命令按钮。要求当执行事件过程Commandl_Click 时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是()。A） Private Sub Command 1 _Click()D
32、im B As BooksOpenc:Person.txtw For Output As #1B.Name=InpulBox( 输入姓名”)B.TelNum=InputBox( 输入电话号码”)Write #l,B.Name,B.TelNumClose #1End SubB） Private Sub Command 1 _Click()Dim B As BooksOpen u c:Person.txt ” For Input As #1B.Name=InputBox（ 输入姓名”）B.TelNum=InputBox（输入电话号码”）Print #l,B.Name,BTelNumClose #1End SubC） Pri