1、国家二级 VB 机试（选择题）-试卷 25 及答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列关于线性链表的叙述中，正确的是( )。（分数：2.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.以上说法均不正确2.下列叙述中正确的是( )。（分数：2.00）A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构3.软件测试的目的是(
2、)。（分数：2.00）A.评估软件可靠性B.发现并改正程序中的错误C.改正程序中的错误D.发现程序中的错误4.在软件开发中，需求分析阶段产生的主要文档是( )。（分数：2.00）A.软件集成测试计划B.软件详细设计说明书C.用户手册D.软件需求规格说明书5.结构化程序所要求的基本结构不包括( )。（分数：2.00）A.顺序结构B.GOTO 跳转C.选择(分支)结构D.重复(循环)结构6.下面描述中错误的是( )。（分数：2.00）A.系统总体结构图支持软件系统的详细设计B.软件设计是将软件需求转换为软件表示的过程C.数据结构与数据库设计是软件设计的任务之一D.PAD 图是软件详细设计的表示工具
3、7.下列关于数据库设计的叙述中，正确的是( )。（分数：2.00）A.在需求分析阶段建立数据字典B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典8.数据库系统的三级模式不包括( )。（分数：2.00）A.概念模式B.内模式C.外模式D.数据模式9.在黑盒测试方法中，设计测试用例的主要根据是( )。（分数：2.00）A.程序内部逻辑B.程序外部功能C.程序数据结构D.程序流程图10.在软件设计中不使用的工具是( )。（分数：2.00）A.系统结构图B.PAD 图C.数据流图(DFD 图)D.程序流程图11.以下叙述中正确的是( )。（分数：2.00）A.
4、在属性窗口只能设置窗体的属性B.在属性窗口只能设置控件的属性C.在属性窗口可以设置窗体和控件的属性D.在属性窗口可以设置任何对象的属性12.下列打开“代码窗口“的操作中错误的是( )。（分数：2.00）A.按 F4 键B.单击“工程资源管理器“窗口中的“查看代码“按钮C.双击已建立好的控件D.执行“视图“菜单中的“代码窗口“命令13.要求如果 x 被 7 除余 2，则输出 x 的值，下列语句中不能实现此功能的语句是( )。（分数：2.00）A.If x mod 72 Then Print xB.If x(x/7)* 72 Then Print xC.If x(x / 7)* 72 Then P
5、rint xD.If xInt(x / 7)* 72 Then Print x14.表达式 Sgn(0.25)的值是( )。（分数：2.00）A.1B.0C.1D.0.515.以下关于 VB 文件的叙述中，错误的是( )。（分数：2.00）A.标准模块文件不属于任何一个窗体B.工程文件的扩展名为.frmC.一个工程只有一个工程文件D.一个工程可以有多个窗体文件16.设 x 为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的 Case 子句是( )。（分数：2.00）A.Case Is20B.Case 1 To 10C.Case 0Is And IS20D.Case
6、 2， 3， 417.语句 Dim Arr(2 To 4)As Integer 所定义的数组的元素个数为( )。（分数：2.00）A.7 个B.6 个C.5 个D.4 个18.为了使窗体左上角不显示控制框，需设置为 False 的属性是( )。（分数：2.00）A.VisibleB.EnabledC.ControlBoxD.Caption19.以下说法中正确的是( )。（分数：2.00）A.事件过程也是过程，只能由其他过程调用B.事件过程的过程名是由程序设计者命名的C.事件过程通常放在标准模块中D.事件过程是用来处理由用户操作或系统激发的事件的代码20.设有语句：Open “c：/Test.D
7、at“ For Output As #1 则以下叙述中错误的是( )。（分数：2.00）A.该语句打开 C 盘根目录下的一个文件 Test.Dat，如果该文件不存在则出错B.该语句打开 C 盘根目录下一个名为 Test.Dat 的文件，如果该文件不存在则创建该文件C.该语句打开文件的文件号为 1D.执行该语句后，就可以通过 Print #语句向文件 Test.Dat 中写入信息21.以下关于事件、事件驱动的叙述中，错误的是( )。（分数：2.00）A.事件是可以由窗体或控件识别的操作B.事件可以由用户的动作触发C.一个操作动作只能触发一个事件D.事件可以由系统的某个状态的变化而触发22.要删除
8、列表框中最后一个列表项，正确的语句是( )。（分数：2.00）A.List1.RemoveItem ListCountB.List1.RemoveItem List1.ListCountC.List1.RemoveItem ListCount1D.List1.RemoveItem List1.ListCount123.使用 Line 控件在窗体上画一条从(0,0)到(600,700)的直线，则其相应属性的值应是( )。（分数：2.00）A.X10， X2600， Y10， Y2700B.Y10， Y2600， X10， X2700C.X10， X20， Y1600， Y2700D.Y10， Y
9、20， X1600， X270024.设有窗体的 Form_MouseMove 事件过程如下：Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) If(Button And 3)3 Then Print “检查按键“ End IfEnd Sub 关于上述过程，以下叙述中正确的是( )。（分数：2.00）A.按下鼠标左键时，在窗体上显示“检查按键“B.按下鼠标右键时，在窗体上显示“检查按键“C.同时按下鼠标左、右键时，在窗体上显示“检查按键“D.不论做何种操作，窗体上都
10、不会显示25.确定图片框 Picture1 在窗体上位置的属性是( )。（分数：2.00）A.Width 和 HeightB.Left 和 TopC.Width 和 TopD.Height 和 Left26.以下不属于单选按钮的属性是( )。（分数：2.00）A.CaptionB.NameC.MinD.Enabled27.对于列表框控件 List1，能够表示当前被选中列表项内容的是( )。（分数：2.00）A.List1.TextB.List1.IndexC.List1.ListIndexD.List1.List28.当文本框中的内容发生改变时所触发的事件是( )。（分数：2.00）A.Key
11、UpB.ChangeC.LostFocusD.GotFocus29.关于 KeyPress 事件，以下叙述中正确的是( )。（分数：2.00）A.在控件数组的控件上按键盘键，不能触发 KeyPress 事件B.按下键盘上任一个键时，都能触发 KeyPress 事件C.按字母键时，拥有焦点的控件的 KeyPress 事件会被触发D.窗体没有 KeyPress 事件30.窗体上有一个名称为 Text1 的文本框；一个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下：Private Sub Timer1_Ti
12、mer() Static flag As Integer If flag0 Then flag1 flagflag If flag1 Then Text1.ForeColor&HFF& &HFF&为红色 Else Text1.ForeColor&HC000& &HC000&为绿色 End IfEnd Sub 以下叙述中正确的是( )。（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色D.程序有逻辑错误，Else 分支总也不能被执行31.下面程序运行时，若输入“Visual Basic
13、Programming“，则在窗体上输出的是( )。Private Sub Command1_Click() Dim count(25)As Integer， ch As String chUCase(InputBox(“请输入字母字符串“) For k1 To Len(ch) nAsc(Mid(ch，k,1)Asc(“A“) If n0 Then count(n)count(n)1 End If Next k mcount(0) For k1 To 25 If mA.0B.1C.2D.332.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Te
14、xt 属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() aInputBox(“Enter an integer“) bText1.Text Text1.Textba End Sub 程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入 123，则文本框中显示的内容是( )。（分数：2.00）A.579B.123C.456123D.45633.现有如下一段程序：Private Sub Command1_Click() xUCase(InputBox(“输入：“) Select Case x Case “A“ To “C“ Print
15、 “考核通过！“ Case “D“ Print “考核不通过 ！“ Case Else Print “输入数据不合法！“ End SelectEnd Sub 执行程序，在输入框中输入字母“B“，则以下叙述中正确的是( )。（分数：2.00）A.程序运行错B.在窗体上显示“考核通过！“C.在窗体上显示“考核不通过 ！“D.在窗体上显示“输入数据不合法！“34.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。（分数：2.00）A.color 是窗体
16、级整型数组B.改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C.3 个滚动条 Change 事件过程中只设置了一个 color 数组元素的值，调用 fill 过程失败D.fill 函数定义中的形式参数是数组型参数35.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。*130程序代码如下：Dim color(3)As IntegerPrivate Sub Form_Load() Call fill(color()End SubPriv
17、ate Sub fill(c() As Integer) Form1.BackColorRGB(c(1)，c(2)，c(3)End SubPrivate Sub HSRed_Change() color(1)HSRed.Value Call fill(color()End SubPrivate Sub HSGreen_Change() color(2)HSGreen.Value Call fill(color()End SubPrivate Sub HSBlue_Change() color(3)HSBlue.Value Call fill(color()End Sub 关于以上程序，如下叙述
18、中错误的是( )。（分数：2.00）A.ABCDEFB.abcdefC.defdefD.defabc36.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1 和 Text1)，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load() Show Text1.Text“ Text1.SetFocusEnd SubPrivate Sub Command1_Click() Text1.TextLCase(SaveAll)SaveAllEnd SubPrivate Sub Form_K
19、eyPress(KeyAscii As Integer) SaveAllSaveAllChr(KeyAscii)End Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为( )。（分数：2.00）A.vbVBB.不显示任何信息C.VBD.出错37.窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序： Private Sub command1_Click() Dim n If Text1.Text20B.Case 1 To 10C.Case 0Is And IS20 D.Case 2， 3， 4解析：解析：Select Case 语句中
20、表达式的形式可以是：常量或变量 ；若干符合条件的值用“，“隔开；表达式 1 to 表达式 2 ；Is 关系表达式。 本题中选项 A、B 和 D 都符合语法规则。 选项 C 中 Is 关系表达式语法错误，它可以是 Is0 或 Is20，但不能是组合的 0Is And Is20。故 C 选项错误。17.语句 Dim Arr(2 To 4)As Integer 所定义的数组的元素个数为( )。（分数：2.00）A.7 个 B.6 个C.5 个D.4 个解析：解析：本题是定义了一个一维数组，下标是2 to 4 ，所以数组元素的个数是 4(2)17 ，故选 A。18.为了使窗体左上角不显示控制框，需设置
21、为 False 的属性是( )。（分数：2.00）A.VisibleB.EnabledC.ControlBox D.Caption解析：解析：窗体的 Visible 属性是设置窗体可见不可见；Enabled 属性是设置可用不可用；Caption 属性是用来设置窗体标题栏上显示的内容；ControlBox 属性是设置窗体左上角是否显示控制框，当属性值为 True 时，显示控制框，否则 False 时，不显示。故选项 C 正确。19.以下说法中正确的是( )。（分数：2.00）A.事件过程也是过程，只能由其他过程调用B.事件过程的过程名是由程序设计者命名的C.事件过程通常放在标准模块中D.事件过程
22、是用来处理由用户操作或系统激发的事件的代码 解析：解析：事件过程也是过程，其他过程或系统都可以调用它。故 A 选项错误。 事件过程的过程名是由系统命名的。故 B 选项错误。 通常事件过程放在窗体模块中。故 C 选项错误。 事件过程是用来处理由用户操作或系统激发的事件的代码。只有当用户或系统触发事件后，才执行相应的事件过程。故 D 选项正确。20.设有语句：Open “c：/Test.Dat“ For Output As #1 则以下叙述中错误的是( )。（分数：2.00）A.该语句打开 C 盘根目录下的一个文件 Test.Dat，如果该文件不存在则出错 B.该语句打开 C 盘根目录下一个名为
23、Test.Dat 的文件，如果该文件不存在则创建该文件C.该语句打开文件的文件号为 1D.执行该语句后，就可以通过 Print #语句向文件 Test.Dat 中写入信息解析：解析：本题中是用 Open 语句打开一个顺序文件 Test.Dat，并指定一个文件号 1。故 C 选项正确。 如果 Test.Dat 文件不存在，则系统自动创建该文件。故 B 选项正确，A 选项错误。 用 For Output 模式打开文件，可通过 Print #语句向文件写入信息。故 D 选项正确。21.以下关于事件、事件驱动的叙述中，错误的是( )。（分数：2.00）A.事件是可以由窗体或控件识别的操作B.事件可以由
24、用户的动作触发C.一个操作动作只能触发一个事件 D.事件可以由系统的某个状态的变化而触发解析：解析：一个操作动作有时会触发一个或多个事件。比如当按下键盘的某键时，会触发 KeyDown 和Keypress 事件。故 A 选项错误。22.要删除列表框中最后一个列表项，正确的语句是( )。（分数：2.00）A.List1.RemoveItem ListCountB.List1.RemoveItem List1.ListCountC.List1.RemoveItem ListCount1D.List1.RemoveItem List1.ListCount1 解析：解析：ListCount 属性返回列
25、表框中列表项的个数，列表项的索引号从 0 开始，所以要删除最后一个列表项，ReMoveItem 方法中的索引号就应该是 List1.ListCount1，故 D 选项正确。23.使用 Line 控件在窗体上画一条从(0,0)到(600,700)的直线，则其相应属性的值应是( )。（分数：2.00）A.X10， X2600， Y10， Y2700 B.Y10， Y2600， X10， X2700C.X10， X20， Y1600， Y2700D.Y10， Y20， X1600， X2700解析：解析：X1、Y1、X2、Y2 属性是直线的起点、终点坐标。故选 A。24.设有窗体的 Form_Mou
26、seMove 事件过程如下：Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) If(Button And 3)3 Then Print “检查按键“ End IfEnd Sub 关于上述过程，以下叙述中正确的是( )。（分数：2.00）A.按下鼠标左键时，在窗体上显示“检查按键“B.按下鼠标右键时，在窗体上显示“检查按键“C.同时按下鼠标左、右键时，在窗体上显示“检查按键“ D.不论做何种操作，窗体上都不会显示解析：解析：25.确定图片框 Picture1 在窗体上
27、位置的属性是( )。（分数：2.00）A.Width 和 HeightB.Left 和 Top C.Width 和 TopD.Height 和 Left解析：解析：确定图片框在窗体上位置的属性是 Left 和 Top，它们使用的是相对坐标，以窗体为参考点。26.以下不属于单选按钮的属性是( )。（分数：2.00）A.CaptionB.NameC.Min D.Enabled解析：解析：单选按钮没有 Min 属性，滚动条控件的属性中有 Min 属性。27.对于列表框控件 List1，能够表示当前被选中列表项内容的是( )。（分数：2.00）A.List1.Text B.List1.IndexC.L
28、ist1.ListIndexD.List1.List解析：解析：Text 属性可返回当前被选中列表项的内容，故选 A。 Index 属性是当有列表框控件数组时，区分各列表框用的；ListIndex 属性返回的是被选中的列表项的索引值；List 属性设置或返回各列表项的内容。28.当文本框中的内容发生改变时所触发的事件是( )。（分数：2.00）A.KeyUpB.Change C.LostFocusD.GotFocus解析：解析：文本框中内容有变化时，触发 Change 事件。故 B 选项正确。 当在文本框中输入数据，松开键盘时触发它的 KeyUp 事件；文本框失去焦点触发 LostFocus
29、事件；获得焦点，触发 GotFocus 事件。29.关于 KeyPress 事件，以下叙述中正确的是( )。（分数：2.00）A.在控件数组的控件上按键盘键，不能触发 KeyPress 事件B.按下键盘上任一个键时，都能触发 KeyPress 事件C.按字母键时，拥有焦点的控件的 KeyPress 事件会被触发 D.窗体没有 KeyPress 事件解析：解析：A 选项错误原因：在控件数组的任何控件上按键盘键，会触发 KeyPress 事件； B 选项错误原因：只有按键盘上的 ASCII 字符键时，才能触发 KeyPress 事件。ASCII 字符键包括标准键盘上的字符、数字、标点符号、和键等，
30、其他键 KeyPress 事件不能识别。 D 选项错误原因：窗体也有 KeyPresss 事件。故 C 选项正确。30.窗体上有一个名称为 Text1 的文本框；一个名称为 Timer1 的计时器控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下：Private Sub Timer1_Timer() Static flag As Integer If flag0 Then flag1 flagflag If flag1 Then Text1.ForeColor&HFF& &HFF&为红色 Else Text1.ForeColor&HC
31、000& &HC000&为绿色 End IfEnd Sub 以下叙述中正确的是( )。（分数：2.00）A.每次执行此事件过程时，flag 的初始值均为 0B.flag 的值只可能取 0 或 1C.程序执行后，文本框中的文字每 5 秒改变一次颜色 D.程序有逻辑错误，Else 分支总也不能被执行解析：解析：程序中 flag 被定义为 Static 变量，它的值只在第一次执行事件过程时为 0，以后每次执行计时器事件过程它的值都会保留上次过程中运算后的值，之后它的值是 1 或1。文本框控件的ForeColor 属性表示文本框中文字的颜色，计时器控件的 Interval 属性为 5000，即计时器间
32、隔为 5 秒钟一次，每次调用就会交替改变文本框中文字的颜色。因此 C 选项正确。31.下面程序运行时，若输入“Visual Basic Programming“，则在窗体上输出的是( )。Private Sub Command1_Click() Dim count(25)As Integer， ch As String chUCase(InputBox(“请输入字母字符串“) For k1 To Len(ch) nAsc(Mid(ch，k,1)Asc(“A“) If n0 Then count(n)count(n)1 End If Next k mcount(0) For k1 To 25 I
33、f mA.0B.1C.2D.3 解析：解析：根据题中的程序代码可知，ch 为输入字符串的大写状态，第一个 For 循环是依次取出字母，n 为取出字母与“A“字符的 ASCII 码差值，然后再赋给数组 count()；第二个 For 循环是找出数组 count()中的最小值，因此，最后窗体上输出的结果为 3，即选项 D。32.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() aInputBox(“Enter an integer“) bText1
34、.Text Text1.Textba End Sub 程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入 123，则文本框中显示的内容是( )。（分数：2.00）A.579B.123C.456123 D.456解析：解析：默认情况下，InputBox 的返回值是一个字符串，因此程序中a“123“，b“456“，ba“456“123“456123“。因此 C 选项正确。另外，使用字符连接运算符“时，如果连接的是字符串和数值，可根据返回值类型判断，若返回值类型为字符串，则它将数值转换成字符串后与另一字符串连接成新字符串返回；若返回值类型为数值，则它要求字符串中只能包含数字，而不
35、能有其他字符，否则报“类型不匹配“的错误。33.现有如下一段程序：Private Sub Command1_Click() xUCase(InputBox(“输入：“) Select Case x Case “A“ To “C“ Print “考核通过！“ Case “D“ Print “考核不通过 ！“ Case Else Print “输入数据不合法！“ End SelectEnd Sub 执行程序，在输入框中输入字母“B“，则以下叙述中正确的是( )。（分数：2.00）A.程序运行错B.在窗体上显示“考核通过！“ C.在窗体上显示“考核不通过 ！“D.在窗体上显示“输入数据不合法！“解析
36、：解析：程序中 Ucase 函数将输入的字母转换为大写，然后通过 Select 多分支控制语句选择输出不同信息，当输入字母在“A“到“C“之间时，显示“考核通过！“，输入的是“D“时显示“考核不通过！“，如果输入的是“A“到“D“之外的其他字符则显示“输入数据不合法！“。程序中输入字母“B“，因此会显示“考核通过！“。34.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。（分数：2.00）A.color 是窗体级整型数组B.改变任何一个滚动条滚
37、动框的位置，窗体的背景色将立刻随之改变C.3 个滚动条 Change 事件过程中只设置了一个 color 数组元素的值，调用 fill 过程失败 D.fill 函数定义中的形式参数是数组型参数解析：解析：当用 Dim 语句定义数组时，该语句把数值数组中的全部元素都初始化为 0，而把字符串数组中的全部元素都初始化为空串。因此 color 数组中的元素初始值都为 0，没有空值，过程调用不会失败。C 选项叙述错。35.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景
38、色，如下图所示。*130程序代码如下：Dim color(3)As IntegerPrivate Sub Form_Load() Call fill(color()End SubPrivate Sub fill(c() As Integer) Form1.BackColorRGB(c(1)，c(2)，c(3)End SubPrivate Sub HSRed_Change() color(1)HSRed.Value Call fill(color()End SubPrivate Sub HSGreen_Change() color(2)HSGreen.Value Call fill(color(
39、)End SubPrivate Sub HSBlue_Change() color(3)HSBlue.Value Call fill(color()End Sub 关于以上程序，如下叙述中错误的是( )。（分数：2.00）A.ABCDEFB.abcdefC.defdef D.defabc解析：解析：程序中过程 Fun 的 Do 循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串，然后这个字符串再重复一次由函数返回。函数 Len 用于返回字符串的长度，过程中字符串的长度做为Do 循环的结束条件。Mid 是字符串中部截取函数，用来从指定位置开始截取指定个数的字符。过程中使用Mid(xS
40、tr， i1， 1)，通过循环依次取出字符串后半部分的字符。函数返回的字符串经 Lcase 函数转换为小写然后显示在文本框中。程序中做为 Fun 过程参数的字符串为“ABCDEF“，经处理返回并转为小写后为“defdef“。36.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1 和 Text1)，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load() Show Text1.Text“ Text1.SetFocusEnd SubPrivate Sub Command1_Cl
41、ick() Text1.TextLCase(SaveAll)SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) SaveAllSaveAllChr(KeyAscii)End Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为( )。（分数：2.00）A.vbVB B.不显示任何信息C.VBD.出错解析：解析：窗体的 KeyPreview 属性用于设置或获取一个值，该值只是判断按键事件传递到具有焦点的控件前，窗体是否将接收此事件，该属性设为 True 时，窗体将会接收按键事件。因此在文本框中输入“
42、VB“时，会先触发 Form_KeyPress()事件，该事件将输入的字符保存到窗体模块变量 SaveAll 中，然后才会显示在文本框中。当单击命令按钮时，Lcase 函数将变量 SaveAll 中的字符串“VB“转换为小写，为“vb“，然后与原字符串连接，即“vb“VB“，显示在文本框中则为“vbVB“。37.窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序： Private Sub command1_Click() Dim n If Text1.Text“123456“Then nn1 Print “口令输入错误“& n & “次“ End If End S
43、ub 希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令“命令按钮，若输入的口令不是“123456“，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )。 （分数：2.00）A.在 Dim n 语句的下面添加一句：n0B.把 Print “口令输入错误“ & n & “次“ 改为 Print “口令输入错误“n“次“C.把 Print “口令输入错误“ & n & “次“ 改为 Print “口令输入错误“ & Str(n)& “次“D.把 Dim n 改为 Static n 解析：解析：本题考查的是动态变量与静态变
44、量。原来的程序中无法使变量 n 的值保持到下一次的使用，只有 D 选项符合要求，将 n 定义为静态局部变量，在程序执行到该对象的声明处时被首次初始化，每次执行后 n 的值都会被保存到内存中，所以答案 D 是正确的；而 A 选项只是对 n 赋初值，所以 A 选项没有意义；B 选项和 C 选项都没有达到改进的目的。38.下面程序计算并输出的是( )。Private Sub Command1_Click() a10 s0 Do ssa*a*a aa1 Loop Until aA.1 3 2 3 3 3 10 3 的值 B.10！3！2！1！的值C.(12310) 3 的值D.10 个 10 3 的和
45、解析：解析：在 Do 循环语句中程序大致执行过程如下：s103， a9；s10393，a8；s109383，a7；，依此类推，因此正确的答案为 A。39.设有如下通用过程：Public Function f(x As Integer) Dim y As Integer x20 y2 fx * yEnd Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click() Static x As Integer x10 y5 yf(x) Print x； yEnd Sub 程序运行后，如果单击命令按钮，则在窗体上显示
46、的内容是( )。（分数：2.00）A.10 5B.20 40 C.20 5D.10 40解析：解析：过程 f 中形参变量 x 没有指定传递方式，则默认按地址传递，会影响实参值。而变量 y 在按钮事件过程和 f 过程中都是局部变量只在本过程中起作用。因此执行 yf(x)后，x 值在过程中被改变为20，而 y 被赋为过程返回值 40。因此程序窗体上会显示 20 和 40。40.假定有以下通用过程：Function Fun(n As Integer)As Integer xn * n Funx11End Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer For i1 To 2 yFun(i) Print y； Next iEnd Sub 程序运行后，单击命令按钮，在窗体上显示的内容是( )。（分数：2.00）A.1 3B.10 8C.10 7 D.0 5解析：解析：
