1、二级 VISUAL+BASIC 笔试 42 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下面不属于软件设计原则的是（分数：2.00）A.抽象B.模块化C.自底向上D.信息隐蔽2.设在窗体上有个文本框，然后编写如下的事件过程。 Private Sub Text1_KeyDown(KeyCode As Integef，Shift As Integer) Const Alt=4 ConstKey_F2= Next End Sub 运行上面的程序，单击命令按钮，输出结果为（分数：2.00）A.8 16B.9 18C.10 20D.7 14
2、18.单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem n Do While m n : m-m - n: Loop Do While m n : n=n - m: Loop Loop Fun =m End Function（分数：2.00）A.0B.1C.3D.519.编写如下两个事件过程。 Private Sub Form_KeyDown(KeyCode
3、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.A AB.a AC.A aD.a a20.在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print “Sub: “;p；m；n End S
4、ub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test(a，b1+3，(c1) Print “Main：“；a1；b1；c1 End Sub 程序运行后，输出结果为（分数：2.00）A.Sub： 2 6 4 Main： 2 6 4B.Sub： 2 6 4 Main： 2 6 4C.Sub： 2 6 4 Main： 1 2 3D.Sub： 2 6 4 Main： 2 2 321.下列选项中，不属于模块间耦合的是（分数：2.00）A.数据耦合B.同构耦合C.异构耦合D.公用耦合22.在窗体上添加一个命令按钮，名为 Command1，一文本框，
5、名为 text1，则执行如下事件过程后，文本框中的输出为 For i=1 To 3 For j=1 To 3 For k=1 To 2 x=x+3 Next k，j，i Text1.Text=str(x)（分数：2.00）A.21B.42C.54D.7223.以下哪个关键字声明的局部变量在整个程序运行中其值一直保留（分数：2.00）A.StaficB.PrivateC.DimD.Pubic24.以下事件过程可以将打开对话框的标题改为“新时代”的是（分数：2.00）A.Private Sub Command2_CliCk() CommonDialog1.DialogTitle=“新时代” Com
6、monDialog1.ShowOven End SubB.Private Sub Command2.Click() CommonDialog1.DialiogTitle=“新时代” CommonDialog1.ShowFont End SubC.Private Sub Command2_Click() CommonDialog1.DialogTitle=“新时代” CommonDialog1.Show End SubD.Private Sub Command2_Click() CommonDialog1.DialogTitle=“新时代” CommonDialog1.ShowColor End
7、 Sub25.有如下函数过程。 Function Fun( By Val x As Integer,By Val y As Integer) As Integer Do While y 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub CommandT_Click( ) Dim a As Integer,b As Integer a = 100:b =25 x =Fun(a,B) Print x End Sub（分数：2.00）A.0B.25C.50
8、D.10026.如果准备读文件，打开顺序文件“text.dat”的正确语句是（分数：2.00）A.Open “texdar“For Write As #1B.Open “texdat“For Binary As #1C.Open “texdat“For Input As #1D.Open “texdat“For Random As #127.在文本框中，当用户键入一个字符，能同时引发的事件是（分数：2.00）A.KeyPress 和 ClickB.KeyPress 和 LostFocusC.KeyPress 和 ChangeD.Change 和 LostFocous28.下面程序段执行结果为
9、x=Int(Rnd()+4) Select Case x Case 5 Print“excellent“ Case 4 Print“good“ Case 3 Print “pass“ Case Else Print “fail“ End Select（分数：2.00）A.excellentB.goodC.passD.fall29.下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”T
10、hen Print a(i)； Next End Sub（分数：2.00）A.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计30.串的长度是（分数：2.00）A.串中不同字符的个数B.串中不同字母的个数C.串中所含字符的个数且字符个数大于零D.串中所含字符的个数31.在窗体上添加一命令按钮，其名为 Command1，然后编写代码如下。 private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)As Integer n=3 For i=1 To 5 an(i)=i arrl(n)=2*n+i Next Prin
11、t arr1(n)；arr(n) End Sub 程序的运行结果为（分数：2.00）A.3 11B.11 3C.13 3D.3 1332.下列语句的输出结果为 Print Format$(5689.36，“000，000. 000“)（分数：2.00）A.5，689.36B.5，689.360C.5，689.3D.005，689.36033.在计算机中，算法是指（分数：2.00）A.加工方法B.解题方案的准确而完整的描述C.排序方法D.查询方法34.Sub 过程与 Function 过程最根本的区别是（分数：2.00）A.Sub 过程的过程不能返回值，而 Function 过程能返回值B.Fu
12、nction 过程可以有形参，Sub 过程不可以C.Sub 过程可以使用 Call 语句直接使用过程名调用，而 Function 过程不可以D.两种过程参数的传递方式不同35.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做（分数：2.00）A.软件投机B.软件危机C.软件工程D.软件产生二、B填空题/B(总题数：15，分数：30.00)36.长度为 n 的顺序存储线性表中，当在任何位置上插入一个元素概率都相等时，插入一个元素所需移动元素的平均个数为U 【1】 /U。（分数：2.00）填空项 1:_37.用树型结构表示实体类型及实体间联系的数据模型称为U 【2】 /U。（分数：
13、2.00）填空项 1:_38.类是一个支持集成的抽象数据类型，而对象是类的U 【3】 /U。（分数：2.00）填空项 1:_39.数据流图的类型有U 【4】 /U和事务型。（分数：2.00）填空项 1:_40.当数据的物理结构(存储结构)改变时，不影响数据库的逻辑结构，从而不致引起应用程序的变化，这是指数据的U 【5】 /U。（分数：2.00）填空项 1:_41.表达式 2*42-2*6/3+3/2 的值是U 【6】 /U。（分数：2.00）填空项 1:_42.下列语句的输出结果是U 【7】 /U。 Print Format$(1258.6，“000，000.00“)（分数：2.00）填空项
14、1:_43.在一个窗体上有一个命令按钮，CmdMax。单击 CmdMax 时，窗体上显示“字体由小变大”，字号每次增加 2。请填空。 Private Sub Form_Load() Form1.Caption=“字体变化示范” CmdMax.Caption=“字体变大” End Sub Private Sub CmdMax_Click() U【8】 /U Form1.Print“字体由小变大” End Sub（分数：2.00）填空项 1:_44.下面运行程序后，单击命令按钮，输出的结果是U 【9】 /U。 Private Sub Command1_Click() Dim a%(1 To 4)，
15、b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next For i=3 To 6 b(i)=i Next s1.= Fun(a) s2 =Fun(b) Print “s1 =“; s1; “s2 =“; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End Function（分数：2.00）填空项 1:_45.有一过程如下： Sub Subl (m As Integer,total A
16、s Long) Dim i AS Integer total = 1 For i = 1 To m total = total * i Next End Sub 调用它的事件过程如下： Private Sub Commandl_Click( ) Dim tot As Long, a As Integer a = Val( InputBox (“请输入数据“) Call Subl (a,tot) Print tot End Sub 则输入数据 5，运行结果为U 【10】 /U。（分数：2.00）填空项 1:_46.下面程序用来计算： （分数：2.00）填空项 1:_47.在窗体上有一个名称为 L
17、aell 的标签和一个名称 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label 中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_48.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30)As Integer For i=1 To 30 a(i)=i Next For Each arrItemU 【13】 /Ua If arrItem Mod 7=0 Then Print arrItem： If ar
18、rItem90 Then Exit For Next End Sub 请填空。（分数：2.00）填空项 1:_49.语句 PopupMenu PMENU，4 Or 2，PMENU3K 中： 其中 PMeNU 表示U 【14】 /U（分数：2.00）填空项 1:_50.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Inteeer Sinx As Single Cosx As Single End Tyre Dim Ksc A
19、s Ane Private Sub Form Click() Dim Y As Single Open“c:/Data1.txt”For Random As #2 Len=10 Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc=Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) U 【15】 /U Next Close #2 End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 42 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下面不属于软件设计原则的是（分数：
20、2.00）A.抽象B.模块化C.自底向上 D.信息隐蔽解析：解析 软件设计遵循软件工程的基本目标和原则，建立了适用于在软件设计中应该遵循的基本原理和与软件设计有关的概念，它们是抽象、模块化、信息隐蔽和数据独立性。自底向上是集成测试中增量测试的一种。2.设在窗体上有个文本框，然后编写如下的事件过程。 Private Sub Text1_KeyDown(KeyCode As Integef，Shift As Integer) Const Alt=4 ConstKey_F2= Next End Sub 运行上面的程序，单击命令按钮，输出结果为（分数：2.00）A.8 16 B.9 18C.10 20
21、D.7 14解析：解析 本题的难点是子函数调用过程和 Static 变量。子函数有 Static 变量 c，在第 1 次子函数调用时其值为 2，局部变量 b 为 2，但在第 2 次子函数调用时 c=2+2=4，b=0+2=2。表达式 a*b*c 的结果通过子函数名 F 返回。18.单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem n Do While m n
22、: m-m - n: Loop Do While m n : n=n - m: Loop Loop Fun =m End Function（分数：2.00）A.0B.1 C.3D.5解析：解析 此题程序代码中，被调过程采用了 Do WhileLoop 的嵌套语句结构，主调过程只调用了一次被调过程，Print Fun(23，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程 Fun 时，把数值 23，18 分别传给形参 m 和 n，从被调过程中的循环语句来看，因为此时 m 的值大于 n 的值，所以执行语句 m=m-n，m 值变为 5，然后循环调用，直到 m=n，而由语句
23、Fun=m 可看出，此过程的返回值就是 m 的值，即为 1。19.编写如下两个事件过程。 Private 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.A AB.a AC.A a D.a a解析：解析 KeyCod
24、e 是按键的实际的字符 (不区分大小写)KeyAscii 是以字符为准，是所按键的 ASSII码。20.在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print “Sub: “;p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test(a，b1+3，(c1) Print “Main：“；a1；b1；c1 End Sub 程序运行后，输出结果为（分数：2.00）A.Sub： 2 6 4 Main： 2 6 4B.Sub： 2 6 4 Main
25、： 2 6 4C.Sub： 2 6 4 Main： 1 2 3D.Sub： 2 6 4 Main： 2 2 3 解析：解析 这是在实现子过程被调用时参数虚实结合的问题。a1 为变量按址传送，b1+3 和(c1)为表达式按值传送。21.下列选项中，不属于模块间耦合的是（分数：2.00）A.数据耦合B.同构耦合C.异构耦合 D.公用耦合解析：解析 模块之间的耦合程度反映了模块的独立性，也反映了系统分解后的复杂程度。按照耦合程度从弱到强，可以将其分成 5 级，分别是：数据耦合、同构耦合、控制耦合、公用耦合和内容耦合。选项 C) ，没有这种耦合方式。22.在窗体上添加一个命令按钮，名为 Command
26、1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为 For i=1 To 3 For j=1 To 3 For k=1 To 2 x=x+3 Next k，j，i Text1.Text=str(x)（分数：2.00）A.21B.42C.54 D.72解析：解析 For 循环控制结构每次执行循环语句，X 都加了则：(32)33=633=183=54。23.以下哪个关键字声明的局部变量在整个程序运行中其值一直保留（分数：2.00）A.Stafic B.PrivateC.DimD.Pubic解析：解析 Static 变量在整个程序运行中其值一直保留。24.以下事件过程可以将打开对
27、话框的标题改为“新时代”的是（分数：2.00）A.Private Sub Command2_CliCk() CommonDialog1.DialogTitle=“新时代” CommonDialog1.ShowOven End Sub B.Private Sub Command2.Click() CommonDialog1.DialiogTitle=“新时代” CommonDialog1.ShowFont End SubC.Private Sub Command2_Click() CommonDialog1.DialogTitle=“新时代” CommonDialog1.Show End Sub
28、D.Private Sub Command2_Click() CommonDialog1.DialogTitle=“新时代” CommonDialog1.ShowColor End Sub解析：解析 无需多看，一看就可以看出选项 A) 是正确的；下面来分析一下。首先，设置标题属性用 DialosTitle 属性，四个选项都一样，所以这个不是区别；再看方法，选项 A) 用的是 ShowOpen 方法，即打开对话框，所以是正确的；选项 B) 用的是 ShowFont 方法，是字体设置对话框，不符合本题的意思，不正确；选项 C) 用的是 Show 方法，但是对话框没有此方法，所以也不正确；最后选项
29、D) 是用的ShowColor 方法，是颜色选择对。话框，所以也不符合本题的意思。25.有如下函数过程。 Function Fun( By Val x As Integer,By Val y As Integer) As Integer Do While y 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub CommandT_Click( ) Dim a As Integer,b As Integer a = 100:b =25 x =Fun(a,B
30、) Print x End Sub（分数：2.00）A.0B.25 C.50D.100解析：解析 函数的参数传递分为按值传递和按地址传递。按值传递是指，实参直接将值传递给形参，形参不改变实参的值；按地址传递是指，实参将变量的地址传递给形参。在调用函数时要注意参数的传递方式，不同的传递方式，语句执行结果不同。26.如果准备读文件，打开顺序文件“text.dat”的正确语句是（分数：2.00）A.Open “texdar“For Write As #1B.Open “texdat“For Binary As #1C.Open “texdat“For Input As #1 D.Open “texd
31、at“For Random As #1解析：解析 顺序文件的读操作由 Input 语句来实现。27.在文本框中，当用户键入一个字符，能同时引发的事件是（分数：2.00）A.KeyPress 和 ClickB.KeyPress 和 LostFocusC.KeyPress 和 Change D.Change 和 LostFocous解析：解析 键人字符会触发 KeyPress 在文本框中输入新信息将触发 Change 事件。28.下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print“excellent“ Case 4 Print“good“ Ca
32、se 3 Print “pass“ Case Else Print “fail“ End Select（分数：2.00）A.excellentB.good C.passD.fall解析：解析 在 Visual Basic 中，组成变量名的英文字母不区分大小写，例 Single 和 Single 是一样的，在定义了一个变量之后，只要字符相同，则不管它大小写是否相同，指的都是同一个变量。29.下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UB
33、ound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub（分数：2.00）A.天天向上B.天天向上天上人间 C.出错信息D.天天向上清华大学天上人间程序设计解析：解析 通过 LBound 和 UBound 函数来返回一个数组中指定维的上界和下界，该程序的作用是找出并返回第一个字是天字的成语，选 B。30.串的长度是（分数：2.00）A.串中不同字符的个数B.串中不同字母的个数C.串中所含字符的个数且字符个数大于零D.串中所含字符的个数 解析：解析 串的长度指的是串中的字符的个数，且其字符个数可以为零。31.在窗体上添加一命令按钮，其名
34、为 Command1，然后编写代码如下。 private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)As Integer n=3 For i=1 To 5 an(i)=i arrl(n)=2*n+i Next Print arr1(n)；arr(n) End Sub 程序的运行结果为（分数：2.00）A.3 11B.11 3 C.13 3D.3 13解析：解析 在给数组赋值时，如果每次都是赋给数组中同一一个成员，那么后面赋值将覆盖掉以前的值。32.下列语句的输出结果为 Print Format$(5689.36，“000，000. 000
35、“)（分数：2.00）A.5，689.36B.5，689.360C.5，689.3D.005，689.360 解析：解析 用 Format$()函数可以将数值按“格式字符串”指定的格式输出，包括在输出字符串前面加$，字符串后面补。及干位分隔符等。“格式字符串”是一个常量或变量，它由专门的格式说明符组成，由这些字符决定数据项的显示格式，并指定显示区域的长度，当格式字符串为常量时，必须放在双引号中。33.在计算机中，算法是指（分数：2.00）A.加工方法B.解题方案的准确而完整的描述 C.排序方法D.查询方法解析：解析 计算机算法是指解题方案的准确而完整的描述，它有以下几个基本特征：可行性、确定性
36、、有穷性和拥有足够的情报。34.Sub 过程与 Function 过程最根本的区别是（分数：2.00）A.Sub 过程的过程不能返回值，而 Function 过程能返回值 B.Function 过程可以有形参，Sub 过程不可以C.Sub 过程可以使用 Call 语句直接使用过程名调用，而 Function 过程不可以D.两种过程参数的传递方式不同解析：解析 在 Visual Basic 中有两类过程，一类是系统提供的内部函数和事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用。在第二类过程中，涉及最多的是子过程。它们的共同点都是完成某种特定功能的一组程序代码；不同的是函数是可以
37、直接返回值的特殊过程，所以函数过程定义时有返回值的类型说明。 两者最大的区别就是 Sub 过程的过程不能直接返回值，而 Function 过程能直接返回值。35.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做（分数：2.00）A.软件投机B.软件危机 C.软件工程D.软件产生解析：解析 软件工程概念的出现源自软件危机。所谓软件危机是泛指在计算机软件的开发和维护过程中所遇到的一系列严重问题。总之，可以将软件危机归结为成本、质量、生产率等问题。二、B填空题/B(总题数：15，分数：30.00)36.长度为 n 的顺序存储线性表中，当在任何位置上插入一个元素概率都相等时，插入一个元
38、素所需移动元素的平均个数为U 【1】 /U。（分数：2.00）填空项 1:_ （正确答案：n/2）解析：解析 在线性表的任何位置插入一个元素的概率相等，即概率为 p=1/(n+1)，则插入一个元素时所需移动元素的平均次数为37.用树型结构表示实体类型及实体间联系的数据模型称为U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案：层次模型）解析：解析 用树型结构表示实体类型及实体间联系的数据模型称为层次模型，用有向图结构表示实体类型及实体间联系的数据模型称为网状模型，用二维表格结构表示实体及其联系的数据模型称为关系模型。38.类是一个支持集成的抽象数据类型，而对象是类的U 【3】 /U
39、。（分数：2.00）填空项 1:_ （正确答案：实例）解析：解析 将属性、操作相似的对象归为类，也就是说，类是具有共同属性、共同方法的对象的集合。所以，类是对象的抽象，对象则是其对应类的一个实例。39.数据流图的类型有U 【4】 /U和事务型。（分数：2.00）填空项 1:_ （正确答案：变换型）解析：解析 典型的数据流类型有两种：变换型和事务型。变换型是指信息沿输入通路进入系统，同时由外部形式变换成内部形式，进入系统的信息通过变换中心，经加工处理以后再沿输出通路变换成外部形式离开软件系统；在很多软件应用中，存在某种作业数据流，它可以引发一个或多个处理，这些处理能够完成该作业要求的功能，这种数
40、据流就叫做事务。40.当数据的物理结构(存储结构)改变时，不影响数据库的逻辑结构，从而不致引起应用程序的变化，这是指数据的U 【5】 /U。（分数：2.00）填空项 1:_ （正确答案：物理独立性）解析：解析 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。也就是说，数据的逻辑结构、存储结构与存取方式的改变不会影响应用程序。数据独立性一般分为物理独立性与逻辑独立性两级。41.表达式 2*42-2*6/3+3/2 的值是U 【6】 /U。（分数：2.00）填空项 1:_ （正确答案：29）解析：解析 算术运算符的运算次序为：-(负号)*和/(整除)Mod+和
41、 s1; “s2 =“; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End Function（分数：2.00）填空项 1:_ （正确答案：s1=24 s2=360）解析：解析 程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=i；b(i)=i，且数组 a 的上下界分别为 1 和 4，数组 b 的上下界分别为 3 和 6；接着将数组 a 作为参数调用 Fun 过程，在 Fun 过程中，定义了两个变量 t 及 i，
42、i 作为循环语句 For 的变量，它的初始值和终值分别为数组的上下界，循环体为t=t*a(i)，即将 a(i)的值乘以 t，然后再赋给 t，当循环结束后，程序返回的就是数组 a 中的各元素的积；同理程序将数组 b 作为参数传递给 Fun 过程后返回数组 b 中各元素的积，运行程序结束后，输出结果为：s1=24 s2=360。45.有一过程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To m total = total * i Next End Sub 调用它的事件过程如下： Pri
43、vate Sub Commandl_Click( ) Dim tot As Long, a As Integer a = Val( InputBox (“请输入数据“) Call Subl (a,tot) Print tot End Sub 则输入数据 5，运行结果为U 【10】 /U。（分数：2.00）填空项 1:_ （正确答案：120）解析：解析 本题的难点是实参与形参的传递的问题。 total 按 ByRef 参数传递。子过程的功能是计算n!，题中输入 5，因此 51=120。46.下面程序用来计算： （分数：2.00）填空项 1:_ （正确答案：Is，5 5(或 Is=5) Is5）解
44、析：解析 在情况条件语句中，根据条件的取值，分成不同的情况来编写程序。题中式子有 3 种情况，程序代码中已写出后两种。据此我们可以将程序补充完整。47.在窗体上有一个名称为 Laell 的标签和一个名称 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label 中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_ （正确答案：List1.Text）解析：解析 双击事件为 DblClick；ListBox 的 Text 属性返回当前列表项的文本。48.设有命令按钮 Command1 的单击事件
45、过程，代码如下： Private Sub Command1_Click() Dim a(30)As Integer For i=1 To 30 a(i)=i Next For Each arrItemU 【13】 /Ua If arrItem Mod 7=0 Then Print arrItem： If arrItem90 Then Exit For Next End Sub 请填空。（分数：2.00）填空项 1:_ （正确答案：In）解析：解析 本题考查了 For EachNext 语句，与 For Next 类似。但 For EachNext 专门用于数组或对象“集合”其一般格式为： Fo
46、r Each 成员 In 数组 循环体 Exit For Next成员49.语句 PopupMenu PMENU，4 Or 2，PMENU3K 中： 其中 PMeNU 表示U 【14】 /U（分数：2.00）填空项 1:_ （正确答案：快捷菜单的顶级菜单名称）解析：解析 PopupMenu 的其格式为：对象 PopupMenu 菜单名，Flags，X，Y，BoldCommand50.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K
47、As Inteeer Sinx As Single Cosx As Single End Tyre Dim Ksc As Ane Private Sub Form Click() Dim Y As Single Open“c:/Data1.txt”For Random As #2 Len=10 Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc=Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) U 【15】 /U Next Close #2 End Sub（分数：2.00）填空项 1:_ （正确答案：Put #2，i，Ksc）解析：解析 根据题意可知在空白行处应填写入数据的随机文件语句，因此，空白行处应填写 Put 语句。
