[计算机类试卷]国家二级（VB）机试模拟试卷46及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 46及答案与解析 一、选择题 1 下面不是键盘事件的是 ( )。 （ A） KeyDown （ B） KeyUp （ C） KeyPress （ D） KeyCode 2 语句 Dim Arr( 2 To 4)As Integer 所定义的数组的元素个数为 ( )。 （ A） 7个 （ B） 6个 （ C） 5个 （ D） 4个 3 为了使窗体左上角不显示控制框，需设置为 False的属性是 ( )。 （ A） Visible （ B） Enabled （ C） ControlBox （ D） Caption 4 窗体上有 1个名称为 Text1的文本框， 1个

2、名称为 Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为 ( )。 （ A） Private Sub Label1_Click() Label1.Caption Text1.Text End Sub （ B） Private Sub Label1_Change() Label1.Caption Text1.Text End Sub （ C） Private Sub Text1_Click() Label1.Caption Text1.Text End Sub （ D） Private Sub Text1_Change() L

3、abel1.Caption Text1.Text End Sub 5 对窗体上名称为 Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Move 200， 200 End Sub 程序运行时，单击命令按钮，则产生的操作是 ( )。 （ A）窗体左上角移动到距屏幕左边界、上边界各 200的位置 （ B）窗体左上角移动到距屏幕右边界、上边界各 200的位置 （ C）窗体由当前位置向左、向上各移动 200 （ D）窗体由当前位置向右、向下各移动 200 6 为了使每秒钟发生一次计时器事件，可以将其 Interval属性设置为 ( )。 （ A）

4、 1 （ B） 10 （ C） 100 （ D） 1000 7 能够将组合框 Combo1中最后一个数据项删除的语句为 ( )。 （ A） Combo1.RemoveItem Combo1.ListCount （ B） Combo1.RemoveItem Combo1.ListCount 1 （ C） Combo1.RemoveItem Combo1.ListIndex （ D） Combo1.RemoveItem Combo1.ListIndex 1 8 用来设置文字字体是否为粗体的属性是 ( )。 （ A） FontItalic （ B） FontUnderline （ C） FontSi

5、ze （ D） FontBold 9 以下不能触发滚动条 Change事件的操作是 ( )。 （ A）拖动滚动框 （ B）单击两端的滚动箭头 （ C）单击滚动框 （ D）单击滚动箭头与滚动框之间的滚 动条 10 确定图片框 Picture1在窗体上位置的属性是 ( )。 （ A） Width和 Height （ B） Left和 Top （ C） Width和 Top （ D） Height和 Left 11 以下不属于单选按钮的属性是 ( )。 （ A） Caption （ B） Name （ C） Min （ D） Enabled 12 以下关于图片框控件的说法中，错误的是 ( )。 （

6、A）可以通过 Print方法在图片框中输出文本 （ B）图片框控件中的图形可以在程序运行过程中被清除 （ C）图片框控件中可以放 置其他控件 （ D）用 Stretch属性可以自动调整图片框中图形的大小 13 为了清除列表框中指定的项目，应使用的方法是 ( )。 （ A） Cls （ B） Clear （ C） Remove （ D） RemoveItem 14 假定 Picture1和 Text1分别为图片框和文本框的名称，则下列错误的语句是( )。 （ A） Print 25 （ B） Picture1.Print 25 （ C） Text1.Print 25 （ D） Debug.Pri

7、nt 25 15 设在工程文件中有一个标准模块，其 中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是 ( )。 （ A） Private Sub Command1_Click() Dim B As Books Open “c： Person.txt“ For Output As #1 B.Name InputBox(“输入姓

8、名 “) B.TelNum InputBox(“输入电话号码 “) Write #1， B.Name， B.TelNum Close #1 End Sub （ B） Private Sub Command1_Click() Dim B As Books Open “c： Person.txt“ For Input As #1 B.Name InputBox(“输入姓名 “) B.TelNum InputBox(“输入电话号码 “) Print #1， B.Name， B.TelNum Close #1 End Sub （ C） Private Sub Command1_Click() Dim

9、B As Books Open “c： Person.txt“ For Output As #1 B.Name InputBox(“输入姓名 “) B.TelNum InputBox(“输入电话号码 “) Write #1， B Close #1 End Sub （ D） Private Sub Command1_Click() Open “c： Person.txt“ For Input As #1 Name InputBox(“输入姓名 “) TelNum InputBox(“输入电话号码 “) Print #1， Name， TelNum Close #1 End Sub 16 运行如下

