1、二级 VISUAL+BASIC 笔试-298 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.执行下列程序段后，输出的结果是( )。Forkl=0 To 4y=20For k2=0 To 3y=10Fork3=0 To 2y=y+10Next k3Next k2Next k1Print y（分数：2.00）A.90B.60C.40D.102.设菜单中有一个菜单项为“Open“。若要为该菜单命令设置访问键，即按下 Alt 键及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open命令的方式是( )。（分数：2.00）A.把 C
2、aption 属性设置为a(3);a(5)End Sub（分数：2.00）A.abcB.bdfC.aceD.出错4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim a(5)As StringFori=1 To 5a(i)=Chr(Asc(“A“)+(11)NextiFor Each b In aPrint bNextEnd Sub程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息5.可以用 InputBox 函数产生“输入对话框”。执行语句“st$=(hput
3、Box(“请输入字符串”，“字符串对话框”，“字符串”)”时，当用户输入完毕，按 OK 按钮后，stS 变量的内容是( )。（分数：2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入的内容6.语句 Print Sgn(-5.12)+Abs(Int(-5.12)的输出结果是( )。（分数：2.00）A.52.2B.25.01C.26D.287.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是 ( )。（分数：2.00）A.A*B=0 And ABB.(A=0 Or B=0)And ABC.A=0 And B0 Or A0 And B=0D.A
4、*B=O And(A=0 Or b=0)8.在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ( )。Private Sub Command4_Click()Dima As Integer,bASIntegera=1 b=2PrintN(a,b)End SubFunction N(X As Integer,yAsInteger)AsIntegerN=IIf(xy，x，y)End Funcfion（分数：2.00）A.B.C.D.9.保存一个工程至少应保存两个文件，这两个文件分别是( )。（分数：2.00）A.文本文件和工程文件B.窗体文件和工程文件C.窗体文件和标准模
5、块文件D.类模块文件和工程文件10.工程资源管理器窗口中包含的文件类型有( )种。（分数：2.00）A.2B.3C.4D.511.下列对象不能响应 Crick 事件的是( )。（分数：2.00）A.列表框B.图片框C.窗体D.计时器12.以下能判断是否到达文件尾的函数是( )。（分数：2.00）A.BOFB.LOCC.LOFD.EOF13.要清除列表框中所有的列表项时，应使用( )方法。（分数：2.00）A.RemoveB.ClearC.RemoveItemD.Move14.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：PrivateSubCommandl_CnCk
6、()aS=“VisualBasic“，Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是( )。（分数：2.00）A.VVVB.VisC.sicD.1115.下列( )符号不能作为 VB 中的变量名。（分数：2.00）A.ABCabcB.b1234C.28wedD.crud16.下列字符串常量中，最大的是( )。（分数：2.00）A.“北京“B.“上海“C.“天津“D.“广州“17.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为( )。（分数：2.00）A.=B.*C.a(3);a(5)End Sub（分数：2.00）A.abc
7、B.bdf C.aceD.出错解析：4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim a(5)As StringFori=1 To 5a(i)=Chr(Asc(“A“)+(11)NextiFor Each b In aPrint bNextEnd Sub程序运行后，单击命令按钮，输出结果是( )。（分数：2.00）A.ABCDE B.1 2 3 4 5C.abcdeD.出错信息解析：5.可以用 InputBox 函数产生“输入对话框”。执行语句“st$=(hputBox(“请输入字符串”，“字符串对话框”，“字符串”)”时，当用户
8、输入完毕，按 OK 按钮后，stS 变量的内容是( )。（分数：2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入的内容 解析：6.语句 Print Sgn(-5.12)+Abs(Int(-5.12)的输出结果是( )。（分数：2.00）A.52.2B.25.01C.26 D.28解析：7.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是 ( )。（分数：2.00）A.A*B=0 And ABB.(A=0 Or B=0)And ABC.A=0 And B0 Or A0 And B=0D.A*B=O And(A=0 Or b=0) 解析：8.
9、在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ( )。Private Sub Command4_Click()Dima As Integer,bASIntegera=1 b=2PrintN(a,b)End SubFunction N(X As Integer,yAsInteger)AsIntegerN=IIf(xy，x，y)End Funcfion（分数：2.00）A.B. C.D.解析：9.保存一个工程至少应保存两个文件，这两个文件分别是( )。（分数：2.00）A.文本文件和工程文件B.窗体文件和工程文件 C.窗体文件和标准模块文件D.类模块文件和工程文件解析
10、：10.工程资源管理器窗口中包含的文件类型有( )种。（分数：2.00）A.2B.3C.4D.5 解析：11.下列对象不能响应 Crick 事件的是( )。（分数：2.00）A.列表框B.图片框C.窗体D.计时器 解析：12.以下能判断是否到达文件尾的函数是( )。（分数：2.00）A.BOFB.LOCC.LOFD.EOF 解析：13.要清除列表框中所有的列表项时，应使用( )方法。（分数：2.00）A.RemoveB.Clear C.RemoveItemD.Move解析：14.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Cn
11、Ck()aS=“VisualBasic“，Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是( )。（分数：2.00）A.VVV B.VisC.sicD.11解析：15.下列( )符号不能作为 VB 中的变量名。（分数：2.00）A.ABCabcB.b1234C.28wed D.crud解析：16.下列字符串常量中，最大的是( )。（分数：2.00）A.“北京“B.“上海“C.“天津“ D.“广州“解析：17.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为( )。（分数：2.00）A.=B.*C.&D.- 解析：18.设已打开
12、5 个文件，文件号为 1，2，3，4，5。要关闭所有文件，以下语句正确的是( )。（分数：2.00）A.Closeg1,2,3,4,5B.Close#1；#2，#3，#4；#5C.Close#1-#5D.Close 解析：19.窗体在屏幕上显示后有( )方法可以清除它。（分数：2.00）A.1 种B.2 种 C.3 种D.4 种解析：20.以下能在窗体 Forml 的标题栏中显示“Visual Basic 窗体”的语句是( )。（分数：2.00）A.Forml.Namer=“VisualBasic 窗体“B.Forml.Title=“VisualBasic 窗体“C.Forml.Caption
13、=“VisualBasic 窗体“ D.Forml.Text=“VisualBasic 窗体“解析：21.执行了下面的程序后，组合框中数据项的值是( )。PrivateSubForm_Click()Fori=1 To 6Comb01.Addltem iNextiFori=1 To 3CombolRemoveltem iNextiEnd Sub（分数：2.00）A.1 5 6B.1 3 5 C.4 5 6D.2 4 6解析：22.下列符号常量的声明中，( )是不合法的。（分数：2.00）A.Const a As Single=1.1B.Const As Integer=“12“ C.Const
14、a AS Double=Sin(1)D.Const a=“OK“解析：23.关于创建通用过程的方法叙述正确的是( )。（分数：2.00）A.双击窗体打开的“代码编辑窗口”中不能创建通用过程B.创建通用过程一定要使用 Sub 关键字C.选择“工具”下拉菜单中的“添加过程”命令才能创建通用过程D.在“代码编辑窗口”中即可以建立事件过程，也能建立通用过程 解析：24.运行下列程序段后，显示的结果为( )。J1=23J2=32If J1J2 Then Print J2 Else Print Jl（分数：2.00）A.23B.32 C.55D.2332解析：25.在窗体上画 1 个文本框，其名称为 Te
15、xt1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为( )。（分数：2.00）A.B.C. D.解析：26.把窗体设置为不可见的，应该将( )属性设置为 False。（分数：2.00）A.FontB.Capti
16、onC.EnableD.Visible 解析：27.下列能正确产生1，30之间的随机整数的表达式是( )。（分数：2.00）A.1+md(30)B.1+30*md()C.md(1+30)D.int(md()*30)+1 解析：28.要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。（分数：2.00）A.Option Base 0B.Option Explicit C.Option Base 1D.Option Compare解析：29.设有语句：Open“d:/Test.txt“ForOutput As#1，以下叙述中错误的是( )。（分数：2.00）A.若 d 盘根目录下无
17、 Test.txt 文件，则该语句创建此文件B.用该语句建立的文件的文件号为 1C.该语句打开 d 盘根目录下一个已存在的文件 Test.txt，之后就可以从文件中读取信息 D.执行该语句后，就可以通过 Print#语句向文件 Test.txt 中写入信息解析：30.先在窗体上添加一个命令按钮，然后编写如下程序：Function fun(ByValnum As Long)As LongDim k As Longk=1num=Abs(nam)Do While numk=k*(num Mod 10)num=num/10LoopFun=kEnd FunctionPrivateSubCommandl_
18、Click()Dim n As LongDim r As Longn=InrputBox(“请输入一个数”)n=CLng(n)r=-fun(n)PrintrEnd Sub在程序运行后，单击命令按钮，在对话框中输入“100”，输出结果是( )。（分数：2.00）A.0 B.100C.200D.300解析：31.Int(100*Rnd(1)产生的随机整数的闭区间是( )。（分数：2.00）A.0,99 B.1,100C.0,100D.1,99解析：32.在程序运行期间属性值不允许改变的属性是( )属性。（分数：2.00）A.CaptionB.Name C.BackColorD.Enabled解析：
19、33.确定一个控件在窗体上的位置的属性是( )。（分数：2.00）A.Width 和 HeightB.Width 或 HeightC.Top 和 Left D.Top 或 Left解析：34.语句 Print5/4*6/5Mod2 的输出结果是( )。（分数：2.00）A.0B.1 C.2D.3解析：35.假定在图片框 Picturel 中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是( )。（分数：2.00）A.选择图片框，然后按 Del 键B.执行语句 Picture 1.Picture=Load Picture(“) C.执行语句 Picture1.Picture=“
20、D.选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键解析：二、填空题(总题数：14，分数：30.00)36.MagBox 函数除了在对话框中显示提示信息外，另一个功能是工 1。（分数：2.00）填空项 1:_ （正确答案：接受用户作出的响应，作为程序继续执行的依据。）解析：37.一个变量未被显示定义，末尾也没有类型说明符，则该变量的隐含类型是上 1 类型。（分数：2.00）填空项 1:_ （正确答案：变体）解析：38.在长度为 n 的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为上 1。（分数：2.00）填空项 1:_ （正确答案：Log 2n）解析：39.算法的基
21、本特征是可行性、确定性、 1 和拥有足够的情报。（分数：2.00）填空项 1:_ （正确答案：有穷性）解析：40.如果菜单标题的某个字母前输入一个“ 1”符号，那么该字母就成了热键字母。（分数：2.00）填空项 1:_ （正确答案：&）解析：41.Visual Basic 变量名字只能由字母、 1、下划线组成，总长度不得超过 255。（分数：2.00）填空项 1:_ （正确答案：数字）解析：42.模块级变量的声明关键字是 Dim 或 1。（分数：2.00）填空项 1:_ （正确答案：Private）解析：43.用户可以用 1 语句定义自己的数据类型。（分数：2.00）填空项 1:_ （正确答案
22、：Type）解析：44.下面程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个 0 或 1 的整数，相当于一次投币，1 代表正面，0 代表反面。在窗体上有三个文本框，名称分别是 Text1、 Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如下图所示。程序运行后，在文本框 Text1中输入总次数，然后卑击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。（分数：2.00）填空项 1:_ （正确答案：n 或 CInt(Text1.Text 或 CInt(Text1)或 Text1.Te
23、xt 或Val(Text1.Text)或 Val(Textl)或 Text1）解析：45.组合框有 3 种不同的类型，这 3 种类型是下拉式列表框、简单组合框和 1，分别通过把 style 属性设置为 2、1、0 来实现。（分数：2.00）填空项 1:_ （正确答案：下拉式组合框）解析：在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load 事件过程给数组赋初值 35，48，15，22，67。Form_Click 事件过程对数组元素进行处理。DimA rr(1 To 5)Private Sub Form_Load()11 End SubPriv
24、ate Form_Click()12 If Int(x/3)=x/3 ThenPrintXEnd IfNext XEnd Sub（分数：4.00）填空项 1:_ （正确答案：Arr=Anay(35,48,15,22,67)）解析：填空项 1:_ （正确答案：For Each x In Arr）解析：46.窗体上有两个按钮，执行程序后按 Cancel 按钮的输出结果是_。Private Sub Commandl_Click()Print“北京”；End SubPrivate Sub Command2,_Click()Print“南京”；End SubPrivate Sub Form_Load()
25、Command2.Cancel=TreeCommand1.Cancel=TreeEnd Sub（分数：2.00）填空项 1:_ （正确答案：北京）解析：47.下列程序是用来计算 1+2+3+10 的程序段，请补充完整该程序。Dimi,s,k As Integers=0:k=0For_To-1k=k+1s=s+kNextiPrint S（分数：2.00）填空项 1:_ （正确答案：i=-10）解析：48.下列事件过程的功能是：通过 Foma_Load 事件给数组赋初值为 35、48、15、22、67， Form_Click 事件找出可以被 3 整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。Dim Arr()Private Sub Form_Load()_End SubPrivate Sub Form_CUck()For EaCh x In ArrIf Int(x/3)=x/3 ThenPdnt XEnd IfNeXt XEnd Sub（分数：2.00）填空项 1:_ （正确答案：Arr=Array(35,48,15,22,67)）解析：
