1、国家计算机二级(VB)91 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.以下程序段的输出结果为（ ）。 Dim 1，a(10)，p(3) k=5 Fori=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1) Next i For i=0 To 2 k=k+p(i)*2 Next i Frint k （分数：2.00）A.WHEREB.FROMC.GROUP BYD.ORDER BY2.有变量定义语句 Dim max，min As String，则可
2、以知道 max 的类型是（ ）。（分数：2.00）A.除了 Click 事件之外，菜单项不可以响应其他事件B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从 1 开始D.菜单的索引号可以不连续3.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j
3、) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 （分数：2.00）A.15B.14C.13D.124.在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项是( )。 （分数：2.00）A.x=List1ListCountB.x=ListCountC.x=List1ListIndexD.x=ListIndex5.编写如下两个事件过程： Priva
4、te Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序，如果按“A“键，则程序输出的结果是（ ）。 （分数：2.00）A.PanelB.FrameC.AppletD.Dialog6.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1 Cl
5、ick() Dim x As Integer，y As Integer x=12：y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：2.00）A.1232B.232C.23D.1237.设有如右图所示的窗体和下列程序： Private Sub Command1_Click() Text1.Text=“Visual Basic“ End Sub Private Sub Text1_LostFocus
6、() If Text1.Text“BASIC“ Then Text1.Text=“ “ Text1.SetFocus End If End Sub 程序运行时，在 Text1 文本框中输入“Basic”(如图所示)，然后单击Command1 按钮，则产生的结果是( )。 （分数：2.00）A.文本框中无内容，焦点在文本框中B.文本框中为“Basic“，焦点在文本框中C.文本框中为“Basic“，焦点在按钮上D.文本框中为“Visual Basic“，焦点在按钮上8.下列程序段的执行结果为( )。 I=4 x=5 Do I=I + 1 X=K2 Loop Until I=7 Print“I=“；
7、I Print“x=“；x （分数：2.00）A.121B.122C.112D.2229.下列程序段的执行结果为( )。 a=1 b=2 For I=1 To 3 f=a * b a=b b=f Print f Next I （分数：2.00）A.22B.10C.34D.3010.下面程序段执行结果为（ ）。 x=Int(Rnd()+3) Select Case x Case 5 Print “excellent“ Case 4 Print “good“ Case 3 Print“pass“ Case Else Print“fail“ End Select （分数：2.00）A.excelle
8、ntB.goodC.passD.fail11.下列说法正确的是（ ）。（分数：2.00）A.ClickB.DbClickC.RightClickD.以上 3 项都是12.当复选框被选中时，复选框的 Value 属性的值为（ ）。（分数：2.00）A.0B.1C.2D.513.设有下面的循环： i=0 While i=1 i=i + 3 Print i Wend 则运行后的输出结果是（ ）。 （分数：2.00）A.abB.abcC.abdD.abcd14.用来设置文本框有无滚动条的属性是（ ）。（分数：2.00）A.在 File1 中的 Change 事件中，输入 File1Path=Dir1P
9、athB.在 Dirl 中的 Change 事件中，输入 File1Path=Dir1PathC.在 File1 中的 Change 事件中，输入 Dir1Path=File1PathD.在 Dir1 中的 Change 事件中，输入 Dir1Path=File1Path15.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到什么事件?（分数：2.00）A.TrueB.0C.1D.False16.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1
10、_Click() n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是（ ）。 （分数：2.00）A.72 36B.108 36C.72 6D.108 617.下面关于菜单的叙述中错误的是【
11、 】（分数：2.00）A.各级菜单中的所有菜单项的名称必须唯一B.同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同C.弹出式菜单用 Popup Menu 方法弹出D.弹出式菜单也用菜单编辑器编辑18.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。 （分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/219.设窗体上有 1 个滚动条,要求单击滚动条右端的鬻按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是【 】（分数：2.00）A.MaxB.MinC.SmallhangeD.Larg
12、e Change20.在窗体上画一个名称为 TxtA 的文本框,然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) End Sub 假定焦点已经位于文本框中,则能够触发 KeyPress 事件的操作是【 】 （分数：2.00）A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键21.设有如下的用户定义类型： Type Student number As String name As Suing age As Integer End Type 则以下正确引用该类型成员的代码是【 】 （分数：2.00）A.Stude
13、nt.name=“李明“B.Dim S As Student S.name=“李明“C.Dim S As Type Student S.name=“李明“D.Dim S A.s Type S.name=“李明“22.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Tex
14、t1 中输入小写字母 a 时，文本框 Text2 中显示的是( )。（分数：2.00）A.AB.aC.CD.c23.下列程序段的执行结果为（ ）。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I=7 Print“I=“；I Print“X=“；x （分数：2.00）A.1B.2C.3D.424.新建一个列表框，要实现对列表项可以复选，应设置的属性是（ ）。（分数：2.00）A.ScrollBarsB.MultiSelectC.DataFieldD.Stretch25.在计时器控件中，Interval 属性的作用是（ ）。（分数：2.00）A.java.exeB.jdb.
15、exeC.javap.exeD.javac.exe26.下列程序执行的结果为（ ）。 x=25：y=20：z=7 Print “S“；x+z*y；“)“ （分数：2.00）A.S(47)B.S(165)C.S(25+7*20)D.S(87)27.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2= n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Functio
16、n Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是（ ）。 （分数：2.00）A.72 36 B.108 36C.72 6D.108 6解析：17.下面关于菜单的叙述中错误的是【 】（分数：2.00）A.各级菜单中的所有菜单项的名称必须唯一B.同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同 C.弹出式菜单用 Popup Menu 方法弹出D.弹出式菜单也用菜单编辑器编辑解析：菜单的基本作用有两个：一是提供人机对话的界面,二是管理应用系统；在菜单
17、中,所有菜单项的名称必须惟一,不能重复,所以选项 A)是正确的；弹出式菜单也是菜单,当然也要用菜单编辑器编辑,它用PopupMenu 方法弹出,故选项 C)和选项 D)描述也都正确。18.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。 （分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/2 解析：假设线性表的长度为 n，则在最坏情况下，冒泡排序需要经过 n/2 遍的从前往后扫描和 n/2 遍的从后 往前扫描，需要比较次数为 n(n-1)/2。快速排序法的最坏情况比较次数也是 n(n-1)/2。19.设窗体
18、上有 1 个滚动条,要求单击滚动条右端的鬻按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是【 】（分数：2.00）A.MaxB.MinC.Smallhange D.Large Change解析：在一般情况下,垂直滚动条的值由上往下递增,最上端代表最小值(Min),最下端代表最大值(Max)；水平滚动条的值从左到右递增,最左端代表最小值(Min),最右端代表最大值(Max),其取值范围为-3276832768；因此选项 A)和选项 B)不正确滚动条有两个属性是设置滚动步长的,为 Iarge Chang 和SmallChange,而 Iarge Change 表示单击滚动条中滚动框前面或后面
19、的部位时,Value 增加或减少的增量值Small Change 表示单击滚动条两端的箭头时,Value 属性增加或减少的增量值,即滚动块移动的刻度值。20.在窗体上画一个名称为 TxtA 的文本框,然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) End Sub 假定焦点已经位于文本框中,则能够触发 KeyPress 事件的操作是【 】 （分数：2.00）A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键 解析：KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键
20、时触发的事件,KeyAscii 参数返回所按键的 Ascii 的代码。KeyPress(KeyAscii As Integer)事件可以引用任何可打印的键盘字符。 21.设有如下的用户定义类型： Type Student number As String name As Suing age As Integer End Type 则以下正确引用该类型成员的代码是【 】 （分数：2.00）A.Student.name=“李明“B.Dim S As Student S.name=“李明“ C.Dim S As Type Student S.name=“李明“D.Dim S A.s Type S.n
21、ame=“李明“解析：Type 语句用于定义一个用户自己的数据类型(即自定义类型),它含有一个或一个以上的成员,每个成员可以被定义为不同的数据类型。声明一个自定义类型后,在引用自定义类型的成员时,应当先定义一个该类型变量,正确的定义格式为“Declare 变量名 As 记录类型名“。其中,Declare 可以是Dim、Static、Public 等。然后通过“变量名.成员名“来访问该变量中的元素。22.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Sh
22、ift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是( )。（分数：2.00）A.AB.aC.C D.c解析：本题考查的考点是有关字符转换函数的。UCase 函数的功能为强制转成大写字母：Chr 函数的功能是把整数按照 ASCII 码转换成字母；Asc 函数的功能是把字母转换成对应的 ASCII 码。本题中变量 c 的值是大写字母“A”，最终结果是大写字母“C”。23.下列程序段的执行结果为（ ）。
23、 I=4 x=5 Do I=I+1 x=x+2 Loop Until I=7 Print“I=“；I Print“X=“；x （分数：2.00）A.1B.2C.3D.4 解析：本题考查关于 C+语言类的定义方法。在 c+语言中类定义中的构造函数是私有的，但是其却调用了其中的公有变量，在实例化时会出现错误。24.新建一个列表框，要实现对列表项可以复选，应设置的属性是（ ）。（分数：2.00）A.ScrollBarsB.MultiSelect C.DataFieldD.Stretch解析：在列表框的属性中，可以通过设置 MultiSelect 属性来实现是否可以进行列表项的多选，属性值为0，不可以
24、多选列表；属性为 1，无需要用 Ctrl 或者 Shift 就可进行多选；属性值为 2 时，要利用 Ctrl或者 Shift 键，所以选项 B) 是正确的。而选项 A) 是设置滚动条的，与此无关；选项 C) DataField 是用来设置数据的，也无关；选项 D) Strech 不是列表框的属性，所以也不正确。25.在计时器控件中，Interval 属性的作用是（ ）。（分数：2.00）A.java.exeB.jdb.exeC.javap.exe D.javac.exe解析：JDBC 是 Java 程序和数据库连接的一种机制。注意：在 Java 虚拟机中有个特殊模块JDBC Driver Ma
25、nager，它既负责管理对各种类型的数据库软件的 JDBC 驱动程序，也负责和用户的应用程序交互。26.下列程序执行的结果为（ ）。 x=25：y=20：z=7 Print “S“；x+z*y；“)“ （分数：2.00）A.S(47)B.S(165) C.S(25+7*20)D.S(87)解析：该题涉及到赋值语句与运算符优先级的顺序，Print 语句具有运算功能， 故选项 C)是错误的：由于运算符的优先级是先乘除后加减，所以选项 B)为正确，选项 A) 和选项 D)不正确。 27.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCod
26、e As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) 0 f2down% And f2down% Then If altdown% And f2down% Then Text =“abl“ End If Ead Sub 程序运行后，清除文本框中原有内容，如果按 Shift+F2 键，则在文本框中显示的是( )。 （分数：2.00）A.add()B.requestFocus()C.repaint()D.paint() 解析：一个类的友元函数对类成员的访问能力等同于类的成员函数，
27、即能访问类的所有成员。 28.能够获得一个文本框中被选取文本的内容的属性是（ ）。（分数：2.00）A.n/102B.(n-n10)/100C.n10D.n100/10 解析：/比的优先级要高。注意：n/102 的结果应是 0，n/10 结果为 78，用 78 在除以 2 求余则得0；(n- n10)/100 的结果应是 7，n10 得 9，780/100 得 7；n10 的结果显而易见是 9。29.假定建立了一个名为 Command1 的命令按钮数组，则以下说法中错误的是_。 （分数：2.00）A.数组中每个命令按钮的名称（Name 属性）均为 Command1B.数组中每个命令按钮的标题（
28、Caption 属性）都一样 C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮解析：控件数组的特点：控件数组由一组相同类型的控件组成；这些控件具有相同的名称；数组中的每个 控件都有惟一的索引号，即下标，下标值由 Index 属性指定，通过索引值来区别控件数组中的元素；控件 数组可以使用同一个事件过程，只是在参数中多了一个索引号来区分。控件数组中的各个控件的标题可以 不一样。30.下列说法正确的是（ ）。（分数：2.00）A.ScrollBarsB.MultiSelect C.DataFieldD.Stretch解析：如果窗体的 Bor
29、derStyle 属性设置为 Fixed Single，则窗体为固定单边框，可以包含控制菜单框、标题栏、最大化和最小化按钮，但要注意的是，如果窗口的 MaxButton 和 MinButton 属性设置为 True，则可以使用，运行时显示最大化和最小化按钮；如果设置为 False，则运行时不显示。31.以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是_。 （分数：2.00）A.KeyAscii 参数是所按键的 ASCII 码 B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符解析：KeyPr
30、ess 事件的 KeyAscii 参数返回用户所按键的 ASCII 码，类型为整型；它不是按键上的字符；并且 KeyAscii 参数不可以省略。32.下列对于线性链表的描述中正确的是_。 （分数：2.00）A.存储空间不一定是连续，且各元素的存储顺序是任意的 B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的解析：在链式存储结构中，存储数据结构的存储空间可以不连续，各数据结点的存储顺序与数据元素之间 的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。33.在窗体上添
31、加标签控件 Label1 之后，标签控件的默认的名称 Name 是（ ）。（分数：2.00）A.5，68936B.5，689360C.5，6893D.005，689360 解析：用 Format()函数可以将数值按“格式字符串”指定的格式输出，包括在 输出字符串前面加 S，字符串后面补 0 及千位分隔符等。“格式字符串”是一个常量或变 量，它由专门的格式说明符组成，由这些字符决定数据项的显示格式，并指定显示区域的 长度，当格式字符串为常量时，必须放在双引号中。本题是指定 1000936 按给定“000，000000”格式输出，所以不足的部分补 0，输出结 果为：010，009360，正确答案为
32、选项 D)。34.有如下程序段： Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(a) Next i End Sub Function G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + c End Function 运行上面的程序后，单击命令按钮，输出结果为（ ）。 （分数：2.00）A.1 2 3B.2 3 4C.4 5 6 D.1 4 6解析：在函数 G 中定义了一个静态变量 c，每次调用完成后，c 的值都将保存到下一次调用 c；Sub
33、 过程中，循环语句 For 的变量 I 的初始值和终值分别是 1，3，因为步长为 1，所以循环 3 次，循环体为调用 G 过程；在第一次调用循环时，将 a 等于 2 传给形参，因为是第一次调用 G，且 c 没有赋值，所以默认 c 为 0，执行 b=b+1，c=c+1，b，c 的值为 1，所以 G 的值为 4；第三此循环时，c 的初值为 2，执行 G 过程后，返回值为 6。35.不能脱离控件(包括客体)而独立存在的过程是（ ）。（分数：2.00）A.事件过程 B.通用过程C.Sub 过程D.函数过程解析：事件过程由 Visual Basic 创建，事件过程是当用户对一个对象发出一个动作时所产生的
34、事件，不能脱离控件而独立存在；通用过程时通用的，不与任何特定事件相联系，它完成特定的任务，只能由别的过程调用；Sub 过程包括事件过程和通用过程，称之为子过程。也就是说，有些 Sub 过程与对象相关联，有些 Sub 过程与对象没有联系；函数过程类似于内部函数，由用户定义的，完成一些特殊函数关系的计算，并且要返回函数值的过程，显然函数过程不必与控件发生联系。二、填空题（每空 2 分，共 30 分）(总题数：10，分数：30.00)36.在深度为 7 的满二叉树中,度为 2 的结点个数为 1。（分数：3.00）填空项 1:_ （正确答案：63）解析：根据二叉树的性质,一棵深度为 k 的满二叉树有
35、2k-1 个结点,所以深度为 7 的满二叉树有 2 的 7 次方-1=127 个节点；又因为在任意一棵二叉树中,若终端结点的个数为 n0,度为 2 的结点数为 n2,则 n0=n2+1,即所以总节点数为 n0+n2=2n2+1=127,所以 n2=63,即度为 2 的结点个数为 63,所以应填入 63。37.一个关系表的行称为 1。（分数：3.00）填空项 1:_ （正确答案：元组）解析：在关系中,水平方向的行称为元组,垂直方向的列称为属性,每一列有一个属性名。38.以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来,要求把A(1)到 A(10)依次
36、赋给 B(1,1)到 B(1,10),把 A(11)到 A(20)依次赋给 B(2,1)到 B(2,10),把 A(91)到A (100)依次赋给 B(10,1)到 B(10,10)。请填空。 Option Base 1 Private Sub Form_Click1 Dim i As Integer,J As Integer Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For i=1 To 2 For J=1 To 3 B(i,j)= 4
37、Print B(i,j)； Next j Print Next i End Sub （分数：3.00）填空项 1:_ （正确答案：10）填空项 1:_ （正确答案：10）填空项 1:_ （正确答案：A(i-1)*10+j)）解析：根据题意,在嵌套循环中,i 为外循环变量,循环次数为 10 次,控制数组 B 的行值,j 为内循环变量,循环次数为 10 次,决定着数组 B 的列值,然后根据数组下标的关系,可写出(i-1)*10+j 表达式,从而相应地对数组 B 进行赋值。二维数组 B 的元素与一维数组 A 的元素存在这样的对应关系：B(i,j)=A(i-1)*10+j),如 B(1,1)=A(1)
38、、B(2,1)=A(11)、B (10,1)=A(91)。39.窗体上命令按钮 Commandl 的事件过程如下： Private Sub Command1_Click1 Dim total As Integer total=s(1)+s(2) Print total End Sub Private Function s(m As Integer)As Integer Static x As Integer For i=1 To m x=x+1 Next i s=x End Function 运行程序，第 3 次单击命令按钮 Command1 时，输出结果为 2。 （分数：3.00）填空项 1
39、:_ （正确答案：16）解析：本题考查的考点是有关静态变量的。静态变量定义后默认值为 o，并且会保存上一次为这个变量赋的值。本题第一次单击命令按钮时，调用两次 s 函数，第一次使得 x 的值为 1，第二次使得 x 的值为 3；第二次单击命令按钮时，调用两次 s 函数，第一次使得 x 的值为 4，第二次使得 x 的值为 6：第三次单击命令按钮时，调用两次 s 函数，第一次使得 x 的值为 7，第二次使得 x 的值为 9，最后结果为 7+9=16。40.软件工程三要素包括方法、工具和过程，其中， 1 支持软件开发的各个环节的控制和管理。（分数：3.00）填空项 1:_ （正确答案：过程）解析：软件
40、工程包括三个要素：方法、工具和过程。软件工程方法为软件开发提供了“如何做”的技术。它包括了多方面的任务，如项目计划与估算、软件系统需求分析、数据结构、系统总体结构的设计、算法过程的设计、编码、测试以及维护等。41.在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load1 Open “d:/temp/dat.txt“ For Output As #1 Text1.Text = “ End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 2= 13 Then If UCase(Tex
41、t1.Text) = 3Then Close #1 End Else Write #1, 4 Text1.Text = “ End If End If End Sub 以上程序的功能是，在 D 盘 temp 目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每 次按回车键（回车符的 ASCII 码是 13）都把当前文本框中的内容写入文件 dat.txt，并清除文 本框中的内容；如果输入“END“，则结束程序。请填空。 （分数：3.00）填空项 1:_ （正确答案：KeyAscii , “END“ , Text1.Text）解析：第 13 空的目的是用来判断当前输入的字符是否是
42、回车（其 Ascii 码值为 13），只要判断所输入的字符的 Ascii 码值是否是 13，在 KeyPress 事件中，KeyAscii 用来表示当前输入字符的 Ascii 码值，故第 13 空 应填 KeyAscii。第 14 空的目的是判断当前文本框中所输入的字符串是否为“End”（可忽略大小写），只要 将文本框中的字符全部转换为大写字母，然后与“END”相比较，故第 14 空应填“END”；第 15 空所在语 句是将文本框中的内容写入到文件#1 中，故该空应填 Text1.Text。42.窗体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Label
43、1、Caption 属性为“Sum”的标签，一个名称为 Command、标题为“计算”的命令按钮。程序运行后，将把 1100 之间能够被 7 整除的数添加到列表框中。如果单击“计算”按钮，则对 List中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 （分数：3.00）填空项 1:_ （正确答案：List1.AddItem i）解析：43.下面程序的作用是用 InputBox 函数输入一个整数，然后判断能否同时被 2，5 和 7 整除， 果能则输出该数及平方值。请填空。 Private Sub Command1_Click1 Dim numX As I
44、nteger numX = Val (InputBox(“请输入一个整数“) If 2Then Form1Print 3 End If End Sub （分数：3.00）填空项 1:_ （正确答案：numX Mod 2 = 0 And numX Mod 5=0 And numX Mod 7=0）解析：显然 If 后跟条件，根据已知，条件是“能否同时被 2，5 和 7 整除”，所以第一个空应填入：numX Mod2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0；如果满足条件 就显示出来并显示其平方值，所以第二个空应填入的是：numX，numX2 44.在 V
45、isual Basic 的立即窗口内输入以下语句 X=97 ? Chr (X) 在窗门中显示的结果是 1。 （分数：3.00）填空项 1:_ （正确答案：a）解析：Chr-|_|-是求 ASCII 字符的函数，格式是 Chr(表达式)，其中“表达式” 应该是合法的 ASCII 码值，Chr-|_|-函数把“表达式”的值转换为相应的 ASCII 字符。本题 中 X=97 对应的 ASCII 码是字符 a，所以显示的结果应该是 a。45.在窗体上添加一个文本框控件 Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(exe)，然后在文
46、本控件中显示保存的文件名。 Private Sub Command1_Click1 CommonDialog1Filter= 2 CommonDialog1FilterIndex= 3 CommonDialog1ShowSave InfoText= 4 End Sub （分数：3.00）填空项 1:_ （正确答案：“文本文件(*txt)|*.txt|可执行文件(exe)|*exe*”）解析：要设置通用对话框可用于保存文本文件和 Word 文档，需要设置通用对话框的 Filter 属性值，在这里应该填写的是“文本文件(*txt)|*txt|可执行文件(exe)| *.exe”；在文件类型栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型(过滤器)可以由 FilterIndex 属性来指定，该属性是一个整数。用 Filter 属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为 1，第二个过滤器的值为 2，用 FilterIndex 属性可以指定作为默认显示的过滤器，对于本题要想使文本文件为默认的类型，只需设置 FilterIndex 属性值为 1 即可；选择了需要保存的文本文件或 Word 文档后，应该让文件的文件名显示在文本框中，因此需要将通用对话框中选择的文件赋给文本控件，即将对话框的FileTitle 属性值赋给文本框的 Text 属性。