10、程序 Private Sub Command1_Click() Dim a(5， 5)As Integer For i 1 To 5 For j 1 To 4 a(i， j) i * 2 j If a(i， j)/ 7 a(i， j)7 Then n n 1 End If Next j Next Print n End Sub n的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 17 窗体上有单选钮和列表框控件。单击名称为 Option1、标题为 “国家 “的单选钮，向列表框中添加国家名称，如下图所示。 Option1的单击事件过程如下： Private Sub Opt

11、ion1_Click() Dim arr arr Array(“中国“， “日本 “， “德国 “， “美国 “， “澳大利亚 “) List1.Clear For i 0 To Ubound(arr) List1.AddItem arr(i) Next End Sub以下关于上述代码的叙述中，正确的是 ( )。 （ A）程序有错，没有声明数组的维数及上下界 （ B）只有一维数组才能使用 Array为数组赋初值 （ C） For 循环的终值应为 ListCount 1 （ D） For 循环的初值应为 1 18 现有如下一段程序： Private Sub Command1_Click() x

12、UCase(InputBox(“输入： “) Select Case x Case “A“ To “C“ Print “考核通过！ “ Case “D“ Print “考核不通过 ！ “ Case Else Print “输入数据不合法！ “ End Select End Sub 执行程序，在输入框中输入字母 “B“，则以下叙述中正确的是 ( )。 （ A）程序运行错 （ B）在窗体上显示 “考核通过！ “ （ C）在窗体上显示 “考核不通过 ！ “ （ D）在窗体上显示 “输入数据不合法！ “ 19 窗体上有三 个水平滚动条，名称分别为 HSRed、 HSGreen和 HSBlue，取值范围

13、均是 0 255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。 程序代码如下： Dim color(3)As IntegerPrivate Sub Form_Load() Call fill(color()End SubPrivate Sub fill(c() As Integer) Form1.BackColor RGB(c(1)， c(2)， c(3)End SubPrivate Sub HSRed_Change() color(1) HSRed.Value Call fill(color()End SubPrivate Sub HSGre

14、en_Change() color(2) HSGreen.Value Call fill(color()End SubPrivate Sub HSBlue_Change() color(3) HSBlue.Value Call fill(color()End Sub关于以上程序，如下叙述中错误的是 ( )。 （ A） color是窗 体级整型数组 （ B）改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变 （ C） 3个滚动条 Change事件过程中只设置了一个 color数组元素的值，调用 fill过程失败 （ D） fill 函数定义中的形式参数是数组型参数 20 命令按钮 Com

15、mand1的单击事件过程如下： Private Sub Command1_Click() x 10 Print f(x) End Sub Private Function f(y As Integer) f y * y End Function 运行上述程序，如下叙述中正确的是 ( )。 （ A）程序运行出错， x变量的类型与函数参数的类型不符 （ B）在窗体上显示 100 （ C）函数定义错，函数名 f不能又作为变量名 （ D）在窗体上显示 10 21 窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程： Private Sub Text1_KeyUp(KeyCode As

16、 Integer， Shift As Integer) Print Text1.Text； End Sub 运行程序，并在文本框中输入 “123“，则在窗体上的输出 结果为 ( )。 （ A） 123 （ B） 112 （ C） 12123 （ D） 112123 22 窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x%， y%， z% x InputBox(“请输入第 1个整数 “) y InputBox(“请输入第 2个整数 “) Do Until x y If xy Then x x y Else y

17、y x Loop Print x End Sub 运行程序， 单击命令按钮，并输入 2个整数 169和 39，则在窗体上显示的内容为( )。 （ A） 11 （ B） 13 （ C） 23 （ D） 39 23 窗体上有 1个名称为 Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m InputBox(“请输入字符串 “) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp “ i 1 sLen

18、 Len(s) Do While ia c 的值是 ( )。 （ A） 1 （ B） 1 （ C） True （ D） False 二、基本操作题 41 (1)在名称为 Form1的窗体上添加两个名称分别为 Frame1、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Frame1中添加两个单选按钮，名称分别为 Option1、Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在Frame2中添加一个名称为 Check1的复选框，标题为 “下划线 ”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1

19、 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为Form1的窗体上从上到下添加两个文本框，名称分别为 Text1、 Text2；再添加一个命令按钮，名称为 Command1，标题为 “选中字符数是 ”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击 “选中字符数是 ”按钮，则选中的字符个数显示在 Text2中 (如图所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 42 (1)考生文件夹下有一

20、个 工程文件 sjt3 vbp，其中的窗体上有一个命令按钮控件数组，名称为 Cmd；有一个图像框，名称为 Image1。请添加一个名称为 Timer1的计时器，时间间隔为 3秒，初始状态为不可用，如图所示。 程序功能如下： 单击 “前进 ”按钮，则 Timer1的状态变为可用，且在图像框中显示 3秒黄灯 (图像文件为考生文件夹下的 “yellow ico”)后显示绿灯 (图像文件为考生文件夹下的“green ico”)。直至下次单击某个命令按钮。 单击 “停止 ”按钮，则 Timer1的状态变为可用，且在图像框显示 3秒黄灯后显示红灯 (图 像文件为考生文件夹下的“red ico”)，直至下次

21、单击某个命令按钮。 单击 “结束 ”按钮，则结束程序运行。 请将命令按钮 Click事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名进行存盘。 (2)考生文件夹下有一个工程文件sjt4 vbp，其中的窗体上已有如图所示的控件。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in4 dat文件的内容 (该文件中仅含有字母和空格 )显示在Text1文本框中。 在文本框 Text1中选中部分文本，单击 “统计 ”按钮，以不区分大小写字母的方式，自动统计选中文本中同时出现 “o”、 “n”两个字母的单词

22、的个数(如： million、 company都属于满足条件的单词 )，并将统计结果在 Text2文本框内显示。 请将 “统计 ”按钮的 Click事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名进行存盘。 四、综合应用题 43 考生文件夹下有一个工程文件 sjt5 vbp。运行程序后，从文件中读出数据，将其放入一个 55的二维数组 a中。请编写程序，找出数组 a中每行的最大值及该值在行中的次序 (列下标 )，并将所找到的结果分别保存到一维数组 b、 c中 (a中第一行的最大值保存在 b(1)中，最大值的

23、列次序保存在 c(1)中 )。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。 国家二级（ VB）机试模拟试卷 46答案与解析 一、选择题 1 【正确答 案】 D 【试题解析】 KeyCode是 KeyDown、 KeyUp 键盘事件的参数，不是键盘事件，它返回的是按键相应的 ASCII字符代码。故选项 D错误。 2 【正确答案】 A 【试题解析】 本题是定义了一个一维数组，下标是 2 to 4 ，所以数组元素的个数是 4 ( 2) 1 7 ，故选 A。 3 【正确答案】 C 【试题解析】 窗体的 Visible属

24、性是设置窗体可见不可见； Enabled属性是设置可用不可用； Caption属性是用来设置窗体标题栏上显示的内容； ControlBox属性是设置窗体左上角是否显示控制框，当属性值为 True时，显示控制框，否则False时，不显示。故选项 C正确。 4 【正确答案】 D 【试题解析】 题意是在文本框中输入信息，会影响标签上显示的内容，所以触发的是文本框 Text1 的事件，要在文本框 Text1的事件过程中写代码，因此排除 A、B 选项。又因为标签上显示的内容会随着文本框中输入信息变化，因此要在 Text1的 Change事件过程写代码。故 D选项正确。 5 【正确答案】 A 【试题解析】

25、 Move 方法是窗体的移动方法，其中 200,200是窗 体左上角的坐标(X， Y)。坐标系是以屏幕左上角为原点，向右为 X轴正方向，向下为 Y轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各 200的位置。故 A选项正确。 6 【正确答案】 D 【试题解析】 计时器控件的 Interval 属性值以毫秒为单位，设置为 1000则计时器事件每 1秒钟发生一次。 7 【正确答案】 B 【试题解析】 组合框的 RemoveItem方法与列表框删除指定项目的方法相同，格式为： RemoveItem(索引值 )，而列表中的项目索引值从 0开始，因此最后一项的索引值为 ListCount 1

26、。 8 【正确答案】 D 【试题解析】 FontItalic用来设置文字是否为斜体， FontUnderLine 用来设置文字是否加下划线， FontSize用来设置文字的字号， FontBold 用来设置文字是否为粗体。 9 【正确答案】 C 【试题解析】 改变滚动框的位置后会触发 Change事件，拖动滚动框、单击滚动箭头、单击滚动箭头与滚动框之间的滚动条都会改变滚动框的位置。 10 【正确答案】 B 【试题解析】 确定图片框在窗体上位置的属性是 Left和 Top，它 们使用的是相对坐标，以窗体为参考点。 11 【正确答案】 C 【试题解析】 单选按钮没有 Min 属性，滚动条控件的属性

27、中有 Min 属性。 12 【正确答案】 D 【试题解析】 可以通过 Print方法在图片框中输出文件，图片框中的图形可以在程序运行过程中通过载入空文件的方法清除，图片框控件可以作为父控件，即可以放置其他控件， Stretch 属性用来自动调整图片框中图形内容的大小。 13 【正确答案】 D 【试题解析】 清除列表框中的指定内容要使用 RemoveItem方法，格式为：RemoveItem(索引值 )，只要指定要清除项目的索引值就可以清除指定项目。如果要清除列表框中的全部内容可以使用 Clear方法。 14 【正确答案】 C 【试题解析】 Print方法可以在窗体上显示文本字符串和表达式的值，

28、并可在其他图形对象或打印机上输出信息。其一般格式为： 对象名称 .Print表达式表 ， |； 其中对象名称可以是窗体 (Form)、图片框 (PictureBox)或打印机 (Printer)，也可以是立即窗口 (Debug)。如果省略对象名称，则在当前窗体上输出。 15 【正确 答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先，在顺序文件中打开文件写入数据的打开方式为： Open 文件名 For Output As #文件号。因此 B、 C选项排除，只看 A、 D选项。 写入顺序文件 Print #语句格式为： Print #文件号，变量名，变量

29、名 ， Write语句的的格式与 Print语句一样： Write #文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名 .成员名，Books 类型变量 B 成员 Name和 TelNum赋值和引用应该是 B.Name、B.TelNum，因此 A选项正确。 16 【正确答案】 B 【试题解析】 VB 中 “/“是浮点除法运算符， “是整数除法运算符，程序中的条件表达式 a(i， j)/ 7 a(i， j)成立时说明这个数能够被 7整除，程序即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i 1时为 (3,4,5,6)， i 2时为(5

30、,6,7,8)， i 3时为 (7,8,9,10)， i 4时为 (9,10,11,12)， i 5时为 (11,12,13,14)，其中能够被 7整除的数有 7、 7、 14共 3个。因此答案为 B。 17 【正确答案】 B 【试题解析】 程序没有错误。数组变量定义时可以不用声明上下界。 List控件列表项的索引从 0开始。 Array函数只适用于一组数组，只能对一维数组进行初始化，不能对二维数组或多维数组进行初始化。因此叙述正确的是 B 选项。 18 【正确答案】 B 【试题解析】 程序中 Ucase函数将输入的字母转换为大写，然后通过 Select多分支控制语句选择输出不同信息，当输入字

31、母在 “A“到 “C“之间时，显示 “考核通过！ “，输入的是 “D“时显示 “考核不 通过！ “，如果输入的是 “A“到 “D“之外的其他字符则显示 “输入数据不合法！ “。程序中输入字母 “B“，因此会显示 “考核通过！ “。 19 【正确答案】 C 【试题解析】 当用 Dim语句定义数组时，该语句把数值数组中的全部元素都初始化为 0，而把字符串数组中的全部元素都初始化为空串。因此 color数组中的元素初始值都为 0，没有空值，过程调用不会失败。 C选项叙述错。 20 【正确答案】 A 【试题解析】 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为Variant类型，由于过程

32、中参数类 型为 Integer，所以程序运行时会提示 “ByRef 参数类型不符 “错误。 A选项正确。只在按钮事件中加上 Dim x as Integer就可以解决问题，或者 f 过程中的 y as integer改为 ByVal y as integer也可以解决。 21 【正确答案】 D 【试题解析】 KeyUp 事件是在松开按钮时发生。按下 1松开时，文本框中显示1，执行 KeyUp事件过程，在窗体上显示文本框内容，即 1。按下 2松开时，文本框中显示 12，执行 KeyUp事件过程，在窗体上 1后面接着现在显示文本框的内容，即窗体上 显示为 112。按下 3松开时，文本框中显示 12

33、3，执行 KeyUp事件过程，在窗体上 112后面接着显示文本框的内容，即在窗体上显示为 112123。 22 【正确答案】 B 【试题解析】 程序中 Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入 169和 39，则 x169 39 130,130y即 13039，因此 x 130 39 91，如此循环 x 91 39 52 39 13，此时 1339为假，执行 y y x 39 13 26，循环 y 26 13 13，此时 x、 y都为 13，循环结束，因此窗体上显示为 13。 23 【正确答案】 A 【试题解析】 过程 pick

34、_str的功能是对输入的字符串的字符重新组合，通过 Do循环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长度整除 2的值。当输入字符串是 “basic“时，字符串长度为 5，循环次数为 5/22次，因此取出的字符依次是 “b“， “c“， “a“， “i“。即 “bcai“，因此答案为 A。 24 【正确答案】 D 【试题解析】 在过程 m中 s被定义为静态变量，因此它的值只在 第一次调用过程时初始化，以后再调用都不再初始化，而是保留之前的值。 m过程的功能是根据参数值累加，因此第 1次单击时， m(1) m(2) m(3) 1 3 6 10，此时变量s的值，即过程 m的

35、值为 6，第 2次单击时， m(1) m(2) m(3) 7 9 12 28。因此答案为 D。 25 【正确答案】 A 【试题解析】 在定义的链表中，若只含有一个指针域来存放下一个元素地址，称这样的链表为单链表或线性链表。带链的栈可以用来收集计算机存储空间中所有空闲的存储结点，是线性表。在单链表中的结点中增加一个指针域指 向它的直接前件，这样的链表，就称为双向链表（一个结点中含有两个指针），也是线性链表。循环链表具有单链表的特征，但又不需要增加额外的存贮空间，仅对表的链接方式稍做改变，使得对表的处理更加方便灵活，属于线性链表。二叉链表是二叉树的物理实现，是一种存储结构，不属于线性结构。答案为

36、A选项。 26 【正确答案】 D 【试题解析】 在循环队列中，用队尾指针 rear指向队列中的队尾元素，用排头指针 front指向排头元素的前一个位置。在循环队列中进行出队、入队操作时，头尾指针仍要加，朝前移动。只不过当头尾指针指 向向量上界时，其加操作的结果是指向向量的下界。由于入队时尾指针向前追赶头指针，出队时头指针向前追赶尾指针，故队空和队满时，头尾指针均相等。答案为 D选项。 27 【正确答案】 C 【试题解析】 栈顶元素总是后被插入的元素，从而也是最先被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元素。栈的修改是按后进先出的原则进行的。因此，栈称为先进后出表，或

37、 “后进先出 “表，所以选择C。 28 【正确答案】 B 【试题解析】 关系模型实体间的联系采用二维表来表示，简称表。选项 C为 网状模型实体间的联系，选项 D为层次模型实体间的联系，选项 A属性刻画了实体 29 【正确答案】 C 【试题解析】 两个实体集间的联系实际上是实体集间的函数关系，主要有一对一联系（ 1:1）、一对多联系（ 1:m）、多对一联系（ m:1）、多对多联系（ m:n）。对于每一个实体部门，都有多名职员，则其对应的联系为一对多联系（ 1:m），答案选 C。 30 【正确答案】 A 【试题解析】 在数据流图中，对所有元素都进行了命名，所有名字的定义集中起来就构成了数据字典。因

38、此选 A，而 B， C， D都不符合。 31 【正确答案】 D 【试题解析】 软件需求规格说明书是需求分析阶段的最后成果，是软件开发的重要文档之一。软件需求规格说明书有以下几个方面的作用。 便于用户、开发人员进行理解和交流， B正确； 反映出用户问题的结构，可以作为软件开发工作的基础和依据， C正确； 作为确认测试和验收的依据， A正确。 32 【正确答案】 C 【试题解析】 黑盒测试不关心程序内部的逻辑，只是根据程序的功能说明来设计测试用例。在使用黑盒测试法时，手头只需要有程序功能说明就可以了。黑盒测试法分等价类划分法、边界值分析法和错 误推测法，答案为 C。而 A、 B、 D均为白盒测试方

39、法。 33 【正确答案】 C 【试题解析】 从技术观点上看，软件设计包括软件结构设计、数据设计、接口设计、过程设计。所以 A、 B、 D正确， C为软件测试阶段的任务。 34 【正确答案】 A 【试题解析】 属性窗口、立即窗口和窗体窗口都能隐藏，但主窗口不能。故选A。 35 【正确答案】 D 【试题解析】 有定长和不定长的字符串变量。默认情况下，定义的字符串变量属于不定长的，字符串长度可以改变，比如： Dim str As String。如果 声明一个定长字符串变量，形如 Dim str As String *字符个数。故 D选项正确。 36 【正确答案】 A 【试题解析】 按 F10或 Al

40、t键可激活菜单，焦点聚焦到菜单栏上，进而可用键盘打开菜单和执行菜单命令。故选 A。 37 【正确答案】 D 【试题解析】 用鼠标双击窗体的任何部位会打开 “代码窗口 “，故 A选项错误。在 “视图 “菜单中才有 “属性窗口 “命令，故 B选项错误。按 Ctrl F4键关闭当前活动窗体窗口。故 C选项错误。按 F4 会打开 “属性窗口 “。故 D选项正确。 38 【正确答案】 A 【试题解析】 单击窗体上没有控件的地方，在属性窗口就会出现窗体的各属性，这样就可对窗体的属性进行设置，故 A选项正确。单击任意一个控件，在属性窗口中出现的是该控件的属性，故 B选项错误；双击任意一个控件，打开的是 “代

41、码窗口 “，故 C选项错误；单击属性窗口的标题栏，属性窗口成为活动窗口，故 D选项错误。 39 【正确答案】 C 【试题解析】 右击窗体，弹出的菜单中没有 “添加窗体 “命令，故 C选项错误。 40 【正确答案】 D 【试题解析】 计算表达式的值，先计算算术运算符，再计算关系运算 符，然后计算逻辑运算符 (优先级从高到低为 Not And Or)，最后结果为 Fasle。故 D选项正确。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，在窗体中添加两个框架，两个单选按钮和一个复选框，并设置控件的属性。要添加的的控件及属性见表 3.48和 3.49。 步骤 2：各控件添

42、加完成后，再将两个单选按钮的 Alignment属性设置为 1-Right Just，使单选按钮的标题在单选按钮的左边显示。步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面， 在窗体中添加两个文本框和一个命令按钮，然后在属性窗口设置控件的属性。程序中用到的控件及属性见表 3.50。 步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() Text2 = Text1.SelLengthEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打

43、开本题工程文件，在窗体中添加一个计时器控件，并设置计时器 Timer1的 Interval属性为 3000， Enabled属性设置为 False。 步骤 2：分析并编写程序代码。 程序提供代码 Dim flag As Integer Private Sub Cmd_Click(Index As Integer) If Index = ? Then End Else 考生文件夹下的图片文件 Image1.Picture = LoadPicture(“yellow.ico“) flag = Index Timer1.Enabled = ? End If End Sub Private Sub T

44、imer1_Timer() Select Case ? Case 0 Image1.Picture = LoadPicture(“green.ico“) Timer1.Enabled = False Case 1 Image1.Picture = LoadPicture(“red.ico“) Timer1.Enabled = False End Select End Sub 程序结束 参考答案 第 1个？处填入： 2 第 2个？处填入： True 第 3个？处填入： flag 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析

45、并编写程序代码。 程序提供代码 Dim s As String Private Sub Command1_Click() Open App.Path & “in4.dat“ For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim m As Integer If Len(s) = ? Then MsgBox “请先使用 “读数据 “功能！ “ Else If Text1.? = 0 Then MsgBox “请先选中文本！ “ Else t = “

46、 For i = 1 To Text1.SelLength c = Mid(Text1.SelText, i, 1) If c 0 And InStr(x, “n“) 0 Then m = m + 1 End If t = “ End If Next i ? = Str(m) End If End If End Sub 程序结束 参考答案 第 1个？处填入： 0 第 2个？处填入： SelLength 第 3个？处填入： LCase(t) 第 4个？处填入： Text2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工

47、程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(5, 5) As Integer Dim b(5) As Integer Dim c(5) As Integer Private Sub Command1_Click() N = 5 For i = 1 To N 考生编写 程序开始 考生编写程序结束 Next i Save End Sub Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & “Data5.txt“ For Input As #1 Do While Not EOF(1) F

48、or i = 1 To 5 For j = 1 To 5 Input #1, a(i, j) Next j Next i Loop Close #1 End Sub Public Sub Save() Open App.Path & “out5.txt“ For Output As #1 For i = 1 To 5 Print #1, b(i), c(i) Next i Close #1 End Sub 程序结束 参考答案 Max = a(i, 1) For j = 1 To 5 If Max a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。