1、二级 VISUAL+BASIC 笔试-367 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列关于算法复杂度描述正确的是_。A) 算法的时间复杂度是指算法执行的时间B) 算法的空间复杂度是指执行这个算法所需的内存空间C) 一个算法的空间复杂度大，则其时间复杂度必定大D) 一个算法的空间复杂度大，则其时间复杂度必定小（分数：2.00）A.B.C.D.2.下列叙述中正确的是_。A) 栈是“先进先出“的线性表B) 队列是“先进后出“的线性表C) 循环队列中元素的个数是由队头指针和队尾指针共同决定的D) 循环队列中对头指针是固定不变的（分数：2
2、.00）A.B.C.D.3.下列排序方法中，最坏情况下比较次数最少的是_。A) 简单选择排序 B) 冒泡排序 C) 堆排序 D) 直接插入排序（分数：2.00）A.B.C.D.4.下列选项中属于结构化程序设计原则的是_。A) 可封装 B) 多态性 C) 自下而上 D) 逐步求精（分数：2.00）A.B.C.D.5.下列描述中正确的是_。A) 程序就是软件 B) 软件开发不受计算机系统的限制C) 软件既是逻辑实体，又是物理实体 D) 软件是程序、数据和相关文档的集合（分数：2.00）A.B.C.D.6.下列关于数据流图的描述正确的是_。A) 数据流图是描述数据处理过程的工具 B) 数据流图间接支
3、持系统的功能建模C) 数据流图中带箭头的线段表示控制流 D) 数据流图是软件详细设计的工具（分数：2.00）A.B.C.D.7.下列叙述中正确的是_。A) 软件测试的目的是确定程序中错误的位置 B) 软件测试的目的是发现程序中的错误C) 软件调试的目的是发现程序中的错误 D) 软件调试后一般不需要再测试（分数：2.00）A.B.C.D.8.数据库管理系统中负责数据模式定义和数据的物理存取构建的语言是_。A) 数据定义语言 B) 数据管理语言C) 数据操纵语言 D) 数据控制语言（分数：2.00）A.B.C.D.9.在 E-R 图中，用来表示实体的图形是_。A) 矩形 B) 椭圆形 C) 菱形
4、D) 三角形（分数：2.00）A.B.C.D.10.有两个关系 R 和 S 如下：（分数：2.00）A.B.C.D.11.下列不属于主窗口的是_。A) 最大化按钮 B) 状态栏 C) 系统菜单 D) 工具栏（分数：2.00）A.B.C.D.12.若变量 a 未事先定义而直接使用，变量 b 在定义的时候省略其数据类型，则变量 a 和 b 的数据类型分别为_。A) Integer, Variant B) Variant, String C) Boolean, String D) Variant,Variant（分数：2.00）A.B.C.D.13.表达式 2*32+4*2/2+32 的值是_。A)
5、 30 B) 31 C) 49 D) 48（分数：2.00）A.B.C.D.14.设 a=5,b=4，c=3，d=2，则执行下列语句后，x 的值为_。x=IIf(32 *b Or a=c And bc Or cd,10,20)A) 10 B) 20 C) 30 D) 300（分数：2.00）A.B.C.D.15.执行以下程序后输出的是_。Private Sub Command1_Click()ch $=“VisualBasic“Print Mid(Right(ch $,6),Len(Left(ch $,4),2)End SubA) 1Basic B) Visu C) si D) asic（分数
6、：2.00）A.B.C.D.16.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是_。A) Private Sub Text1 Click()Label1.Caption=Len(Text1.Text)End SubB) Private Sub Text1_Change()Label1.Caption=Str(Len (Text1.Text)End SubC) Private Sub Text1 Change()Label1.Caption=Str(Tex
7、t1.Text)End SubD) Private Sub Label1_Change()Label1.Caption=Str(Len(Text1.Text)End Sub（分数：2.00）A.B.C.D.17.以下语句的输出结果是_。Private Sub Form_Click()Print Format $ (5874.567,“0.00E-00“)End SubA) 5874.57 B) 5.87456E03 C) 5847.567 D) 5.87E03（分数：2.00）A.B.C.D.18.以下叙述中，错误的是_。A) 标准模块文件可以属于某个指定的窗体文件B) 标准模块文件的扩展名是
8、.basC) 一个 Visual Basic 应用程序可以含有多个标准模块文件D) 一个 Visual Basic 工程可以含有多个窗体文件（分数：2.00）A.B.C.D.19.语句“Dim a(-2 To 3，2 To 6)As Integer“定义的数组的元素个数是_。A) 20 B) 25 C) 30 D) 36（分数：2.00）A.B.C.D.20.设有如下程序段：Dim a(10)For Each x In aPrint x：Next x在上面的程序段中，变量 x 必须是_。A) 整型变量 B) 变体型变量 C) 动态数组 D) 静态数组（分数：2.00）A.B.C.D.21.下列
9、说法错误的是_。A) 在 Visual Basic 中，存在一种信息框，或者称之为消息框，用 MsgBox 函数建立B) 在程序运行时，通用对话框控件是可见的C) Visual Basic 中输入对话框是用 InputBox 函数建立的D) 调用同一个通用对话框控件的不同方法(如 ShowOpen 或 ShowSave)可以打开不同的对话框窗口（分数：2.00）A.B.C.D.22.设在窗体 Form1 上有一个列表框 List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是_。A) Private Sub Form1_Click()Print List1.
10、TextEnd SubB) Private Sub Forml_Click()List1.Print List1.TextEnd SubC) Private Sub List1_Click()Print List1.TextEnd SubD) Private Sub List1_Click()Print Form1.TextEnd Sub（分数：2.00）A.B.C.D.23.在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(2,4，6，8)j=1Fori=4 To 1
11、 Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub运行上面的程序，其输出结果是_。A) 24 B) 68 C) 2468 D) 8642（分数：2.00）A.B.C.D.24.以下叙述中错误的是_。A) 如果过程被定义为 Static 类型，则该过程中的局部变量都是 Static 类型B) Sub 过程中不能嵌套定义 Sub 过程C) Sub 过程中可以嵌套调用 Sub 过程D) Static 类型用于定义变量，不能定义过程（分数：2.00）A.B.C.D.25.下列可以打开随机文件的语句是_。A) Open“file1.dat“ For Input As#
12、1 B) Open“file1.dat“For Append As#1 Len=20C) Open“file1.dat“ For Random As#1 D) Open“file1.dat“ For Random As#1 Len=20（分数：2.00）A.B.C.D.26.有如下程序段：Private Sub Form_Click()Dim m,n As Integerm=InputBox(“请输入 M 的值“)m=Val(m)m1=mn=InputBox(“请输入 N 的值“)n=Val(n)n1=nDo While n0remin=m Mod nm=nn=reminLoopPrint m
13、1, n1,mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入 16 和 24，则程序在窗体上的输出结果为_。A) 16 24 4 B) 16 24 8 C) 24 16 6 D) 24 16 8（分数：2.00）A.B.C.D.27.在窗体上画两个标签和一个命令按钮，其名称分别为 Label1、Label2 和 Command1，然后编写如下程序：Private Sub func(L As Label)L.Caption=“1234“End SubPrivate Sub Form_Load()Label1.Caption=“ABCDE“Label2.Caption=10End Su
14、bPrivate Sub Command1 Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为_。A) ABCD 和 10 B) 1234 和 100 C) ABCD 和 100 D) 1234 和 10（分数：2.00）A.B.C.D.28.下面关于菜单的叙述中错误的是_。A) 弹出式菜单也用菜单编辑器编辑B) 弹出式菜单用 PopupMenu 方法弹出C) 各级菜单中的所有菜单项的名称必须唯一D) 同一子菜单中的菜单项名称必须唯一，但不同子菜单中的菜
15、单项名称可以相同（分数：2.00）A.B.C.D.29.某人设计了下面的函数 fun，功能是返回参数 a 中数值的位数。Function fun(a As Integer) As IntegerDim n%n=1While a/10=0n=n+1:a=a/10Wendfun=nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是_。A) 把语句 a/10=0 改为 a/100 B) 把错句 n=1 改为 n=0C) 把语句 a=a/10 改为 a=a Mod 10 D) 把循环条件 a/10=0 改为 a/100（分数：2.00）A.B.C.D.3
16、0.窗体的左右两端各有一条直线，名称分别为 Line1、Line2；名称为 Shape1 的圆靠在左边的 Line1 直线上(如下图所示)；另有一个名称为 Timer1 的计时器控件，其 Enabled 属性值是 True。要求程序运行后，圆每秒向右移动 100，当圆遇到 Line2 时停止移动。（分数：2.00）A.B.C.D.31.下面关于文件的叙述中错误的是_。A) 随机文件中各条记录的长度是相同的B) 打开随机文件时采用的文件存取方式应该是 RandomC) 向随机文件中写数据应使用语句 Print#文件号D) 打开随机文件与打开顺文件一样，都使用 Open 语句（分数：2.00）A.
17、B.C.D.32.现有如下程序：Private Sub Command1_Click()s=0Fori=1 To 6s=s+f(5+i)NextPrint sEnd SubPublic Function f(x As Integer)If x=8 Thent=x+2Elset=x+1End Iff=tEnd Function运行程序，则窗体上显示的是_。A) 38 B) 49 C) 61 D) 70（分数：2.00）A.B.C.D.33.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，再编写如下程序：Dim ss As StringPrivate Sub T
18、ext1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii)“Then ss=ss+Chr(KeyAscii)End SubPrivate Sub Command1_Click()Dim m As String,i As IntegerFor i=Len(ss) To 1 Step-1m=m+Mid(ss,i，1)NextText1.Text=UCase(m)End Sub运行程序后，在文本框中输入“Visual Basic 2011“，并单击命令按钮，则文本框中显示的是_。A) VISUAL BASIC B) ISUAL BASIC 2011C) CI
19、SAB LAUSIV 2011 D) 1102 CISAB LAUSIV（分数：2.00）A.B.C.D.34.编写如下事件过程：Option ExplicitPrivate Sub Form_Click()Dim Str As String,i As IntegerOpen“examp“ For Output As#1For i=1 To 5Str=Chr(i+65)Print#1,Str;Next iClose 1Open“examp“ For Input As#2Str=Input $ (5, #2)Print Str;Close #2End Sub程序运行后，单击窗体，则窗体上显示的内
20、容是_。A) ABCDE B) BCDEF C) bcdef D) 65（分数：2.00）A.B.C.D.35.在窗体上有一个名称为 Check1 的复选框数组(含 4 个复选框)，还有一个名称为 Text1 的文本框，初始内容为空。程序运行时，单击任意复选框，则把所有选中的复选框后面的文字罗列在文本框中(见下图)。下面能实现此功能的事件过程是_。（分数：2.00）A.B.C.D.二、填空题(总题数：10，分数：30.00)36.设有如下图所示的二叉树，对此二叉树前序遍历的结果为_。（分数：2.00）填空项 1:_37.对长度为 n 的有序线性表进行二分法查找，在最坏情况下所需要的比较次数为
21、1。（分数：2.00）填空项 1:_38. 1 测试的任务是检查软件的功能、性能及其他特征是否与用户的需求一致。（分数：2.00）填空项 1:_39.有关系模式：学生 S(学号，姓名，性别，年龄，身份证号)，课程 C(课号，课名)，其中两个关系模式的键分别是学号和课号，则关系模式选课 SC 可定义为 SC(学号， 1，成绩)。（分数：2.00）填空项 1:_40.从 E-R 图向关系模式转换发生在数据库设计的 1 阶段。（分数：2.00）填空项 1:_41.在窗体上有一个名称为 Command1 的命令按钮，并有如下事件过程和函数过程：Private Sub Command1_Click()D
22、im p as Integerp=m(1)+m(2)+m(3)Print pEnd SubPrivate Function m(n As Integer) As IntegerStatic s As IntegerFor k=1 To ns=s+1Nextm=sEnd Function运行程序，单击命令按钮 Command1 后的输出结果为_。（分数：2.00）填空项 1:_窗体上有名称为 Command1 的命令按钮。事件过程及 2 个函数过程如下：Private Sub Command1_Click()Dim x As Integer,y As Integer,zx=5y=8z=fy(y)
23、Print fx(fx(x)，yEnd SubFunction fx(ByVal a As Integer)a=a+afx=aEnd FunctionFunction fy(ByRef a As Integer)a=a+afy=aEnd Function运行程序，并单击命令按钮，则窗体上显示的 2 个值依次是 (7) 和 (8) 。（分数：4.00）填空项 1:_填空项 1:_42.窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如，单击如下左图中的“重庆“，则与“北京“交换，得到右图的结果。下面是可实现此功能的程序，请填空。（分数：2.0
24、0）填空项 1:_下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如，输入 7685,则输出 5 8 6 7；输入 1000，则输出 0 0 0 1。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox(“请输入一个正整数“)While x (10) Print x Mod 10：x=x/10WendPrint (11) End Sub（分数：4.00）填空项 1:_填空项 1:_要打印 50 个在-100100 之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。Option
25、 Base 1Private Sub Command1_Click()Dim b()Randomize(12) Dox=RndIf x0.5 Then y=1 Else y=-1t=y*Int(Rnd*100)+1(13) Do While kjIf tb(k) Thenk=k+1ElseExit DoEnd IfLoopIf k=j ThenReDim Preserve b(k)b(k)=tPrint b(k)；j=j+1End IfLoop Until j50Print(14) Max=b(1)For n=2 To 50If b(n)Max Then(15) p=nEnd IfNext n
26、Print“最大数是：“；MaxPrint“位置在第“；p；“个“End Sub（分数：8.00）填空项 1:_填空项 1:_填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-367 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列关于算法复杂度描述正确的是_。A) 算法的时间复杂度是指算法执行的时间B) 算法的空间复杂度是指执行这个算法所需的内存空间C) 一个算法的空间复杂度大，则其时间复杂度必定大D) 一个算法的空间复杂度大，则其时间复杂度必定小（分数：2.00）A.B. C.D.解析：解析 算法的时间复杂度是指执行算
27、法所需的计算工作量。算法的空间复杂度是指执行这个算法所需的内存空间。在一个算法的空间复杂度大的情况下，其时间复杂度可能会很大，具体视情况而定；反之亦然。2.下列叙述中正确的是_。A) 栈是“先进先出“的线性表B) 队列是“先进后出“的线性表C) 循环队列中元素的个数是由队头指针和队尾指针共同决定的D) 循环队列中对头指针是固定不变的（分数：2.00）A.B.C. D.解析：解析 栈是“先进后出“的线性表；队列是“先进先出“的线性表；在循环队列结构中，每进行一次入队运算，队头指针就进 1，队头指针和队尾指针一起反映了队列中元素的动态变化情况。3.下列排序方法中，最坏情况下比较次数最少的是_。A)
28、 简单选择排序 B) 冒泡排序 C) 堆排序 D) 直接插入排序（分数：2.00）A.B.C. D.解析：解析 在最坏情况下，冒泡排序、简单选择排序和直接插入排序需要的比较次数都是 n(n-1)/2，堆排序需要比较的次数为 nlog2n，这也是堆排序的最大优点。4.下列选项中属于结构化程序设计原则的是_。A) 可封装 B) 多态性 C) 自下而上 D) 逐步求精（分数：2.00）A.B.C.D. 解析：解析 模块化、自顶向下、逐步求精和限制使用 goto 语句是结构化程序设计的原则。5.下列描述中正确的是_。A) 程序就是软件 B) 软件开发不受计算机系统的限制C) 软件既是逻辑实体，又是物理
29、实体 D) 软件是程序、数据和相关文档的集合（分数：2.00）A.B.C.D. 解析：解析 软件是计算机系统中与硬件相互依存的另一部分，是包括程序、数据及相关文档的完整集合。6.下列关于数据流图的描述正确的是_。A) 数据流图是描述数据处理过程的工具 B) 数据流图间接支持系统的功能建模C) 数据流图中带箭头的线段表示控制流 D) 数据流图是软件详细设计的工具（分数：2.00）A. B.C.D.解析：解析 数据流图是结构化方法的需求分析工具，是描述数据处理过程的工具，是需求理解的逻辑模型的图形表示，它直接支持系统的功能建模。数据流图中带箭头的线段表示数据流。7.下列叙述中正确的是_。A) 软件
30、测试的目的是确定程序中错误的位置 B) 软件测试的目的是发现程序中的错误C) 软件调试的目的是发现程序中的错误 D) 软件调试后一般不需要再测试（分数：2.00）A.B. C.D.解析：解析 软件测试的目的是为了发现程序中的错误，而软件调试的任务是诊断和改正程序中的错误，改正以后还需要再测试。8.数据库管理系统中负责数据模式定义和数据的物理存取构建的语言是_。A) 数据定义语言 B) 数据管理语言C) 数据操纵语言 D) 数据控制语言（分数：2.00）A. B.C.D.解析：解析 数据定义语言负责数据模式定义和数据的物理存取构建；数据操纵语言负责数据的操纵；数据控制语言负责数据完整性、安全性的
31、定义与检查以及并发控制、故障恢复等功能。无数据管理语言的说法。9.在 E-R 图中，用来表示实体的图形是_。A) 矩形 B) 椭圆形 C) 菱形 D) 三角形（分数：2.00）A. B.C.D.解析：解析 在 E-R 图形中，用矩形表示实体集，用椭圆表示属性，用菱形表示关系。10.有两个关系 R 和 S 如下：（分数：2.00）A.B.C. D.解析：解析 选择和投影都是对单个表进行运算，其结果都是一个关系。交和并运算要求参与运算的表具有相同的属性。选择运算是满足条件的元组，由题中图可知，由关系 R 得到关系 S 的操作是选择。11.下列不属于主窗口的是_。A) 最大化按钮 B) 状态栏 C)
32、 系统菜单 D) 工具栏（分数：2.00）A.B. C.D.解析：解析 主窗口由标题栏、菜单栏和工具栏构成，其中标题栏上有系统菜单(窗口左端)以及最小化、最大化和关闭按钮。因此，最大化按钮、系统菜单和工具栏都是主窗口中的成员，而主窗口中没有状态栏。12.若变量 a 未事先定义而直接使用，变量 b 在定义的时候省略其数据类型，则变量 a 和 b 的数据类型分别为_。A) Integer, Variant B) Variant, String C) Boolean, String D) Variant,Variant（分数：2.00）A.B.C.D. 解析：解析 在 Visual Basic 中如
33、果某一变量未定义类型，则默认为 Variant 型；若变量在定义的时候省略其数据类型，该变量也被默认为 Variant 型。所以本题正确答案为 D) 。13.表达式 2*32+4*2/2+32 的值是_。A) 30 B) 31 C) 49 D) 48（分数：2.00）A.B. C.D.解析：解析 根据运算优先级，平方运算优于乘除，乘除优于加减，同级运算遵循自左向右的运算规律，因此题目所给出的式子可以改写为：23 2+(42)2+32=31。14.设 a=5,b=4，c=3，d=2，则执行下列语句后，x 的值为_。x=IIf(32 *b Or a=c And bc Or cd,10,20)A)
34、10 B) 20 C) 30 D) 300（分数：2.00）A. B.C.D.解析：解析 函数 IIF(expr，val1，val2)与 IF 语句相似，当布尔表达式 expr 为 True 时，则选择 val1的值，否则选择 val2 的值。对于表达式 32*b Or a=c And bc Or cd 而言，先执行 32*b 值为False，再判断 a=c And bc 为 False，cd 为 True。所以该表达式的结果为 True，最终答案为 10。15.执行以下程序后输出的是_。Private Sub Command1_Click()ch $=“VisualBasic“Print M
35、id(Right(ch $,6),Len(Left(ch $,4),2)End SubA) 1Basic B) Visu C) si D) asic（分数：2.00）A.B.C. D.解析：解析 本题主要考查 Mid()、Right()、Len()及 Left()的用法。Left(字符串，长度)将返回字符串，从字符串的第一个字符向左取字符串，与之相对应的是 Right()，它将从字符串的最后一个字符向右取字符串；Len(字符串)返回字符串的长度；Mid(字符串，起始字符，长度)返回子字符串，如果从字符串的第一个字符取起，起始字符为 1，依次类推；由分析可知 Right(ch $，6)为从字符串
36、的最后一个字符向右取 6 个字符为“1Basic“，Left(ch $，4)为“Visu“，Len(Left(ch $，4)为 4，所以 Mid(Right(ch $,6),Len(Left(ch $,4),2)=Mid(“1Basic“，4，2)。16.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是_。A) Private Sub Text1 Click()Label1.Caption=Len(Text1.Text)End SubB) Private
37、Sub Text1_Change()Label1.Caption=Str(Len (Text1.Text)End SubC) Private Sub Text1 Change()Label1.Caption=Str(Text1.Text)End SubD) Private Sub Label1_Change()Label1.Caption=Str(Len(Text1.Text)End Sub（分数：2.00）A.B. C.D.解析：解析 在文本框中每输入一个字符，都会触发文本框的 Change 事件，在其事件过程中通过 Len()函数将文本框中字符的个数赋值给标签控件的 Caption 属性。
38、17.以下语句的输出结果是_。Private Sub Form_Click()Print Format $ (5874.567,“0.00E-00“)End SubA) 5874.57 B) 5.87456E03 C) 5847.567 D) 5.87E03（分数：2.00）A.B.C.D. 解析：解析 Format$()为格式输出函数，格式为：Format $(数值表达式，“格式字符串“)。其功能是按“格式字符串“指定的格式输出“数值表达式“的值；如果省略了“格式字符串“，则把“数值表达式“的值转换为一个字符串原样输出。本题中的符号“E+“或“E-“表示将用指数形式显示数值，两者作用基本相同
39、。按“0.00E-00“的格式输出，正确答案为 D) 。18.以下叙述中，错误的是_。A) 标准模块文件可以属于某个指定的窗体文件B) 标准模块文件的扩展名是.basC) 一个 Visual Basic 应用程序可以含有多个标准模块文件D) 一个 Visual Basic 工程可以含有多个窗体文件（分数：2.00）A. B.C.D.解析：解析 标准模块文件为整个工程所有，不属于某个特定的窗体。所以答案选择 A) 。19.语句“Dim a(-2 To 3，2 To 6)As Integer“定义的数组的元素个数是_。A) 20 B) 25 C) 30 D) 36（分数：2.00）A.B.C. D
40、.解析：解析 二维数组的元素个数为两个维度值的乘积，第一维的元素个数为 6，第二维元素个数为 5，所以元素个数为 30。20.设有如下程序段：Dim a(10)For Each x In aPrint x：Next x在上面的程序段中，变量 x 必须是_。A) 整型变量 B) 变体型变量 C) 动态数组 D) 静态数组（分数：2.00）A.B. C.D.解析：解析 For Each 循环中的变量必须是变体型变量或自定义变量。本题循环中，x 代表了数组中的每个元素，它可以代表任意类型的数组元素，因此它必须是一个变体类型的变量。因此，答案为 B) 。21.下列说法错误的是_。A) 在 Visual
41、 Basic 中，存在一种信息框，或者称之为消息框，用 MsgBox 函数建立B) 在程序运行时，通用对话框控件是可见的C) Visual Basic 中输入对话框是用 InputBox 函数建立的D) 调用同一个通用对话框控件的不同方法(如 ShowOpen 或 ShowSave)可以打开不同的对话框窗口（分数：2.00）A.B. C.D.解析：解析 Visual Basic 系统提供了两种预定义对话框：即输入框和信息框(或消息框)，前者用InputBox 函数建立，后者用 MsgBox 函数建立，所以选项 A) 、C) 正确；在程序运行时，通用控件对话框是不可见的，所以 B) 说法错误；通
42、用对话框的方法有 ShowOpen(打开对话框)、ShowSave(另存为对话框)、ShowColor(颜色对话框)、ShowFont(字体对话框)、ShowPrinter(打印机对话框)、ShowHelp(帮助对话框)，因此选项 D) 是正确的。22.设在窗体 Form1 上有一个列表框 List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是_。A) Private Sub Form1_Click()Print List1.TextEnd SubB) Private Sub Forml_Click()List1.Print List1.TextEnd S
43、ubC) Private Sub List1_Click()Print List1.TextEnd SubD) Private Sub List1_Click()Print Form1.TextEnd Sub（分数：2.00）A.B.C. D.解析：解析 单击列表框的某个项目时，可调用的事件是 Click 事件，列表框的 Text 属性用于返回列表框中选择的项目的内容，返回值总与列表框的 List(ListIndex)项属性的返回值相同。因此，在窗体上显示选中的列表项的语句为：PrintList1.Text23.在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：Option
44、Base 1Private Sub Command1_Click()Dim aa=Array(2,4，6，8)j=1Fori=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub运行上面的程序，其输出结果是_。A) 24 B) 68 C) 2468 D) 8642（分数：2.00）A.B.C. D.解析：解析 s=81+610+4100+21000=2468。24.以下叙述中错误的是_。A) 如果过程被定义为 Static 类型，则该过程中的局部变量都是 Static 类型B) Sub 过程中不能嵌套定义 Sub 过程C) Sub 过程中可以嵌套调
45、用 Sub 过程D) Static 类型用于定义变量，不能定义过程（分数：2.00）A.B.C.D. 解析：解析 用 Static 来指定过程中的局部变量在内存中的默认存储方式。如果使用了 Static，则过程中的局部变量就是“Static,型“的，即在每次调用过程时，局部变量的值保持不变。25.下列可以打开随机文件的语句是_。A) Open“file1.dat“ For Input As#1 B) Open“file1.dat“For Append As#1 Len=20C) Open“file1.dat“ For Random As#1 D) Open“file1.dat“ For Ran
46、dom As#1 Len=20（分数：2.00）A.B.C.D. 解析：解析 打开随机文件一般格式为：Open“文件名称“For Random As#文件号Len=记录长度。本题中 A) 、B) 选项都是打开顺序文件。打开随机文件时，不但要以随机方式 Random 打开，而且要指明打开文件的长度 Len，所以答案选择 D) 。26.有如下程序段：Private Sub Form_Click()Dim m,n As Integerm=InputBox(“请输入 M 的值“)m=Val(m)m1=mn=InputBox(“请输入 N 的值“)n=Val(n)n1=nDo While n0remin
47、=m Mod nm=nn=reminLoopPrint m1, n1,mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入 16 和 24，则程序在窗体上的输出结果为_。A) 16 24 4 B) 16 24 8 C) 24 16 6 D) 24 16 8（分数：2.00）A.B. C.D.解析：解析 本题提供的是用“辗转相除法“求两个整数的最大公约数的程序。一般来说，假定有两个整数 m 和 n(mn)，把 m 作为被除数，n 作为除数，相除后余数为 r。如果 r 不等于 0，则令 m=n，n=r，再进行一次除法运算(以新的 m 作为被除数，n 作为除数)，得到新的 r。如果 r 仍不等于 0，则重复上述过程，直到 r=0 为止，此时的 n 就是两个数的最大公约数。在本题 Do WhileLoop 循环中，通过辗转相除法求最大公约数，循环结束的条件是相除后余数为 0，如果不为 0，则一直“除下去。这里用 Mod 运算求余数，较大的整数作为被除数或者较小的整数作为被除数都可以得到正确的结果，但整除的次数可能会不一样。在本题的输入中，先输入 16，再输入 24，求出的最大公约数为 8。27.在
