1、二级 VISUAL+BASIC 笔试 11 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.用下面语句定义的数组元素个数是( )。 Dim Arr2(-2 To 6，1 To 5)As Integer（分数：2.00）A.45B.40C.36D.322.关于 VB 中的过程，下列说法正确的是( )。（分数：2.00）A.不能嵌套定义，也不能嵌套调用B.可嵌套定义，但不能嵌套调用C.不能嵌套定义，但可嵌套调用D.既能嵌套定义，也能嵌套调用3.如果想要在名为 MenuItem1 的菜单项前加“”，则应执行( )语句。（分数：2.00）A.M
2、enultem1Caption=“B.MenuItem1Checked=TrueC.MenuItem1Enabled=TrueD.MenuItem1Visible=True4.在窗体上有两个文本框控件和一个命令按钮，名称分别为 Text1、Text2 和 Command1，以下程序实现的功能是当单击 Command1 按钮时，将把 Text2 控件中的文本全部选中，并把焦点设置在该文本框中。程序运行时的界面如图 20-4 所示，以下两空应填( )。 （分数：2.00）A.SelLength SetFocusB.SelText SetFocusC.SelLength GetFocusD.SelT
3、ext GetFocus5.详细设计规格说明通常使用的手段是( )。（分数：2.00）A.IPO 图与层次图B.HIPOC.IPO 或 PDLD.HIPO 或 PDL6.当发生窗体的单击事件时，输出的第二行为( )。 Private Sub Form_click() Dim N1 As Integer,N2 As Integer,N3 As Integer N1=1:N2=1 Print N1;N2 Do N3=N1+N2 Print N3； N1=N2:N2=N3 Loop Until N3=5 End Sub（分数：2.00）A.1 1 1B.2 3 5C.2 5 7D.2 3 47.在用
4、最坏情况复杂度分析算法的时间复杂度时，是分析算法执行基本运算的最大次数。它的计算难易性及实用性与平均性态相比，最坏情况复杂度( )。（分数：2.00）A.计算方便，实用性好B.计算不便，实用性差C.计算方便，但实用性差D.计算不便，但实用性好8.关于 VB，下列说法不正确的是( )。（分数：2.00）A.一行可以写多条语句，一条语句也可以写在多行上B.书写时大小写严格区分C.要在 VB 程序中加注释，可使用 REM 和单引号D.系统自动把保留字的第一个字母改为大写9.下列排序方法中，属于稳定的排序方法的是( )。（分数：2.00）A.直接选择排序B.堆排序C.希尔排序D.快速排序10.在窗体上
5、画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static A As Integer Static B As Integer B=B+3 A=3+A Print A,B End Sub 程序运行时，三次单击命令按钮 Command1 后，在窗体上显示的第三行是( )。（分数：2.00）A.3 6B.6 6C.9 9D.3 311.在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为，( )。 Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byva
6、l z As Integer) z=x3*y3 End Sub Private Sub Command1_Click() Dim m As Integer Call fun(2，3，m) Print m End Sub（分数：2.00）A.216B.0C.35D.程序不能运行12.当发生 Form_Click 事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i
7、=1 To 5 If(i=j)Then a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End Sub（分数：2.00）A.1 3 5 7 9B.2 1 3 5 7C.2 2 2 1 3D.2 2 1 3 513.“软件危机”是指( )。（分数：2.00）A.计算机病毒的出现B.利用计算机系统进行经济犯罪C.人们过分迷恋计算机系统D.软件开发和软件维护中出现的一系列问题14.关系代数中的 连接操作由( )操作组合而成。（
8、分数：2.00）A. 和 B. 和C.、6 和D. 和15.提高模块的( )，使得当修改或维护模块时，可减少把一个模块的错误扩散到其他模块中去的机会。（分数：2.00）A.耦合性B.独立性C.内聚性D.共享性16.可通过“打开”对话框的( )属性设置对话框中所显示文件的类型。（分数：2.00）A.FileNameB.FilterC.FilterIndexD.InitDir17.当发生 Form_Click 事件时，下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，
9、p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End Sub（分数：2.00）A.7 75 66 60 7 80 126 60B.7 75 66 60 7 75 126 60C.7 75 66 60
10、7 80 66 60D.7 75 66 60 7 75 66 6018.设有语句： Temp=MsgBox(“继续执行吗“,vbYesNo,“退出提示框“) 程序运行时，在对话框的标题栏将显示( )。（分数：2.00）A.继续执行吗B.vbYesNoC.退出提示框D.Temp19.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为_。（分数：2.00）A.For i=0 To List1ListCount-1 NextB.For i=0 To List1Count-1 NextC.For i=1 To List1ListCount NextD.
11、For i=1 To List1Count-1 Next20.程序段： S=0 For I=1 to 5 step 2 S=s+I Next I Print I 语句 S=S+1 执行的次数和最后 I 的值分别为( )。（分数：2.00）A.3，7B.2，5C.3，5D.2，721.窗体上有一个名为 List1 的列表框，程序执行时在窗体上单击，输出的结果是( )。 Priate Sub Form_Click() For i=0 To List1ListCount-1 If i Mod 2=0 Then Print List1List(i)； End If Next i End Sub Pri
12、vate Sub Form_Load() List1AddItem“中国“ List1AddItem“日本“ List1AddItem“韩国“ List1AddItem“新加坡“ List1AddItem“香港“ End Sub（分数：2.00）A.中国韩国B.日本新加坡C.中国韩国香港D.中国日本韩国新加坡香港22.要在窗体 Form1 中定义一个可以在窗体 Form2 中使用的整型变量 X，可在 Form1 窗体的通用部分输入语句( )。（分数：2.00）A.Dim X As IntegerB.Static X As IntegerC.Private X As IntegerD.Publi
13、c X As Integer23.可通过( )方法把一个窗体隐藏起来，但不从内存中卸载。（分数：2.00）A.UnloadB.HideC.LoadD.Close24.代数式|e 3a+1gy13+siny2|对应的 Visual Bask 表达式是( )。（分数：2.00）A.Abs(e3*a+1g(y13)+1/sin(y2)B.Abs(Exp(3)*a+Log(y13)/Log(10)+sin(y2)C.Abs(Exp(3)*a+Log(y13)+sin(y2)D.Abs(Exp(3)*a+Log(y13)+1/sin(y2)25.Double 双精度数占( )个字节。（分数：2.00）A
14、.2B.4C.8D.1026.在文件列表框中，要使它只显示具有归档属性和只读属性的文件，应使它的( )属性为 True。（分数：2.00）A.ArchiveB.Norma1C.HiddenD.ReadOnly27.在文本框中按下了一个键(A)，以下正确的说法是( )。（分数：2.00）A.将会发生 KeyDow、KeyPress、Change 和 KeyUp 事件B.将会发生 KeyDow、KeyPress、KeyUp 事件但不会发生 Change 事件C.将会发生 KeyDow、Change、KeyUp 事件但不会发生 KeyPress 事件D.只会发生 KeyPress 和 Change
15、事件28.数据库概念设计的 E-R 方法中，用属性描述实体的特征，属性在 E-R 图中，一般使用( )图形表示。（分数：2.00）A.矩形B.四边形C.菱形D.椭圆形29.已知通用对话框名为 Cd1g，则执行下列的( )语句，将弹出“打印机”对话框。（分数：2.00）A.Cd1Action=6B.Cd1Action=5C.Cd1Action=4D.Cd1Action=330.算法的计算量的大小称为计算的( )。（分数：2.00）A.概率B.难度C.复杂度D.效率31.在数据库系统中，当总体逻辑结构改变时，通过修改( )，使局部逻辑结构不变，从而使建立在局部逻辑结构之上的应用程序也保持不变，称之
16、为数据和程序的逻辑独立性。（分数：2.00）A.应用程序B.逻辑结构和物理结构之间的映像C.存储结构D.局部逻辑结构到总体逻辑结构的映像32.程序的三种基本控制结构的共同点是( )。（分数：2.00）A.不能嵌套使用B.只能用来写简单的程序C.已经用硬件实现D.只有一个入口和一个出口33.窗体加载时，最先发生的事件是( )。（分数：2.00）A.Form_InitializeB.Form LoadC.Form_ResizeD.Form Paint34.表示条件“X+Y 大于 10 小于 100，且 X-Y 要小于 0”的逻辑表达式为( )。（分数：2.00）A.10X+Y100 And X-Y
17、0B.X+Y10 And X+Y100 And X-Y0C.X+Y10 And X+Y100 Or X-YOD.X+Y10 Or X+Y100 Or X-Y035.函数 Mid(“abcdefghijk“，5，3)的值是( )。（分数：2.00）A.efgB.fghC.efghijkD.fghijk二、B填空题/B(总题数：10，分数：20.00)36.为了增加内存空间的利用率和减少溢出的可能性，由两个栈共享一片连续的内存空间时，应将两栈的栈底分设在这片内存空间的两端。这样，只有当两个栈的U 【1】 /U在栈空间的某一位置相遇时，才产生上溢。（分数：2.00）填空项 1:_37.设一棵完全二叉
18、树共有 500 个结点，则在该二叉树中有U 【2】 /U个叶子结点。（分数：2.00）填空项 1:_38.栈的基本运算有三种：入栈、退栈和U 【3】 /U。（分数：2.00）填空项 1:_39.软件动态测试大致可以分为U 【4】 /U测试法和黑盒测试法（分数：2.00）填空项 1:_40.用二维表结构表示实体以及实体间联系的数据模型称为U 【5】 /U数据模型。（分数：2.00）填空项 1:_41.为了使计时器控件 Timer1 每隔 0.5s 触发一次 Timer 事件，应将 Timer1 控件的 Interva1 属性设置为U 【6】 /U。（分数：2.00）填空项 1:_42.在窗体上有
19、 5 个控件：一个名称为 Text1 的文本框控件，用来显示文本；两个名称分别为 Check1(设置显示文本的下划线)和 Check2(设置显示文本的加粗)的复选框；两个名称分别为 Option1(设置字的大小为 12 磅)和 Option2(设置字的大小为 16 磅)的单选按钮。当 Check1 被选中时，文本框中显示的字体加下划线，当 Option2 被选中时，文字框中显示的字体大小为 16 磅，程序运行时的界面如图 20-5 所示。请填空。 （分数：2.00）填空项 1:_43.下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=1 3+53+33。Option
20、 ExplicitPrivate Sub Form_Click()Dim x1 As Integer,x2 As Integer,x3 As IntegerU 【9】 /UFor i=100 To 999x=ix1=U 【10】 /U个位数字x2=x/10 Mod 10x3=x/100IfU 【11】 /UThenPrint iEnd IfNext iEnd Sub（分数：2.00）填空项 1:_44.下列程序的功能是：单击窗体时将求出随机生成的 10 个两位数中的最大数及其下标，请填空。 Option Base 1 Private Sub Form_Click() Dim a(10) As
21、Integer，i As Integer Dim max As Integer，max_i As Integer Randomize For i=1 To 10 a(i)=U 【12】 /U Next i max=a(1)：max_i=1 For i=1 To 10 IfU 【13】 /UThen max=a(i) max_i=i End If Next i Print max,max_i End Sub（分数：2.00）填空项 1:_45.下列程序的功能是求出所有的 1100 之间的孪生素数。孪生素数是指两个素数的差为 2，如 3 和5，11 和 13 等，请填空。 Private Sub
22、Form_Click() Dim i As Integer For i=3 To 97 Step 2 IfU【14】 /UThen Print i，i+2 End If Next i End Sub Public Function prime(ByVal n As Integer)As Boolean Dim i As Integer For i=2 To n-1 IfU 【15】 /UThen Exit For End If Next i If i=n Then prime=True Else prime=False End If（分数：2.00）填空项 1:_二级 VISUAL+BASIC
23、 笔试 11 答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.用下面语句定义的数组元素个数是( )。 Dim Arr2(-2 To 6，1 To 5)As Integer（分数：2.00）A.45 B.40C.36D.32解析：解析 二维数组的元素个数可由各维的下标个数相乘得到，每一维的下标个数可表示为：Up-Down+1。Up 为下标上界，Down 为下标下界，故该数组第一维的长度为 9，第二维的长度为 5，数组元素个数为 45。2.关于 VB 中的过程，下列说法正确的是( )。（分数：2.00）A.不能嵌套定义，也不能嵌套调用B.可嵌
24、套定义，但不能嵌套调用C.不能嵌套定义，但可嵌套调用 D.既能嵌套定义，也能嵌套调用解析：解析 VB 中的过程都是并行的，不可嵌套定义，但 VB 中的过程可以相互调用，并可嵌套调用和递归调用。3.如果想要在名为 MenuItem1 的菜单项前加“”，则应执行( )语句。（分数：2.00）A.Menultem1Caption=“B.MenuItem1Checked=True C.MenuItem1Enabled=TrueD.MenuItem1Visible=True解析：解析 可通过菜单项的一些属性来改变菜单项的特征。菜单项的 Caption 属性用来设置菜单项显示的标题；Checked 属性用
25、来设置菜单项的选中标记，如果它的值为 True 时，将在菜单项名前加一个“”；Enabled 属性用来决定菜单项是否起作用，当它的值为 True 时将起作用，为 False 时将以变灰的方式显示；Visible 属性用来决定菜单项是否可见，当它的值为 True 时，菜单项可见，否则菜单项不可见。4.在窗体上有两个文本框控件和一个命令按钮，名称分别为 Text1、Text2 和 Command1，以下程序实现的功能是当单击 Command1 按钮时，将把 Text2 控件中的文本全部选中，并把焦点设置在该文本框中。程序运行时的界面如图 20-4 所示，以下两空应填( )。 （分数：2.00）A.
26、SelLength SetFocus B.SelText SetFocusC.SelLength GetFocusD.SelText GetFocus解析：解析 文本框与选定文本有关的属性主要有三个，分别是 SelStart、SelLength 和SelText，SelStart 用来设置和返回被选中文本的开始位置，SelLength 用来设置和返回选中文本的长度，SelText 是用来返回被选中的文本。要使文本框得到焦点，可使用它的方法 SetFocus。要把文本框中的文本全部选中，可把它的 SelStart 设置为 0，SelLength 的值设置为文本的长度。故第一空应填“SelLeng
27、th”，第二空应填“SetFocus”。5.详细设计规格说明通常使用的手段是( )。（分数：2.00）A.IPO 图与层次图B.HIPOC.IPO 或 PDLD.HIPO 或 PDL 解析：解析 详细设计阶段的最后结果，可能采用层次图与输入、处理、输出图的结合(HIPO)或过程描述语言(PDL)来描述，而 PDL 也称为结构化的英语和伪码。HIPO(读作 hyper)图的原意是 H+IPO,由一组IPO 图加一张 HC 图组成。6.当发生窗体的单击事件时，输出的第二行为( )。 Private Sub Form_click() Dim N1 As Integer,N2 As Integer,N
28、3 As Integer N1=1:N2=1 Print N1;N2 Do N3=N1+N2 Print N3； N1=N2:N2=N3 Loop Until N3=5 End Sub（分数：2.00）A.1 1 1B.2 3 5 C.2 5 7D.2 3 4解析：解析 此处需注意的是，DOLoop Until 循环的结束条件是 Until 后面的表达式值是 True。当发生窗体的单击事件时，首先给变量 N1 和 N2 赋值为 1，然后输出为 1 2 并换行。执行循环，N3 的值为 2，输出 2 不换行，进行赋值后 N1 的值为 1，N2 的值为 2，判断条件“2=5”为 False，重新执行
29、循环：第二次执行循环输出 N3 的值为 3，循环结束条件依旧为 False；第三次执行循环输出 N3 的值为 5，循环结束条件为 True，循环退出。所以输出的第二行为“2 3 5”。7.在用最坏情况复杂度分析算法的时间复杂度时，是分析算法执行基本运算的最大次数。它的计算难易性及实用性与平均性态相比，最坏情况复杂度( )。（分数：2.00）A.计算方便，实用性好 B.计算不便，实用性差C.计算方便，但实用性差D.计算不便，但实用性好解析：解析 平均性态指用各种特定输入条件下的基本运算次数的加权平均值来度量算法的工作量，它是所有可能输入出现概率与基本运算次数乘积的和，而每种输入的概率是不易求得的
30、。相比较而言，最坏情况复杂度给出的是算法的上界，它比较容易求得，可以用来大体估计算法的时间复杂度，因而更有实用性，所以选 A。8.关于 VB，下列说法不正确的是( )。（分数：2.00）A.一行可以写多条语句，一条语句也可以写在多行上B.书写时大小写严格区分 C.要在 VB 程序中加注释，可使用 REM 和单引号D.系统自动把保留字的第一个字母改为大写解析：解析 解析 在 VB 中，可以在一行中写多条语句，语句之间用“:”隔开，也可以把一条语句写在多行，用空格加下划线“”作为续行标志；在 VB 中有两种加注释的方法，使用 REM 语句和单引号，REM 只能作为一条语句；当输入一个保留字时，VB
31、 自动把第一个字母变为大写；VB 中大小写字母不区分。9.下列排序方法中，属于稳定的排序方法的是( )。（分数：2.00）A.直接选择排序 B.堆排序C.希尔排序D.快速排序解析：解析 稳定性是指如果在待排序的表中含有多个码值相同的记录，经过排序后，这些记录的相对次序不变，则称这种排序方法是稳定的，否则是不稳定的。选项 B、C、D 都存在不相邻元素之间位置的比较交换，都是不稳定的。10.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static A As Integer Static B As Integer
32、B=B+3 A=3+A Print A,B End Sub 程序运行时，三次单击命令按钮 Command1 后，在窗体上显示的第三行是( )。（分数：2.00）A.3 6B.6 6C.9 9 D.3 3解析：解析 在 Command1 的单击事件中，首先定义了两个静态变量，静态变量的特点是过程执行完毕后，变量依旧存在。下一次再进入过程执行时，静态变量将保留上一次退出时的值。第一次发生 Command1 的单击事件时，静态变量 A 和 B 的值均为 3：第二次发生 Command1 的单击事件时，A 和 B 依旧保留上一次退出时的值 3，执行两条赋值语句后，A 和 B 的值均为 6；同理，第三次
33、发生 Command1 的单击事件，A 和 B的值将均为 9。11.在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为，( )。 Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byval z As Integer) z=x3*y3 End Sub Private Sub Command1_Click() Dim m As Integer Call fun(2，3，m) Print m End Sub（分数：2.00）A.216B.0 C.35D.程序不能运行解析：解析 当发生了 Command1的单击事件时，调用 fu
34、n 过程，把常量 2、3 和变量 m 按值传给形参x、y 和 z，在过程 fun 中把表达式“x3*y3”的值赋给 z，z 的值为 316。过程调用返回后，由于 m 是值传递，所以对 z 的修改并没有改变它的值，m 依旧保留原来的值是 0。12.当发生 Form_Click 事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i=1 To 5 If(i=j)The
35、n a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End Sub（分数：2.00）A.1 3 5 7 9B.2 1 3 5 7C.2 2 2 1 3D.2 2 1 3 5 解析：解析 本题首先通过一个两层循环给 5 行 5 列的二维数组 a 的各个元素赋值，通过计算，不难得出二维数组各行的值。第一行的值为：1 3 5 7 9：第二行的值为：2 1 3 5 7；第三行的值为：2 2 1 3 5；第四行的值为：2 2 2
36、1 3；第五行的值为：2 2 2 2 1。然后再通过一个双层循环按行输出该数组，所以输出的第三行为：2 2 1 3 5。13.“软件危机”是指( )。（分数：2.00）A.计算机病毒的出现B.利用计算机系统进行经济犯罪C.人们过分迷恋计算机系统D.软件开发和软件维护中出现的一系列问题 解析：解析 随着计算机硬件技术的迅猛发展，软件规模不断扩大，软件本身的复杂性不断增加，在计算机软件的开发和维护过程中所遇到的一系列问题，主要指随着计算机技术的发展和应用领域的扩大，复杂程序不断增加，软件成本逐年上升，质量没有保证，被称之为“软件危机”。14.关系代数中的 连接操作由( )操作组合而成。（分数：2.
37、00）A. 和 B. 和 C.、6 和D. 和解析：解析 在解答此问题时应注意各关系运算符的含义，n 表示投影， 表示选择，表示笛卡尔积。 连接是从笛卡尔积中选取属性值之间满足一定条件的元组，因此是由选择和笛卡尔积操作组合而成的。15.提高模块的( )，使得当修改或维护模块时，可减少把一个模块的错误扩散到其他模块中去的机会。（分数：2.00）A.耦合性B.独立性 C.内聚性D.共享性解析：解析 把系统分解为模块时应该遵守的指导思想，称为信息隐藏。这一指导思想的目的是为了提高模块的独立性，当修改或维护模块时减少把一个模块的错误扩散到其他模块中去的机会。16.可通过“打开”对话框的( )属性设置对
38、话框中所显示文件的类型。（分数：2.00）A.FileNameB.Filter C.FilterIndexD.InitDir解析：解析 “打开”对话框的 FileName 属性用于返回在“文件名称”文本框中显示的文件名，在程序中可用该属性值设置或返回用户所选定的文件名(包括路径)：Filter 属性用于确定文件列表框中所显示文件的类型，该属性值可以由一组元素或“尸符号分开的分别表示不同类型文件的多组元素组成；FilterIndex 表示用户在文件类型列表框中选定了第几组文件类型：InitDir 用来指定打开对话框中的初始目录，若要显示当前目录，则该属性不需要设置。17.当发生 Form_Cli
39、ck 事件时，下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5
40、 m=n+x+y x=x+y y=x+y End Sub（分数：2.00）A.7 75 66 60 7 80 126 60 B.7 75 66 60 7 75 126 60C.7 75 66 60 7 80 66 60D.7 75 66 60 7 75 66 60解析：解析 本题定义了两个窗体级变量 m 和 n，并在窗体的 Load 事件中给窗体级变量 m 和 n 分别赋值7 和 70。当发生 Form_Click 事件时，首先进行第一次 sub1 过程的调用，把 k 的值 6 按地址传递给形参x，把 p 的值 60 按值传递给形参 y。在 sub1 中定义了一个局部变量 m，因此在该函数中使
41、用的 m 是局部变量而非窗体级变量。执行下面的 4 条赋值语句后，窗体级变量 n 的值为 75，局部变量 m 的值为 142，形参x 的值为 66，形参 y 的值为 126。函数调用返回后，由于 p 是按值传递，所以它的值没有变化，k 是按地址传递，所以它的值变为邱，输出 m、n、k 和 p 的值分别是 7、75、66 和 60。同理，分析第二次 sub1 过程调用，可知过程调用返回后，变量 m、n、k 和 p 的值分别是 7、80、126、60。18.设有语句： Temp=MsgBox(“继续执行吗“,vbYesNo,“退出提示框“) 程序运行时，在对话框的标题栏将显示( )。（分数：2.0
42、0）A.继续执行吗B.vbYesNoC.退出提示框 D.Temp解析：解析 MsgBox 函数用于向用户发布提示信息，并要求用户作出必要的响应。该函数的前三个参数的含义如下：第一个参数是消息框中的提示文字：第二个参数的用来指示消息框中显示的按钮、图标和默认按钮等：第三个参数是对话框的标题。19.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为_。（分数：2.00）A.For i=0 To List1ListCount-1 Next B.For i=0 To List1Count-1 NextC.For i=1 To List1ListCoun
43、t NextD.For i=1 To List1Count-1 Next解析：解析 列表框中列表项的下标从 0 开始，而列表框的 ListCount 属性用来返回列表项的数目，所以列表项的下标为从 0 到 ListCount-1。20.程序段： S=0 For I=1 to 5 step 2 S=s+I Next I Print I 语句 S=S+1 执行的次数和最后 I 的值分别为( )。（分数：2.00）A.3，7 B.2，5C.3，5D.2，7解析：解析 For 循环的结束条件是循环变量的值在变化方向上“超过”终值，本题循环变量 I 的初值为 1，终值为 5，步长为 2，所以变化方向是从
44、小到大，在 I=1、I=3 和 I=5 时，分别执行一次循环，I 为7 时，循环变量的值已经超过了终值，循环结束。所以 s=s+1 执行了三次，I 的值为 7。21.窗体上有一个名为 List1 的列表框，程序执行时在窗体上单击，输出的结果是( )。 Priate Sub Form_Click() For i=0 To List1ListCount-1 If i Mod 2=0 Then Print List1List(i)； End If Next i End Sub Private Sub Form_Load() List1AddItem“中国“ List1AddItem“日本“ List
45、1AddItem“韩国“ List1AddItem“新加坡“ List1AddItem“香港“ End Sub（分数：2.00）A.中国韩国B.日本新加坡C.中国韩国香港 D.中国日本韩国新加坡香港解析：解析 在 Form_Load 事件中，给列表框增加了 5 个选项，分别是“中国”、“日本”、“韩国”、“新加坡”和“香港”，它们被保存在 List 数组属性中，下标从 0 开始。当发生 Form_Click 事件时，通过一个循环依次输出下标能被 2 整除的列表项，为“中国韩国香港”。22.要在窗体 Form1 中定义一个可以在窗体 Form2 中使用的整型变量 X，可在 Form1 窗体的通用
46、部分输入语句( )。（分数：2.00）A.Dim X As IntegerB.Static X As IntegerC.Private X As IntegerD.Public X As Integer 解析：解析 在窗体的通用部分用“Dim”、“Private”和“Static”定义的变量是窗体级变量，只能被本窗体中的过程使用。为了能使变量能够被其他窗体使用，必须把它定义成全局变量，即用“Public”定义。23.可通过( )方法把一个窗体隐藏起来，但不从内存中卸载。（分数：2.00）A.UnloadB.Hide C.LoadD.Close解析：解析 Unload 和 Load 是语句而不是
47、方法，Unload 语句用来把指定的窗体从内存卸载，Load 语句用来把指定的窗体加载到内存。Hide 是窗体的方法，用来把指定的窗体隐藏起来但并不从内存中卸载。窗体无 Close 方法。24.代数式|e 3a+1gy13+siny2|对应的 Visual Bask 表达式是( )。（分数：2.00）A.Abs(e3*a+1g(y13)+1/sin(y2)B.Abs(Exp(3)*a+Log(y13)/Log(10)+sin(y2) C.Abs(Exp(3)*a+Log(y13)+sin(y2)D.Abs(Exp(3)*a+Log(y13)+1/sin(y2)解析：解析 e 在 VB 中不是常
48、量，表示 e3的可使用函数 Exp(3)，VB 中没有常用对数函数，只能通过自然对数函数 Log(x)来求常用对数，公式为 1gx=1n(x)/1n(10)。因“1gy1 3”可表示为“Log(y13)/Log(10)”，正弦函数为 sin，绝对值函数为 Abs，可见，只有答案 B 中的表达式是正确的。25.Double 双精度数占( )个字节。（分数：2.00）A.2B.4C.8 D.10解析：解析 VB 中每种数据类型占用的字节数是不同的，如 Integer 型占两个字节，Single 型占 4 个字节，Double 型占 8 个字节。26.在文件列表框中，要使它只显示具有归档属性和只读属性的文件，应使它的( )属性为 True。（分数：2.00）A.ArchiveB.Norma1 C.HiddenD.ReadOnly解析：解析 文
