1、二级 VISUAL+BASIC-47 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：40，分数：100.00)1.一个栈的初始状态为空。现将元素 1、2、3、4、5、A、B、C、D、E 依次入栈，然后再依次出栈，则元素出栈的顺序是_。 A.12345ABCDE B.EDCBA54321 C.ABCDE12345 D.54321EDCBA（分数：3.00）A.B.C.D.2.下列叙述中正确的是_。 A.循环队列有队头和队尾两个指针，因此，循环队列是非线性结构 B.在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况 C.在循环队列中，只需要队尾指针
2、就能反映队列中元素的动态变化情况 D.循环队列中元素的个数是由队头指针和队尾指针共同决定（分数：3.00）A.B.C.D.3.在长度为 n 的有序线性表中进行二分查找，最坏情况下需要比较的次数是_。 A.O(n) B.O(n2) C.O(log2n) D.O(nlog2n)（分数：3.00）A.B.C.D.4.下列叙述中正确的是_。 A.顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的 B.顺序存储结构只针对线性结构，链式存储结构只针对非线性结构 C.顺序存储结构能存储有序表，链式存储结构不能存储有序表 D.链式存储结构比顺序存储结构节省存储空间（分数：3.00）A.B.C
3、.D.5.数据流图中带有箭头的线段表示的是_。 A.控制流 B.事件驱动 C.模块调用 D.数据流（分数：3.00）A.B.C.D.6.在软件开发中，需求分析阶段可以使用的工具是_。 A.N-S 图 B.DFD 图 C.PAD 图 D.程序流程图（分数：3.00）A.B.C.D.7.在面向对象方法中，不属于“对象”基本特点的是_。 A.一致性 B.分类性 C.多态性 D.标识唯一性（分数：3.00）A.B.C.D.8.一间宿舍可住多个学生，则实体宿舍和学生之间的联系是_。 A.一对一 B.一对多 C.多对一 D.多对多（分数：3.00）A.B.C.D.9.在数据管理技术发展的三个阶段中，数据共
4、享最好的是_。 A.人工管理阶段 B.文件系统阶段 C.数据库系统阶段 D.三个阶段相同（分数：3.00）A.B.C.D.10.有三个关系 R、S 和 T 如下：由关系 R 和 S 通过运算得到关系 T，则所使用的运算为_。（分数：3.00）A.B.C.D.11.以下不能输出“Program”的语句是_。 A.Print Mid(“VBProgram“,3,7) B.Print Right(“VBProgram“,7) C.Print Mid(“VBProgram“,3) D.Print Left(“VBProgram“,7)（分数：3.00）A.B.C.D.12.以下叙述中错误的是_。 A.
5、在通用过程中，多个形式参数之间可以用逗号作为分隔符 B.在 Print 方法中，多个输出项之间可以用逗号作为分隔符 C.在 Dim 语句中，所定义的多个变量可以用逗号作为分隔符 D.当一行中有多个语句时，可以用逗号作为分隔符（分数：3.00）A.B.C.D.13.设 a=4，b=5，c=6，执行语句 Print ab And bc 后，窗体上显示的是_。 A.True B.False C.出错信息 D.0（分数：3.00）A.B.C.D.14.执行下列语句：strInput=InputBox(“请输入字符串”，“字符串对话框”，“字符串”)将显示输入对话框。此时如果直接单击“确定”按钮，则变量
6、 strlnput 的内容是_。 A.“请输入字符串” B.“字符串对话框” C.“字符串” D.空字符串（分数：3.00）A.B.C.D.15.以下关于过程及过程参数的描述中，错误的是_。 A.调用过程时可以用控件名称作为实际参数 B.用数组作为过程的参数时，使用的是“传地址”方式 C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体(Form)可以作为过程的参数（分数：3.00）A.B.C.D.16.在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Commandl 的命令按钮。运行后的窗体外观如图所示。（分数：2.00）A.B.C.D.17.假定有以下
7、循环结构：Do Until 条件表达式循环体Loop则以下正确的描述是_。 A.如果“条件表达式”的值是 0，则一次循环体也不执行 B.如果“条件表达式”的值不为 0，则至少执行一次循环体 C.不论“条件表达式”的值是否为“真”，至少要执行一次循环体 D.如果“条件表达式”的值恒为 0，则无限次执行循环体（分数：2.00）A.B.C.D.18.执行语句 DimX，Y As Integer 后_。 A.X 和 Y 均被定义为整型变量 B.X 和 Y 均被定义为变体类型变量 C.X 被定义为整型变量，Y 被定义为变体类型变量 D.X 被定义为变体类型变量，Y 被定义为整型变量（分数：2.00）A.
8、B.C.D.19.以下关系表达式中，其值为 True 的是_。 A.“XYZ“XYz“ B.“VisualBasic“visualbasic“ C.“the“=“there“ D.“Integer“Int“（分数：2.00）A.B.C.D.20.执行以下程序段：a$=“Visual Basic Programming“b$=“C+“c$=UCase(Left$(a$,7)If xb(i,j)Then x=b(i,j)NextjPrintNextiEnd Sub程序中的数组 a 己被赋值。以下关于上述程序的叙述中，正确的是_。 A.窗体模块中，不能使用 Dim 声明 a、b 数组 B.“循环 1
9、”可以正常运行 C.“循环 2”中循环变量 i、j 的终值不对，所以不能正常运行 D.程序可以正常运行，x 中保存的是数组 b 中所有元素中最小的数（分数：2.00）A.B.C.D.34.有如下程序：Private Sub Form_Click()Dim S As Integer,p As Integerp=lFor i-1 To 4Forj=l To is=s+jNextjp=p*sNext iPrintpEnd Sub程序运行后，单击窗体，则输出结果是_。 A.在类型定义“Type RType“之前加上“Private“ B.Dim p As RType 必须置于窗体模块的声明部分 C.应
10、把 Open 语句中的 For Random 改为 For Output D.Put 语句应该写为 Put%1，p.Name，p.Tel（分数：2.00）A.B.C.D.35.有如下程序：Private Sub Form_Click()Dim S As Integer,p As Integerp=1For i=1 To 4Forj=1 To is=s+jNextjp=p*sNext iPrintpEnd Sub程序运行后，单击窗体，则输出结果是_。 A.90 B.180 C.400 D.800（分数：2.00）A.B.C.D.36.设有如图所示窗体和以下程序： （分数：3.00）A.B.C.D
11、.37.窗体上有一个名称为 Commandl 的命令按钮，其事件过程如下：Private Sub Commandl Click0x=“VisuaIBasicProgramming“a=Right(x,11)b=Mid(x,7,5)c=MsgBox(a,b)End Sub运行程序后单击命令按钮。以下叙述中错误的是_。 A.信息框的标题是 Basic B.信息框中的提示信息是 Programming C.c 的值是函数的返回值 D.MsgBox 的使用格式有错（分数：3.00）A.B.C.D.38.设工程文件包含两个窗体文件 Form1.frm、Form2.frm 及一个标准模块文件 Module
12、1.bas。两个窗体上分别只有一个名称为 Commandl 的命令按钮。Form1 的代码如下：Public x As IntegerPrivate Sub Form_Load()x=1y=5End SubPrivate Sub Commandl_Click()Form2.ShowEnd SubForm2 的代码如下：Private Sub Commandl_Click()Print Form1.x,yEnd SubModule1 的代码如下：Public y As Integer运行以上程序，单击 Form1 的命令按钮 Commandl，则显示 Form2；再单击 Form2 上的命令按钮
13、Commandl，则窗体上显示的是_。 A.1 5 B.0 5 C.0 0 D.程序有错（分数：3.00）A.B.C.D.39.窗体上有一个名称为 Text1 的文本框，一个名称为 Commandl 的命令按钮。窗体文件的程序如下：Private Type xa As Integerb As IntegerEnd TypePrivate Sub Commandl_Click()Dim y As xy.a=lnputBox(“)If y.a/2 =y.a/2 Theny.b=y.a*y.aElsey.b=Fix(y.a/2)End IfText1.Text=y.bEnd Sub对以上程序，下列叙
14、述中错误的是_。 A.x 是用户定义的类型 B.InputBox 函数弹出的对话框中没有提示信息 C.若输入的是偶数，y.b 的值为该偶数的平方 D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回（分数：3.00）A.B.C.D.40.某人编写了向随机文件中写一条记录的程序，代码如下：Type RTypeName As String*10Tel As String*20End TypePrivate Sub Command1_Click()Dim p As RTypep.NameInputBox(“姓名“)p.TelInputBox(“电话号“)Open“Books.d
15、at“ For Random As #1Put #1,pClose #1End Sub该程序运行时有错误，修改的方法是_。 A.在类型定义“Type RType”之前加上“Private” B.Dim p As RType 必须置于窗体模块的声明部分 C.应把 Open 语句中的 For Random 改为 For Output D.Put 语句应该写为 Put #1,p.Name,p.Tel（分数：3.00）A.B.C.D.二级 VISUAL+BASIC-47 (1)答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：40，分数：100.00)1.一个栈的初始状态为
16、空。现将元素 1、2、3、4、5、A、B、C、D、E 依次入栈，然后再依次出栈，则元素出栈的顺序是_。 A.12345ABCDE B.EDCBA54321 C.ABCDE12345 D.54321EDCBA（分数：3.00）A.B. C.D.解析：解析 栈是先进后出的原则组织数据，所以入栈最早的最后出栈，所以选择 B。2.下列叙述中正确的是_。 A.循环队列有队头和队尾两个指针，因此，循环队列是非线性结构 B.在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况 C.在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况 D.循环队列中元素的个数是由队头指针和队尾指针共同决定（分
17、数：3.00）A.B.C.D. 解析：解析 循环队列有队头和队尾两个指针，但是循环队列仍是线性结构的，所以 A 错误；在循环队列中只需要队头指针与队尾两个指针来共同反映队列中元素的动态变化情况，所以 B 与 C 错误。3.在长度为 n 的有序线性表中进行二分查找，最坏情况下需要比较的次数是_。 A.O(n) B.O(n2) C.O(log2n) D.O(nlog2n)（分数：3.00）A.B.C. D.解析：解析 当有序线性表为顺序存储时才能用二分法查找。可以证明的是对于长度为 n 的有序线性表，在最坏情况下，二分法查找只需要比较 log2n 次，而顺序查找需要比较 n 次。4.下列叙述中正确
18、的是_。 A.顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的 B.顺序存储结构只针对线性结构，链式存储结构只针对非线性结构 C.顺序存储结构能存储有序表，链式存储结构不能存储有序表 D.链式存储结构比顺序存储结构节省存储空间（分数：3.00）A. B.C.D.解析：解析 链式存储结构既可以针对线性结构也可以针对非线性结构，所以 B 与 C 错误。链式存储结构中每个结点都由数据域与指针域两部分组成，增加了存储空间，所以 D 错误。5.数据流图中带有箭头的线段表示的是_。 A.控制流 B.事件驱动 C.模块调用 D.数据流（分数：3.00）A.B.C.D. 解析：解析 数据流
19、图中带箭头的线段表示的是数据流，即沿箭头方向传送数据的通道，一般在旁边标注数据流名。6.在软件开发中，需求分析阶段可以使用的工具是_。 A.N-S 图 B.DFD 图 C.PAD 图 D.程序流程图（分数：3.00）A.B. C.D.解析：解析 在需求分析阶段可以使用的工具有数据流图 DFD 图，数据字典 DD，判定树与判定表，所以选择 B。7.在面向对象方法中，不属于“对象”基本特点的是_。 A.一致性 B.分类性 C.多态性 D.标识唯一性（分数：3.00）A. B.C.D.解析：解析 对象有如下一些基本特点：标识唯一性、分类性、多态性、封装性、模块独立性好。所以选择 A。8.一间宿舍可住
20、多个学生，则实体宿舍和学生之间的联系是_。 A.一对一 B.一对多 C.多对一 D.多对多（分数：3.00）A.B. C.D.解析：解析 因为一间宿舍可以住多个学生即多个学生住在一个宿舍中，但一个学生只能住一间宿舍，所以实体宿舍和学生之间是一对多的关系。9.在数据管理技术发展的三个阶段中，数据共享最好的是_。 A.人工管理阶段 B.文件系统阶段 C.数据库系统阶段 D.三个阶段相同（分数：3.00）A.B.C. D.解析：解析 数据管理发展至今已经历了三个阶段：人工管理阶段、文件系统阶段和数据库系统阶段。其中最后一个阶段结构简单，使用方便逻辑性强物理性少，在各方面的表现都最好，一直占据数据库领
21、域的主导地位，所以选择 C。10.有三个关系 R、S 和 T 如下：由关系 R 和 S 通过运算得到关系 T，则所使用的运算为_。（分数：3.00）A.B.C.D. 解析：解析 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据 T 关系中的有序组可知 R 与 S 进行的是自然连接操作。11.以下不能输出“Program”的语句是_。 A.Print Mid(“VBProgram“,3,7) B.Print Right(“VBProgram“,7) C.Print Mid(“VBProgram“,3) D.Print Lef
22、t(“VBProgram“,7)（分数：3.00）A.B.C.D. 解析：解析 本题用到了字符串处理函数 Mid、Right 和 left 函数。 中部截取函数 Mid(C，N1，N2)，功能是从字符串 C 中的 C1 位置开始往后取 N2 个字符，如果省略 N2，默认从 C1 位置取出所有字符。 右部截取函数 Right(C,N)，功能是取字符串 C 右边 N 个字符。 左部截取函数 Left(C,N)，功能是取字符串C 左边 N 个字符。 根据以上函数用法，选项 A、B、C 都能输出“Program”，D 选项是从字符串的最左边开始取 7 个字符，结果为 VBProgr，不能输出“Prog
23、ram”，故 D 选项错误。12.以下叙述中错误的是_。 A.在通用过程中，多个形式参数之间可以用逗号作为分隔符 B.在 Print 方法中，多个输出项之间可以用逗号作为分隔符 C.在 Dim 语句中，所定义的多个变量可以用逗号作为分隔符 D.当一行中有多个语句时，可以用逗号作为分隔符（分数：3.00）A.B.C.D. 解析：解析 一般情况下，输入程序时要求一行只写一条语句。但语句行较短时也可以将多个语句书写在同一行中，这时，语句之间使用冒号分隔。故 D 选项错误。13.设 a=4，b=5，c=6，执行语句 Print ab And bc 后，窗体上显示的是_。 A.True B.False
24、C.出错信息 D.0（分数：3.00）A. B.C.D.解析：解析 Print 语句中计算表达式的值，按运算符的优先级顺序，关系运算符“”比逻辑运算符“And”优先级高。先计算“”，结果为 True And True，再计算“And”，结果为 True，故选 A。14.执行下列语句：strInput=InputBox(“请输入字符串”，“字符串对话框”，“字符串”)将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strlnput 的内容是_。 A.“请输入字符串” B.“字符串对话框” C.“字符串” D.空字符串（分数：3.00）A.B.C. D.解析：解析 InputBox 函数的
25、格式： 变量名=lnputBox(“提示信息”，“标题栏显示信息”，“输入文本框中默认值”，X，Y) InputBox 函数的功能：在一输入对话框中显示提示，等待用户在输入文本框中输入数据，然后按下按钮，返回文本框内容。如果用户单击“确定”按钮，则 InputBox 函数把输入文本框的内容作为一字符串返回；如果没有输入数据，按“确定”按钮，则返回的是空字符串；如果按“取消”按钮，则不管输入框有没有输入数据，都返回空字符串。 根据以上所述，运行程序，会出现一输入对话框，在上面有“请输入字符串”提示信息，标题栏中显示“字符串对话框”，输入文本框中有默认值“字符串”，单击“确定”按钮后，文本框中的“
26、字符串”三个字作为字符串返回给 strlnput 变量。所以 strlnput 变量的内容是“字符串”，故选 C。15.以下关于过程及过程参数的描述中，错误的是_。 A.调用过程时可以用控件名称作为实际参数 B.用数组作为过程的参数时，使用的是“传地址”方式 C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体(Form)可以作为过程的参数（分数：3.00）A.B.C. D.解析：解析 过程定义时，形参除了可以是整型、单精度、双精度等数据类型外，还可以是控件或窗口等对象型。相对应的调用过程时实参也可以是一般数据类型、控件名或窗体。故 A、D 选项正确。 调用过程时，如果过程的参数
27、是数组，则实参传给形参的是地址，这个地址是用数组名表示的一个符号地址，是数组的起始地址，形参和实参用的是同一个地址，在过程中形参的改变会引起实参的改变。故 B 选项正确。在过程调用时，不只是函数过程能把过程中处理的信息传回到调用程序中，Sub 过程也可以。Sub 过程中形参声明时前面有关键字 ByRef 或省略 ByRef(默认)时，实参和形参之间传递的是地址，Sub 过程中形参的变化也会引起实参的变化，这样 Sub 过程中处理的信息也可以传回调用程序中。故 C 选项说法错误。16.在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Commandl 的命令按钮。运行后的窗
28、体外观如图所示。（分数：2.00）A.B.C. D.解析：解析 在 VB 中可以访问的文件有：顺序文件、随机文件和二进制文件。不同文件存取方式不同，但处理的步骤大致一样： 用 Open 语句打开文件，并为文件制定一个文件号。根据文件的的存取方式使用不同的模式打开文件。 本题是随机文件，读写的是一条一条的记录，所以用 For Random 模式打开，记录的长度为 Person 类型变量 p 的长度。 从文件中读出数据进行处理或处理数据后，把数据写入文件。 本题是把变量的数据写入随机文件，所以用 Put 语句写入。 文件操作结束，关闭文件。各种文件关闭统一用 Close#文件号关闭。综合一下，故选
29、 C。17.假定有以下循环结构：Do Until 条件表达式循环体Loop则以下正确的描述是_。 A.如果“条件表达式”的值是 0，则一次循环体也不执行 B.如果“条件表达式”的值不为 0，则至少执行一次循环体 C.不论“条件表达式”的值是否为“真”，至少要执行一次循环体 D.如果“条件表达式”的值恒为 0，则无限次执行循环体（分数：2.00）A.B.C.D. 解析：解析 本题的 Do Until Loop 循环结构是先判断，再执行的结构。 Do Until 循环语句执行的过程是，先判断条件表达式的值，如果条件表达式的值为 0 或 False 时，即条件不成立时，则执行循环体，否则当条件表达式
30、的值为非 0 或 True 时，即成立，则退出 DOLoop 循环。 本题中，选项 A 条件表达式的值是 0，说明条件不成立，执行循环体。故 A 错误。 选项 B 条件表达式的值不为 0，说明条件成立，退出循环。故 B 错误。 选项 C 中 Do Until Loop 语句中条件表达式的值为“假”时，才至少执行一次循环体，故 C 错误。 选项 D 中条件表达式的值恒为 0，说明表达式总是不成立，所以可无限执行循环体，故 D 选项正确。18.执行语句 DimX，Y As Integer 后_。 A.X 和 Y 均被定义为整型变量 B.X 和 Y 均被定义为变体类型变量 C.X 被定义为整型变量，
31、Y 被定义为变体类型变量 D.X 被定义为变体类型变量，Y 被定义为整型变量（分数：2.00）A.B.C.D. 解析：解析 声明变量时可以同时声明多个变量，但要分别说明每个变量的数据类型。如果定义变量时不说明数据类型，默认是 Variant 变体类型变量。 本题中用 Dim 同时定义了两个变量 X、Y，变量 X 没说明数据类型，所以是 Variant 型变量，Y 是整型变量。故选 D 选项正确。19.以下关系表达式中，其值为 True 的是_。 A.“XYZ“XYz“ B.“VisualBasic“visualbasic“ C.“the“=“there“ D.“Integer“Int“（分数：
32、2.00）A.B. C.D.解析：解析 用关系运算符比较两个操作数时，如果两个操作数是字符型的，按字符的 ASCII 码从左到右一一比较，即先比较第 1 个，若相同再比较第 2 个，依次比较，直到比较完或不同为止。 选项 A 中两个字符串前 2 个字符相同，后 1 个不同，“Z“的 ASCII 值“Z“的 ASCII 值，故“XYZ“XYz“，结果应返回Fasle。 选项 C 中应该是两个字符串完全一样，才相等。很明显两个字符不相等，返回 False。 选项 D中两个字符串前 3 个字符一祥，第 1 个字符串比第 2 个字符串长，“Integer“Int“，返回 False。 选项 B 中两个
33、字符串不完全一样，有大写和小写的字符，不等。所以返回 True。故 B 选项正确。20.执行以下程序段：a$=“Visual Basic Programming“b$=“C+“c$=UCase(Left$(a$,7)If xb(i,j)Then x=b(i,j)NextjPrintNextiEnd Sub程序中的数组 a 己被赋值。以下关于上述程序的叙述中，正确的是_。 A.窗体模块中，不能使用 Dim 声明 a、b 数组 B.“循环 1”可以正常运行 C.“循环 2”中循环变量 i、j 的终值不对，所以不能正常运行 D.程序可以正常运行，x 中保存的是数组 b 中所有元素中最小的数（分数：2
34、.00）A.B. C.D.解析：解析 Dim 用于在标准模块、窗体模块或过程中定义变量或数组。程序可以正常运行，x 中保存的是数组 b 元素中的最大值。34.有如下程序：Private Sub Form_Click()Dim S As Integer,p As Integerp=lFor i-1 To 4Forj=l To is=s+jNextjp=p*sNext iPrintpEnd Sub程序运行后，单击窗体，则输出结果是_。 A.在类型定义“Type RType“之前加上“Private“ B.Dim p As RType 必须置于窗体模块的声明部分 C.应把 Open 语句中的 For
35、 Random 改为 For Output D.Put 语句应该写为 Put%1，p.Name，p.Tel（分数：2.00）A. B.C.D.解析：解析 记录类型的定义必须放在模块的声明部分，当在标准模块中定义时，关键字 Type 前可以有Public(默认)或 Private，而如果在窗体模块中定义，则必须在前面加上关键字 Private。Open 语句中使用 For Random 表示文件以随机方式存取。Put 语句的语法为：Put#文件号，记录号，变量。其中“变量”是除对象变量和数组变量外的任何变量。35.有如下程序：Private Sub Form_Click()Dim S As In
36、teger,p As Integerp=1For i=1 To 4Forj=1 To is=s+jNextjp=p*sNext iPrintpEnd Sub程序运行后，单击窗体，则输出结果是_。 A.90 B.180 C.400 D.800（分数：2.00）A.B.C.D. 解析：解析 程序是一个双层 For 循环，外层循环变量的值决定内层 For 循环的次数 当 i=1 时，内层循环 1 次，s=1，p=1； 当 i=2 时，内层循环 2 次，s=1+1+2=4，p=1*4=4； 当 i=3 时，内层循环 3 次，s=4+1+2+3=10，p=4*10=40； 当 i=4 时，内层循环 4
37、次，s=10+1+2+3+4=20，p=40*20=800；36.设有如图所示窗体和以下程序： （分数：3.00）A. B.C.D.解析：解析 题目程序的功能为，当单击命令按钮时，Text1 失去焦点，激发 Text1 的 LostFocus 事件，在此事件中，程序判断文本框中字符串是否为“BASIC”，如果是则退出事件过程，继续执行命令按钮的单击事件过程，文本框中显示“Visual Basic”，如果不是则文本框内容置空，焦点返回到文本框中等待输入，不会执行命令按钮的单击事件过程。题目中输入了“Basic”，与“BASIC”不符，因此文本框置空，焦点回到文本框中。37.窗体上有一个名称为 C
38、ommandl 的命令按钮，其事件过程如下：Private Sub Commandl Click0x=“VisuaIBasicProgramming“a=Right(x,11)b=Mid(x,7,5)c=MsgBox(a,b)End Sub运行程序后单击命令按钮。以下叙述中错误的是_。 A.信息框的标题是 Basic B.信息框中的提示信息是 Programming C.c 的值是函数的返回值 D.MsgBox 的使用格式有错（分数：3.00）A.B.C.D. 解析：38.设工程文件包含两个窗体文件 Form1.frm、Form2.frm 及一个标准模块文件 Module1.bas。两个窗体上
39、分别只有一个名称为 Commandl 的命令按钮。Form1 的代码如下：Public x As IntegerPrivate Sub Form_Load()x=1y=5End SubPrivate Sub Commandl_Click()Form2.ShowEnd SubForm2 的代码如下：Private Sub Commandl_Click()Print Form1.x,yEnd SubModule1 的代码如下：Public y As Integer运行以上程序，单击 Form1 的命令按钮 Commandl，则显示 Form2；再单击 Form2 上的命令按钮Commandl，则窗
40、体上显示的是_。 A.1 5 B.0 5 C.0 0 D.程序有错（分数：3.00）A. B.C.D.解析：解析 在 Form1 窗体模块中 x 被定义为全局变量，这使得它的值可以在其他模块中通过“过程名，变量名”的形式被引用。而变量 y 在标准模块中被定义为全局变量，则它可以在工程的每个模块，每个过程中使用。因此程序运行时，x 赋值为 1，y 赋值为 5，它们的值都可以在 Form2 中引用。39.窗体上有一个名称为 Text1 的文本框，一个名称为 Commandl 的命令按钮。窗体文件的程序如下：Private Type xa As Integerb As IntegerEnd Type
41、Private Sub Commandl_Click()Dim y As xy.a=lnputBox(“)If y.a/2 =y.a/2 Theny.b=y.a*y.aElsey.b=Fix(y.a/2)End IfText1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是_。 A.x 是用户定义的类型 B.InputBox 函数弹出的对话框中没有提示信息 C.若输入的是偶数，y.b 的值为该偶数的平方 D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回（分数：3.00）A.B.C.D. 解析：解析 x 是用户定义的一种变量类型，可以使用它来声明变量。In
42、putBox(“)函数的提示信息为“，即为空，因此弹出的对话框中没有提示信息。在程序中通过比较输入的数被 2 整除和被 2 除的值是否相等来判定它是否为偶数，如果是那么 y.b 的值就是 y.a 的值的平方。Fix 函数是取整函数，它会删除小数部分，直接取表达式的整数部分，不四舍五入，因此 D 选项错。40.某人编写了向随机文件中写一条记录的程序，代码如下：Type RTypeName As String*10Tel As String*20End TypePrivate Sub Command1_Click()Dim p As RTypep.NameInputBox(“姓名“)p.TelInputBox(“电话号“)Open“Books.dat“ For Random As #1Put #1,pClose #1End Sub该程序运行时有错误，修改的方法是_。 A.在类型定义“Type RType”之前加上“Private” B.Dim p As RType 必须置于窗体模块的声明部分 C.应把 Open 语句中的 For Random 改为 For Output D.Put 语句应该写为 Put #1,p.Name,p.Tel（分数：3.00）A. B.C.D.解析：
