1、2004 年 9月国家二级（ VisualBasic）笔试真题试卷及答案与解析 1 设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是 （ A） Text1 Maxength=0 （ B） Text1 Enabled=False （ C） Text1 Visible=False （ D） Text1 Width=0 2 以下能在窗体 Form1的标题栏中显示 “VisualBasic窗体 ”的语句是 （ A） Form1 Name=“VisualBasic窗体 ” （ B） Form1 Title “VisualBasi
2、c窗体 ” （ C） Form1 Caption “VisualBasic窗体 ” （ D） Form1 Text “VisualBasic窗体 ” 3 在窗体上画一个名称为 Text1的文体框，然后画一个名称为 HScrolll的滚动条，其 Min和 Max属性分别为 0和 100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。 以下能实现上述操作的程序段是 （ A） Private Sub Hscroll1_Change( ) Text1 Text=Hscroll1 Value End Sub （ B） Private Sub Hscroll1_Click( ) T
3、ext1 Text=Hscroll1 Value End Sub （ C） Private Sub Hscroll1_Change( ) Text1 Text=Hscroll1 Caption End Sub （ D） Private Sub Hscroll1_Click( ) Text1 Text=Hscroll1 Caption End Sub 4 设菜单中有一个菜单项为 “Open”。若要为该菜单命令设置访问键，即按下 Alt及字母 O时，能够执行 “Open”命令，则在菜单编辑器中设置 “Open”命令的方式是 （ A）把 Caption属性设置为 &Open （ B）把 Captio
4、n属性设置为 &Open （ C）把 Name属性设置为 &Open （ D）把 Name属性设置为 &Open 5 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1， 3 Print“分支 1” Case Is4 Print“分支 2” Case Else Print“Else分支 ” End SelectEnd Sub程序运行后，如果在输入对话框中输入 2，则窗体上显示的是 （ A）分支 1 （ B）分支 2 （ C） Els
5、e分支 （ D）程序出错 6 以下关于 MsgBox的叙述中，错误的 是 （ A） MsgBox函数返回一个整数 （ B）通过 MsSBox 函数可以设置信息框中图标和按钮的类型 （ C） MsgBox语句没有返回值 （ D） MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 7 在窗体上画一个名称为 Timer1的计时器控件，要求每隔 0.5秒发生一次计时器事件，则以下正确的属性设置语句是 （ A） Timer1 Interval=0.5 （ B） Timer1 Interval=5 （ C） Timer1 Interval=50 （ D） Timer1 Inte
6、rval=500 8 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x， yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是 （ A） 4 2 （ B） 12 18 （ C） 12 30 （ D） 4 6 9 以下关于多重窗体程序的叙述中，错误的是 （ A）用 Hide方法不但可以隐藏窗体，而且能清除内存中的窗体 （ B）在多重窗体程序中，各窗体的菜单是彼此独立
7、的 （ C）在多重窗体程序中，可以根据需要指定启动窗体 （ D）对于多重窗体程序，需要单独保存每个窗体 10 以下关于文件的叙述中，错误的是 （ A）顺序文件中的记录一个接一个地顺序存放 （ B）随机文件中记录长度是随机的 （ C）执行打开文件的命令后，自动生成一个文件指针 （ D） LOF函数返回给文件分配的字节数 11 以下叙述中错误的是 （ A）事件过程是响应特定事件的一段程序 （ B）不同的对象可以具有相同名称的方法 （ C）对象的方法是执行指定操作的过程 （ D）对象事件的名称可以由编程者指定 12 以下合法的 Visual Basic标识符是 （ A） ForLoop （ B） C
8、onst （ C） 9abc （ D） a # x 13 当一个复选框被选中时，它的 Value的属性的值是 （ A） 3 （ B） 2 （ C） 1 （ D） 0 14 表达式 5 Mod 3+35*2的值是 （ A） 0 （ B） 2 （ C） 4 （ D） 6 15 设 x=4， y=8， z=7，以下表达式的值是 x y And (Not y z) Or z x （ A） 1 （ B） -1 （ C） True （ D） False 16 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a$=“Vis
9、ualBasic” Print String(3， a$) End Sub程序运行后，单击命令按钮，在窗 体上显示的内容是 （ A） VVV （ B） Vis （ C） sic （ D） 11 17 设有如下程下段： x=2 For i=1 To 10 Step 2 x=x+i Next运行以上程序后， x的值是 （ A） 26 （ B） 27 （ C） 38 （ D） 57 18 以下叙述中错误的是 （ A）在 KeyPress事件过程中不能识别键盘的按下与释放 （ B）在 KeyPress事件过程中不能识别回车键 （ C）在 KeyDown和 KeyUp事件过程中，将键盘输入的 “A”和
10、“a”视作相同的 字母 （ D）在 KeyDown和 KeyUp事件过程中，从大键盘上输出的 “1”和从右侧小键盘上输入的 “1”被视作不同的字符 19 执行如下两条语句后，窗体上显示的是 a=9.8596 Print Format(a， “$00，00 00”) （ A） 0， 009 86 （ B） $9.86 （ C） 9.86 （ D） $0， 009.86 20 在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click( ) CommonDialogl File
11、Name=“” CommonDialogl， Filter “All File * *(* DoC * Doc (* Txt) * Txt” CommonDialogl Filterlndex 2 CommonDialogl DialogTitle “VBTest” CommonDialogl Action 1 End Sub对于这个程序，以下叙述中错误的是 （ A）该对话框被设置为 “打开 ”对话框 （ B）在该对话框中指定的默认文件名为空 （ C）该对话框的标题为 VBTest （ D）在该对话框中指定的默认文件类型为文本文件 (* Txt) 21 设一个工程由两个窗体组成，其名称分别为
12、Form1和 Form2，在 Form1上有一个名称为 Command1的命令按钮。窗体 Form1的程序代码如下： Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2， A ) End Sub Private Sub g(f As Form， x As Integer) y=IIf(x10， 000， -100) f Show f Caption=y End Sub运行以上程序，正确的结果是 （ A） Form1的 Capdon 属性值为 100 （ B） Form2的 Caption属性值为 -100 （ C）
13、Form1的 Caption属性值为 -100 （ D） Form2的 Capdon 属性值为 100 22 在窗体上画一个名称为 Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As Integer Static y As Integer x=10 y=5 Call f1(x， y) Print x， y End Sub Private Sub f1(ByRef x1 As Integer， y1 As Integer) x1=x1+2 y1=y1+2 End Sub程序运行后，单击命令按钮，在窗体上显示的内容是 （ A）
14、 10 5 （ B） 12 5 （ C） 10 7 （ D） 12 7 23 设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据 ”) If nx Then Print a(i)； Next i End Sub程序运行后，单击命令按钮，在窗体上显示的内容是 （ A） 1 2 （ B） 1 2 3 （ C） 3 4 5 （ D） 4 5 30 假定一个工程由一个窗体文件 Form1和两个标准模块文件 Model1及 Model2组成。
15、Model1代码如下： Public x As Integer Public y As Integer Sub S1( ) x=1 S2 End Sub Sub S2( ) y=10 Form1 Show End Sub Model2的代码如下： Sub Main( ) S1 End Sub其中 Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是 （ A） Form1Model1Model2 （ B） Model1Model2Form1 （ C） Model2Model1Form1 （ D） Model2Form1Model1 31 设有如下程序段： a$=“BejingShan
16、ghai” b$ Mid(a$， InStr(a$， “g”)+1) 执行上面的程序段后，变量 b$的值为 【 】 。 32 以下程序段的输出结果是 【 】 。 num=0 While num =2 num=num+1 Wend Print num 33 本程序的功能是利用随机数函数模拟投币， 方法是；每次随机产生一个 0或 1的整数，相当于一次投币， 1代表正面， 0代表反面。在窗体上有三个文本框，名称分别是 Text1、 Text2、 Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击 “开始 ”按钮，
17、按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。Private Sub Command1_Click( ) Radomize n=CInt(Text1 Text) n1=0 n2=0 For i=1 To 【 】 r=Int(Rnd*2) If r= 【 】 Then n1=n1+1 Else n2=n2+1 End If Next Next2 Text=n1 Next3 Text=n2 End Sub 34 在窗体上画一个名称为 “Command1”，标题为 “计算 ”的命令按钮，再画 7个标签，其中 5个标签组成名称为 Label1的控件
18、数组 ；名称为 Label2的标签用于显示计算结果，其 Caption属性的初始值为空；标签 Label3的标题为 “计算结果 ”。运行程序时会自动生成 5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。 单击 “计算 ”按钮，则将标签数绍各元素的值累加，然后将计算结果显示在 Label2中。请填空。 Private Sub Command1_Click( )Sum=0For i=0 To 4Sum=Sum+ 【 】 Next 【 】 =SumEnd Sub 35 窗体上有一个名称为 List1的列表框，一个名称为 Text1的文本框，一个名称为Label1、 Caption属性为
19、“Sum”的标签，一个名称为 Command1、标题为 “计算 ”的命令按钮。程序运行后，将把 1 100之间能够被 7整除的数添加到列表框中。如果单击 “计算 ”按钮，则对 List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。 以下是实现上述功能的程序，请填空。 Private Sub Form_Load( )For i=1 To 100If i Mod 7=0 Then【 】 End IbfNextEnd SubPrivate Sub Command1_Click( )Sum=0For i=0 To【 】 Sum=Sum+【 】 NextText1 Text=SumEnd S
20、ub 36 阅读程序： Option Base1Private Sub Form_Click( )Dim a(3)As IntegerPrint“输入的数据是： ”； For i 1 To 3a(i)=InputBox(“输人数据 ”)Print a(i)； NextPrintIf a(1)t=a(1)a(1)=a(2)a(2)= 【 】 End IfIf a(2)a(3) Thenm=a(2)Else If a(1)a(3)Thenm= 【 】 Elsem= 【 】 End IfPrint“中间数是： ”； mEnd Sub程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个
21、数中的中间数，如图所示。 请填空。 37 在窗体上画两个名称分别为 Command1和 Command2、标题分别为 “初始化 ”和“求和 ”的命令按钮。程序运行后，如果单击 “初始化 ”命令按钮，则对数组 a的各元素赋值；如果单击 “求和 ”命令按钮，则求出数组 a的各元素之和，并对文本框中显示出来，如图所示。 请填空。 Option Base 1Dim a(3， 2)As IntegerPrivate Sub Command1_Click( )For i=1 To 3For i=1 To 2 【 】 =i+jNext jNext iEnd SubPrivate Sub Command2_C
22、lick( )Forj=1 To 3For i=1 To 2s=s+ 【 】 Next iNext jText1 Text= 【 】 End Sub 2004 年 9月国家二级（ VisualBasic）笔试真题试卷答案与解析 1 【正确答案】 B 【试题解析】 Enabled 属性用来设置文本框的有效性，当设置为 True时，处于有效状态，文本框能接受输入的信息，当设置为 False时，处于无效状态，文本框不能接受输入信息，所以选项 B 是正确的； Visible是设置控件的可见性属性；Maxlength 属性设置文本框最多可以容纳多少个字符； Width属性设置文本框的宽度，都不是正确答案
23、。 2 【正确答案】 C 【试题解析】 此题考察窗体的属性， Caption 属性用来设置窗体标题栏中显示的文本内容，题目要求在窗体标题栏中显示 “VisualBasic窗体 ”，只有选项 3 【正确答案】 A 【试题解析】 题目中移动滚动框将触发滚动框的 Change属性，所以选项 B)和选项 D)可以先排除，另外滚动条的当前值可以用 Value属性来表示，如果在文本框中显示滚动条的当前值语句应为： Text1 Text=Hscrolll. Value。所以排除选项C)，正确答案为选项 A)。 4 【正确答案】 A 【试题解析】 此题考察菜单知识，设置菜单中的标题文本使用 Caption 属
24、性，而 Name属性是从代码中访问菜单时使用的，因此排除选项 C)和选项 D)；设置访问键时在作为访问键的字符前面输入一个 &号，就允许用户通过键盘操作菜单项。 5 【正确答案】 C 【试题解析】 此题考察 Select Case语句的知识，题目要求输入一个数值，通过各个 Case条件来确定输出的值。此题输入 2，满足 “Case Else“判断条件，所以执行 “Print “Else分支 “ “语句，选择答案选项 C. 6 【正确答案】 D 【试题解析】 其函数的格式为： MsgBox(Prompt， buttons， title， helpfile， context)函数的第二个参数是数值
25、表达式，不仅仅确定按钮的数目，还指定按钮的类型及图标的样式，所以选项 D)为正确答案。 7 【正确答案】 D 【试题解析】 计时器控件的 Interval 属性用来指定计时器事件之间的毫秒数，本题要求每隔 0.5秒发生一次，所以其值为 500，正确答案为选项 D. 8 【正确答案】 B 【试题解析】 注意此题中 X被定义为 Static类型的变量，因此每次单击按钮后其上次的值被保留下来，而变量 y每次运算重新归零，单击一次按钮后 x=4， y=2，单击两次按钮后 x=8， y=10，单击三次 按钮后 x=12， y=18，所以只有选项 B为正确答案。 9 【正确答案】 A 【试题解析】 在多重
26、窗体中，各窗体的菜单是彼此独立的，选项 B)正确；在多重窗体中可以任意指定启动窗体，选项 C)正确；尽管有多个窗体，仍然需要对每个窗体单独保存，选项 D)正确；使用 Hide方法，仅仅能够隐藏窗体，但是不能将窗体从内存中清除，要想清除内存中的窗体，应使用 Unload方法，选项 A)错误，此题要求选择叙述错误的选项，应选选项 A)。 10 【正确答案】 B 【试题解析】 在随机文件中记录的长度都是固定的，所 以选项 B)错误；顺序文件顾名思义文件都是顺序存放的，选项 A)正确；执行打开文件的命令后，自动生成一个文件指针，选项 C)正确； LOF函数用来返回文件分配的字节数，选项 D)正确。 1
27、1 【正确答案】 D 【试题解析】 标题考察对象的概念，对象是代码和数据的组合，常见的对象包括控件和窗体，整个程序也可以是一个对象。对象支持属性、方法和事件，在 VB 中称对象暴露给用户的数据为属性，称各种可在对象上操作的过程为方法，事件是可被对象识别的动作，如单击鼠标和键盘事件，所以选项 D中对象事件名称可以由编者指定错误， 为答案。 12 【正确答案】 A 【试题解析】 合法的 VB 标志符应遵循的规则是：必须以字母开头，不能超过255个字符，名字由字母、数字和下划线组成，名字不能是关键字。满足条件的只有选项 A. 13 【正确答案】 C 【试题解析】 此题考察复选框的知识，其 Value
28、属性可以取 0， 1， 2三个值，其中 0代表复选框未被选中， 1代表复选框处于选中状态， 2代表该复选框处于禁止状态，不可用。根据题意此题应选选项 C. 14 【正确答案】 B 【试题解析】 此题考察算术运算符的相关知识， “Mod”是求余运算， 5 Mod 3=2； 35*2=0，所以此题结果为 2，选项 B. 15 【正确答案】 D 【试题解析】 题干中的表达式是进行逻辑运算，其运算结果为 True或 False，因此排除选项 A)和选项 B)，同级的逻辑运算按照从左到右的顺序依次计算，最终的值为 False，选项 D)正确。 16 【正确答案】 A 【试题解析】 此题考察 String
29、函数的知识， String函数返回指定长度的由重复字符组成的字符串，其格式为： String(number， character)number 参数指出 字符串的长度， character参数的第一个字符用于指出返回的字符串，本题中 a$中第一个字符串为 V， String(3， a $)结果为 VVV，选项 A为正确答案。 17 【正确答案】 B 【试题解析】 此题中 For循环共执行 5次循环， i的取值分别为 1， 3， 5， 7，9，而 x的初值为 2，题目要求求出循环后 x的值，即将 x和 i累加，结果为 27，选项 B为正确答案。 18 【正确答案】 B 【试题解析】 此题考察键盘
30、事件，当按下键盘上的某个键时或松开某个键时，将触发 Keydown事件或者 Keyup 事件， 如果有按键发生时，将会触发 KeyPress 事件，其中 Keypress 事件能检测的键有 Enter 键、 Tab 键、 Backsapce键以及标准键盘的字母、数字和标点符号键。因此选项 B错误。 19 【正确答案】 D 【试题解析】 此题考察 Format函数的知识，该函数的格式为：Format(expression， format)其中 expression 参数指定要转换的数值， format参数是字符串， $表示 Currency格式显示带千分符且小数点右面保存两位，因此应选选项 D.
31、 20 【正确答案】 D 【试题解析】 此题应熟悉通用对话框的各种属性， Action 属性表示为打开对话框的类型，此题中其值为 1，表示为 “打开 ”对话框； FileName属性表示对话框默认文件名； DialogTide属性为对话框的标题； FilterIndex属性指出系统默认的文件类型，此题中其值为 2，所以默认类型为 doc类型而不是 txt类型，选项 D错误。 21 【正确答案】 B 【试题解析】 此题单击命令按钮后将调用 g()函数，观察该函数，是显示窗体 f，并且将该窗体的标题设置为 y，而 y的值要通过 IIf语句来判断，此 题中第一个实参为 Form2，将 x=10带人判
32、断语句为结果为 -100，因此执行命令后 Form2的标题为 -100，所以选项 B正确。 22 【正确答案】 D 【试题解析】 题干中 y定义为静态函数，再观察过程 f1中 x1是传值方式传送， y1是传址方式传送，单击命令按钮后， x和 y分别赋初值为 10和 5，接着调用 f1过程， x和 y分别加 2，正确结果为选项 D. 23 【正确答案】 C 【试题解析】 GetArray 过程的作用是将数组 b 中的偶数保存到数组 c中，同时输出数组 C中元素的个数，所以选项 A)和选 项 B)正确；观察单击事件中，如果 n 10，才能调用该过程，所以选项 D)正确；在 GetArray工程中两
33、个参数缺省传送方式，则参数是按地址传递的，选项 C)错误。 24 【正确答案】 B 【试题解析】 题目中存在 Option Base语句，则数组中第一个元素的索引值为1，当 i=3时， a(i)=3，计算 a(i)=a(i)+i-1结果为 5，选项 B为正确答案。 25 【正确答案】 C 【试题解析】 分析题干， arr(i)/3=arr(i)3是求出数组中能整除 3的元素，而 Sum=Sum+arr(i)是将这些元素相加，也就是求 3+9+15的值为 27，所以选项 C正确。 26 【正确答案】 A 【试题解析】 Shell函数返回 Variant值，用来指明正在运行的程序，其格式为：She
34、ll(Pathname， windowstyle)所以并不像选项 A说的 x没有实际意义。 27 【正确答案】 A 【试题解析】 单击开始按钮后时钟事件开始执行， Label1.Left=Lebel1. Left+ 20是指标签框向右运动， If 判断语句是说当标签框的左端大于窗体宽度时标签框的Left属性将为 0，也就是将从窗体的最左端重新移动；选项 B)、选项 C)和选项 D)都正确，只有选项 A)描述错误。 28 【正确答案】 B 【试题解析】 此题考查 Left函数， Right函数， Mid函数和 Ucase函数的知识，执行 For循环后最后一个循环时 i=2， X=bb， Y=ab
35、， z=ba，使用 Ucase函数将 X & Y & z联成的字符串中所有字母变为大写字母，结果为 BBABBA，选项 B 正确。 29 【正确答案】 D 【试题解析】 此题中第一个 For循环是将数组中所有元素相加并且将结果赋值给Sum， sum=15，而变量 x=3，第二个循环是判断数组 a(i)中各元素是否比 3大，输出所有比 3大的元素，因此选项 D为正确答案。 30 【正确答案】 C 【试题解析】 由于 Sub Main 被设置为启动过程，所以 Model2 模块先执行，接着调用 S1过程，这样就执行 Model1 模块，在 S1过程中又要调用 S2过程，而 S2过程中使 Form1窗体显示出来，总结这一系列过程，各模块的执行过程为：Model2Model1 Form1 ，因此选项 C正确。 31 【正确答案】 Shanghai 32 【正确答案】 3 33 【正确答案】 n , 1 34 【正确答案】 Label2.Caption , Label1(i).Caption 35 【正确答案】 List1.AddItem I, List1.ListCunt-1 , List1.List(i) 36 【正确答案】 t , a(3) , a(1) 37 【正确答案】 a(i , j) , a(j,i) , s
