1、计算机二级(VB)35 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) (S + 2) Number=Number+1 Loop Until S=6 Print Number，S End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.2 3B.3 18C.1 8D.10 202.在窗体上画一个命令按钮，名称为 Command1，然后编写如
2、下事件过程： Private Sub Command1_Click() a$ = “software and hardware“ b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_。（分数：2.00）A.software and hardwareB.softwareC.hardwareD.13.设有如下程下段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x 的值是（ ）。 （分数：2.00）A.26B.2
3、7C.38D.574.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（ ）。（分数：2.00）A.MenuOneVisible=TreeB.MenuOneVisible=FalseC.MenuOneEnabled=TrueD.MenuOneEnabled=False5.下列程序段的执行结果为（ ）。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print“*0*“ Case 1 Print“*1*“ End Select Case 2 Print“*2*“ End Select （分数：2.00）A.a=2，b=1B.a=1，
4、b=1C.a=1，b=0D.a=2，b=26.Visual Basic 60 分为 3 种版本，不属于这 3 种版本的是（ ）。（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.标准模块不附属于任何一个窗体7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的 事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub C
5、ommand1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是_。 （分数：2.00）A.6B.7C.8D.98.下列符号常量的声明中，不合法的是（ ）。（分数：2.00）A.构成 C+语言程序的基本单位是类B.可以在一个函数中定义另一个函数C.main()函数必须放在其他函数之前D.所有被调用的函数一定要在调用之前进行定义9.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：2.00）A.在活动窗体
6、中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放 控件B.若一个控件上有 4 个黑色的小方块，表明该控件是活动的C.窗体中活动控件只能有一个D.非活动控件在窗体是隐藏的10.在 VisualBasic 中按文件的编码方式不同，可将文件分为（ ）。（分数：2.00）A.顺序文件和随机文件B.文本文件和数据文件C.ASCH 文件和二进制文件D.数据文件和可执行文件11.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（ ）。 （分数：2.00）A.把 Caption 属
7、性设置为 End Sub 程序运行后，单击命令按钮，输出结果为( )。 （分数：2.00）A.2 3 4B.2 5 9C.3 5 4D.2 4 328.下列说法错误的是（ ）。（分数：2.00）A.CREATE REPORT PP1B.MODIFY REPORT PP1C.CREATE PP1D.MODIFY PP129.工程中有 2 个窗体,名称分别为 Form1、Form2,Form1 为启动窗体,该窗体上有命令按钮 Command1。 要求程序运行后单击该命令按钮时显示 Form2,则按钮的 Click 事件过程应该是【 】（分数：2.00）A.Private Sub Command1_
8、Click() Form2.Show End SubB.Private Sub Commaad1 Click() Form2.Visible End SubC.Private Sub Command1_Click() Load Form2 End SubD.Private Sub Command1 Click() Form2 Load End Sub30.下列说法有错误的是（ ）。（分数：2.00）A.默认情况下，属性 Visible 的值为 FalseB.如果设置控件的 Visible 属性为 False，则运行时控件会隐藏C.Visible 的值可设为 True 或者 FalseD.设置
9、Visible 属性同设置 Enabled 属性的功能是相同的，都是使控件处于失效状态31.能够获得一个文本框中被选取文本的内容的属性是（ ）。（分数：2.00）A.TextB.LengthC.SeltextD.SelStart32.单击命令按钮时，下列程序代码的运行结果为( )。 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do While m 4 Print“分支 2” Case Else Print
10、“Else 分支” End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（ ）。 （分数：2.00）A.分支 1B.分支 2C.Else 分支D.程序出错35.设 x=4,y=6，则以下不能在窗体上显示出“a=10“的语句是_。 （分数：2.00）A.Print A=x+yB.Print “A=“;x+yC.Print “A=“+str(x+y)D.Print “A=“ s End Sub （分数：2.00）填空项 1:_填空项 1:_填空项 1:_40.把窗体的 KeyPreView 属性设置为 True，并编写如下两个事件过程： Private S
11、ub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下 B 键，则在窗体上输出的数值是 1 和 2。 （分数：2.00）填空项 1:_41.随机文件使用 Put 语句写数据，使用 1 语句读数据。（分数：2.00）填空项 1:_42.新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮， Form1 窗
12、体消失，显示 Form2 窗体，程序如下： Private Sub Command1_Click1 2 Form2 3 End Sub 试补充完整。 （分数：2.00）填空项 1:_填空项 1:_43.在窗体上加上一个文本控件 PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click1 CommonDialog1Filter= 2 CommonDialog1ShowOpen PCSTextBoxText= 3 End Sub （分数：2.
13、00）填空项 1:_填空项 1:_44.在窗体上画两个名称分别为 Command1 和 Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各元素赋值；如果单击“求和”命令按钮，则求出数组 a 的各元素之和，并对文本框中显示出来，如图所示。请填空。 （分数：2.00）填空项 1:_45.对随机文件数据存取是以 1 为单位进行操作的。（分数：2.00）填空项 1:_46.函数 Str$(25636)的值是 1。（分数：2.00）填空项 1:_47.浮点数由 3 部分组成，即符号、 1 和尾数。（分数：2.00）填空项 1:_48.在
14、窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色 如此循环。单击“结束”按钮，程序运行结束。请填空。 Private Sub cmdChange_Click1 If Mark=0 Then 2 Mark=1 ElseIf 3Then FormlBackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1BackColor；vbBlue 4 End If End Sub Private Sub cmdExit_Click5 End End Sub （
15、分数：2.00）填空项 1:_填空项 1:_填空项 1:_49.在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以 6 余 2，脓以 5 余 3，则输出否则，特焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click1 num=Val(Text1Text) If 2Then Print num Else Text1Text=“ “ 3 End If End Sub （分数：2.00）填空项 1:_50.在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1，然后编 写如下代码： Dim SaveAll As
16、String Private Sub Command1_Click1 Text1.Text = Left(UCase(SaveAll), 4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub 程序运行后，在文本框中输入 abcdefg，单击命令按钮，则文本框中显示的内容是 2。 （ 10 ）在窗 体上画 1 个命令按钮 和 1 个通用对话框， 其名称分别 为 Command1 和 CommonDialog1，然后编写如下事件过程： Private
17、Sub Command1_Click3 CommonDialog1. 4 = “打开文件“ CommonDialog1.Filter = “All Files(*.*)|*.*“ CommonDialog1.InitDir = “C:/“ CommonDialog1.ShowOpen End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示“打开“文件对话框，其标题是“ 打开文件“，在“文件类型“栏内显示“All Files(*.*)“，并显示 C 盘根目录下的所有文件， 请填空。 （分数：2.00）填空项 1:_计算机二级(VB)35 答案解析(总分：100.00，做题时间：120
18、分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) (S + 2) Number=Number+1 Loop Until S=6 Print Number，S End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.2 3B.3 18C.1 8 D.10 20解析：本题考查的是 DoLoop Until 语句，Number 记录循环次数，S =6 为控制语句，Number=1，s=8；结束运行
19、，输出 1 8。2.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() a$ = “software and hardware“ b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_。（分数：2.00）A.software and hardwareB.softwareC.hardware D.1解析：本题主要考查的是 Msgbox 函数。Msgbox 函数一共有 5 个参数
20、：第 1 个参数是显示在对话框上的消 息；第 2 个参数是值的总和，用于指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消 息框的强制回应等；第 3 个参数在对话框标题栏中显示的字符串表达式；第 4 个参数是用来向对话框提供 上下文相关帮助的帮助文件；第 5 个参数是由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。题目中问的是标题栏上显示的内容，也就是第 3 个参数的值，而第 3 个参数是 b$，它的值是 hardware。3.设有如下程下段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x 的值是（ ）。 （分数：2.00）A.2
21、6B.27 C.38D.57解析：4.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（ ）。（分数：2.00）A.MenuOneVisible=TreeB.MenuOneVisible=FalseC.MenuOneEnabled=TrueD.MenuOneEnabled=False 解析：菜单控件的主要属性有：Caption、Name、Index、Enabled、Visible 等，其中 Enabled 和 Visible属性值为逻辑值，Visible 属性用于表示菜单项是否可见，Enabled 属性用于表示菜单项是否可用。当Enabled 属性值为 False 时，表示菜单项当前
22、不可 用，属性值为 True 时，表示菜单项可用。5.下列程序段的执行结果为（ ）。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print“*0*“ Case 1 Print“*1*“ End Select Case 2 Print“*2*“ End Select （分数：2.00）A.a=2，b=1 B.a=1，b=1C.a=1，b=0D.a=2，b=2解析：本题考查关于 switch 语句。该题目的关键是要搞清楚该程序执行了哪几条语句。由于 x 的值等于 1，所以 switch 结构中，程序从 case 1 后面的语句开始执行，又因
23、为 case 1 后面的语句没有以 break 结束，所以程序要继续往下执行 case 2 后面的语句。所以，该程序共执行了这三条语句：a+；a+；b+；，因此，变量 a 和 b 最后的值应该为 2 和 1。6.Visual Basic 60 分为 3 种版本，不属于这 3 种版本的是（ ）。（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程 D.标准模块不附属于任何一个窗体解析：方法是对象的一部分，所以选项 A)的表述是正确的，其调用格式为：对 象名方法名称，与属性的使用格式相同，所以选项 B)是正确的；方法在调用时，可以省 略对象名
24、，但这只限于当前窗体(或控件)，如果不是当前窗体或控件要加上对象名称，所 以选项 D)是不正确的；方法是一种特殊的过程和函数，所以选项 C)是正确的。 7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的 事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i
25、 = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是_。 （分数：2.00）A.6B.7 C.8D.9解析：本题中 fun 函数的功能是偶数时返回 2，奇数时返回 1。而 1 到 5 中，有三个奇数，两个偶数。所以 s 是三个 1 和两个 2 之和。故 s=7。8.下列符号常量的声明中，不合法的是（ ）。（分数：2.00）A.构成 C+语言程序的基本单位是类 B.可以在一个函数中定义另一个函数C.main()函数必须放在其他函数之前D.所有被调用的函数一定要在调用之前进行定义解析：关于 C+语言，我们应该了解以下
26、必须要掌握的基础知识： c+程序是由类构成的。一个函数由两部分组成：函数的首部和函数体。 一个类由两部分组成：类成员变量和类成员函数。一个 C+程序总是从 main 函数开始执行的，而不论 main 函数在整个程序中的位置如何(main 函数可以放在程序最前头，也可以放在程序最后，或写在一些函数之前，在另一些函数之后)。C+程序在书写上，表现形式比较自由，一行内可以写几个语句，一个语句可以分写在几行上。每个语句和数据定义的最后必须有一个分号。可以用/*/和/对 C+语言的程序的任何部分作注释。 9.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：2.00）A.在活动窗体中只能通过拖拉
27、右上角和左下角的小方块来同时在高度和宽度上缩放 控件B.若一个控件上有 4 个黑色的小方块，表明该控件是活动的C.窗体中活动控件只能有一个 D.非活动控件在窗体是隐藏的解析：属性是一个对象的特性，不同的对象有不同属性，故选项 C)是不正确 的；引用属性的一般格式为：对象名属性名称，故选项 A)不正确；对象的属性值可以在 属性窗口中设置，也可以在程序语句中设置，故迭项 D)是不正确的；对象是有特殊属性 和行为方法的实体，不同的对象有不同的属性，选项 B)是正确的。10.在 VisualBasic 中按文件的编码方式不同，可将文件分为（ ）。（分数：2.00）A.顺序文件和随机文件B.文本文件和数
28、据文件C.ASCH 文件和二进制文件 D.数据文件和可执行文件解析：文件的分类方法有多种。根据数据性质，可分为程序文件和数据文件；根据数据的存取方式和结构方式可分为顺序文件和随机文件；根据数据的编码方式，可分为 ASCII 文件和二进制文件。注意：选项 C)是正确的答案；选项 B)中文本文件是按数据编码划分的，数据 文件是按数据的性质划分的；选项 D)中数据文件是按数据的性质划分的；选项 A)是按 数据的存取方式划分的。 11.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（
29、 ）。 （分数：2.00）A.把 Caption 属性设置为 End Sub 程序运行后，单击命令按钮，输出结果为( )。 （分数：2.00）A.2 3 4B.2 5 9 C.3 5 4D.2 4 3解析：在过程 Sub 中，将 Integer 型变量 x 定义为静态变量(Static)，Static 语句的格式与 Dim 语句完全一样，但 Static 语句只能出现在事件过程，Sub 过程或 Function 过程中，在过程中的 Static 变量只有局部的作用域，即只能在本过程中可见，但可以和模块级变量传递，即使过程结束后，其值仍能保留。Cop 过程是将变量 a 的值加上 x 赋给 x，然
30、后输出 x 的值；第一次调用 Cop 过程时，x 未赋值，默认为 0，所以输出结果为 2，第二次调用 Tcl 过程时，因为 x 为静态变量，所以它的值为上次调用后的值，即为2，加上 a 后，x 的值变为 5，输出结果为 5，同理，第三次调用后输出结果为 9。28.下列说法错误的是（ ）。（分数：2.00）A.CREATE REPORT PP1B.MODIFY REPORT PP1 C.CREATE PP1D.MODIFY PP1解析：打开报表设计器修改已有的报表文件，可利用命令 MODIFY REPORT 来打开报表设计器， CREATEREPORT29.工程中有 2 个窗体,名称分别为 Fo
31、rm1、Form2,Form1 为启动窗体,该窗体上有命令按钮 Command1。 要求程序运行后单击该命令按钮时显示 Form2,则按钮的 Click 事件过程应该是【 】（分数：2.00）A.Private Sub Command1_Click() Form2.Show End Sub B.Private Sub Commaad1 Click() Form2.Visible End SubC.Private Sub Command1_Click() Load Form2 End SubD.Private Sub Command1 Click() Form2 Load End Sub解析：本
32、题考查的是命令按钮的 Click 事.件。根据题意,要想在单击命令按钮时显示一个窗体 form2,则按钮的 Click 事件过程的代码应该是“Form2.show“,即让 Form2 装入内存并显示出来,所以本题的正确答案是选项 A)；选项 B)不正确,因为此时 Form2 并没有加载,如果用该语句并不能显示 Form2；而选项 C)只是加载 Form2,并没有显示,选项 D)不正确。30.下列说法有错误的是（ ）。（分数：2.00）A.默认情况下，属性 Visible 的值为 FalseB.如果设置控件的 Visible 属性为 False，则运行时控件会隐藏C.Visible 的值可设为
33、True 或者 FalseD.设置 Visible 属性同设置 Enabled 属性的功能是相同的，都是使控件处于失效状态 解析：Visible 是用来设置对象的可见性的，有两种值：True 和 False，所以选项 C)表述正确；默认情况下 Visible 的值中是 True，所以选项 A)没有错误；如果将对象的 Visible 值设为 False，窗体和控件在设计阶段仍可见，只有运行时才隐藏，所以选项 B)也是正确的；Enabled 的功能是使控件有效还是无效，默认值为 True，处于有效状态，运行时可用，如果设为 False，则处于禁止状态，运行时不可用，但可见，所以选项 D)错误。31
34、.能够获得一个文本框中被选取文本的内容的属性是（ ）。（分数：2.00）A.TextB.LengthC.Seltext D.SelStart解析：获得文本框中的文本需要用到 SelStart 属性(文本选取开始位置)、SelLength 属性(文本选取长度)和SelText 属性(选取的文本内容)。32.单击命令按钮时，下列程序代码的运行结果为( )。 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do W
35、hile m 4 Print“分支 2” Case Else Print“Else 分支” End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（ ）。 （分数：2.00）A.分支 1B.分支 2C.Else 分支 D.程序出错解析：35.设 x=4,y=6，则以下不能在窗体上显示出“a=10“的语句是_。 （分数：2.00）A.Print A=x+y B.Print “A=“;x+yC.Print “A=“+str(x+y)D.Print “A=“ s End Sub （分数：2.00）填空项 1:_ （正确答案：a(i)=Int(Rnd）填空项 1
36、:_ （正确答案：*）填空项 1:_ （正确答案：200+100)）解析：求随机数要用到随机函数 Rnd，所以在程序中调用了 Rnd 函数，100300 之间的随机函数表示为：a(i)=Int(Rnd * 200+100)；求某个数的倍数要用到取模运算符 Mod，本题中求 7 的倍数，所以表示为：a(i) Mod 7=0；对于条件语句，有 If 开头的必须有 End If 结尾，Select Case 开头的，必须要用 End Select 结尾，所以本题中应添加 End If。40.把窗体的 KeyPreView 属性设置为 True，并编写如下两个事件过程： Private Sub For
37、m_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下 B 键，则在窗体上输出的数值是 1 和 2。 （分数：2.00）填空项 1:_ （正确答案：66）解析：KeyDown 事件是返回的是键盘的直接状态，返回的是“键”，所以当按字母“B”时KeyDown 得到的 KeyCode 码与按字母键“b”是相同的，所以程序输出为 66；当按下键盘上的某个键时将
38、发生KeyPress，KeyPress 并不反映键盘的直接状态，当按下字母“B”时，与按下字母“b”时，对 KeyPress来说，所得到的 ASCII 码是不样的，KeyPress 事件用来识别按键的 ASCII 码，所以按下“B”键，KeyAscii 的值为 98。41.随机文件使用 Put 语句写数据，使用 1 语句读数据。（分数：2.00）填空项 1:_ （正确答案：Get）解析：随机访问模式中文件的写操作使用 Put 命令，Put 命令是将一个记录变量的内容写入所代开的磁盘文件中指定的记录位置上；随机访问模式中文件的读操作使用 Get 命令，Get 命令是从磁盘文件将一条记录号指定的记
39、录内容读入记录变量中。42.新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮， Form1 窗体消失，显示 Form2 窗体，程序如下： Private Sub Command1_Click1 2 Form2 3 End Sub 试补充完整。 （分数：2.00）填空项 1:_ （正确答案：MeHide 或者 Form1Hide 或者 Unload）填空项 1:_ （正确答案：Me）解析：解答此题首先要了解以下方法： Show 方法：将窗体加载到内存并显示。 Hide 方法：将窗体加载到内存并隐藏。 Load 语句：加载窗体到内存。 Unload 语句
40、：从内存卸载窗体，Unload Me 卸载本窗体。所以本题中，可以用 Hide 方法，也可以用 Unload 语句使 Form1 窗体消失；用 Show 方法显示窗体。 43.在窗体上加上一个文本控件 PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click1 CommonDialog1Filter= 2 CommonDialog1ShowOpen PCSTextBoxText= 3 End Sub （分数：2.00）填空项 1:_ （正
41、确答案：“Text）填空项 1:_ （正确答案：Files(*txt)|*txt“）解析：要设置通用对话框只用于打开文本文件，需要设置通用对话框的 Filter 属性值，在这里我们应该填写的是“Text Files(*txt)| *txt“；在使用了对话框控件的 ShowOpen 后出现的打开文件对话框中的文件类型只有 Text Files(*txt)|*.txt，选择了需要打开的文本文件后，应该让文件的文件名显示在文本框中，因此需要将通用对话框中选择的文件赋给文本控件，即将对话框的 FileName 属性值赋给文本框的 Text 属性。44.在窗体上画两个名称分别为 Command1 和 C
42、ommand2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各元素赋值；如果单击“求和”命令按钮，则求出数组 a 的各元素之和，并对文本框中显示出来，如图所示。请填空。 （分数：2.00）填空项 1:_ （正确答案：a(i , j)）解析：45.对随机文件数据存取是以 1 为单位进行操作的。（分数：2.00）填空项 1:_ （正确答案：一个记录）解析： 从存储的角度看，顺序文件一般用来存放同类型或文本类型数据为宜。随机文件一般用来存放一组相关自定义类型的数据。 每组自定义类型数据由不同类型的基本类型数据组成。这样一组自定义的类型数据构成了一
43、个记录。一个记录用一个自定义变量名表示，称之为记录型变量。当向随机文件写入(读取)数据时，每次只可写入(读取)一个记录型变量，即写入(读取)一个记录。 46.函数 Str$(25636)的值是 1。（分数：2.00）填空项 1:_ （正确答案：256.36）解析：Str$-|_|-函数的格式是：Str$(数值表达式)，作用是把“数值表达式”的值转换为一个字符串，表达式的值不受转换过程的影响。对于本题在立即窗口中可看到输出的结果。47.浮点数由 3 部分组成，即符号、 1 和尾数。（分数：2.00）填空项 1:_ （正确答案：指数）解析：浮点数也称实型数或实数，是带有小数部分的数值，它由 3 部
44、分组成：符 号、指数和尾数。单精度浮点数和双精度浮点数的指数分别用“E”(或“e”)和“D”(或 “d”)来表示。48.在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色 如此循环。单击“结束”按钮，程序运行结束。请填空。 Private Sub cmdChange_Click1 If Mark=0 Then 2 Mark=1 ElseIf 3Then FormlBackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1BackColor；vbB
45、lue 4 End If End Sub Private Sub cmdExit_Click5 End End Sub （分数：2.00）填空项 1:_ （正确答案：Form1BackColor）填空项 1:_ （正确答案：=）填空项 1:_ （正确答案：vbRed）解析：首先过程中定义了一个模块级整型变量 Mark，每次都保留上次运行后的 值。由程序可以看出：本题约定 Mark 等于 0 表示背景色为红色；Mark 等于 1 表示背景色为 绿色；Mark 等于 2 表示背景色为蓝色，每次单击运行后要将 Mark 变为下次运行时的值，以 便符合题目要求。所以第一个空应为Form1BackCol
46、or= vbRed，第二个空为 Mark=1；当背景色变 为蓝色后再单击背景色要变为红色，所以应将 Mark 变为 0，所以第三个空为 Mark=0。49.在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以 6 余 2，脓以 5 余 3，则输出否则，特焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click1 num=Val(Text1Text) If 2Then Print num Else Text1Text=“ “ 3 End If End Sub （分数：2.00）填空项 1:_ （正确答案：num Mod6=2 And num Mod 5=3）解析：程序调用了 Val-|_|-函数从文本框中的得到数据。本题中先通过 Val-|_|-函数得到一个整数，进行条件判断，如果满足条件 num Mod 6=2 And num Mod 5=3 则输出 num；否则，将清空文本框，焦点落在文本框中，应使用语句 TextSetFocus。 50.在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1，然后编 写如下
