【计算机类职业资格】计算机二级(VB)43及答案解析.doc

《【计算机类职业资格】计算机二级(VB)43及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】计算机二级(VB)43及答案解析.doc（17页珍藏版）》请在麦多课文档分享上搜索。

1、计算机二级(VB)43 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.下列选项中不属于软件生命周期开发阶段任务的是【 】（分数：2.00）A.软件测试B.概要设计C.软件维护D.详细设计2.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是( )。

2、（分数：2.00）A.基类的保护成员在派生类中仍然是保护的成员B.基类的保护成员在公有派生类中仍然是保护的C.基类的保护成员在私有派生类中仍然是私有的D.对基类成员的访问必须是无二义性3.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：2.00）A.4.58B.5.69C.24D.224.单击一次命令结束后，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Integer) Static Sum For

3、i=1 To N Sum=Sum+i Next i Sat=Sum End Function （分数：2.00）A.15B.25C.35D.455.单击命令按钮时，下列的执行结果为( )。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=86：y=29 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：2.00）A.12 32B.6 29C.

4、2 3D.12 36.以下关于图片框控件的说法中，错误的是（ ）。 （分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小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

5、 Command1_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.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令9.下列说法错误的是（ ）。（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块

6、只用来定义一些通用的过程D.标准模块不附属于任何一个窗体10.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到什么事件?（分数：2.00）A.TrueB.0C.1D.False11.运行下面的程序后，输出的结果为( )。 Cls Dim t(5，5) as Integer For i=1 To 5：t(i，i)=1：Next For i=1 To 5 For j=1 To 5 Print t(i，j)， Next j Print Next I （分数：2.00）A.0B.9C.7D.512.使用语句 Dim A(2) As Integer 声明数组 A

7、 之后，以下说法正确的是（ ）。（分数：2.00）A.A 数组中的所有元素都为 0B.A 数组中的所有元素值不确定C.A 数组中所有元素值都为 EmptyD.执行 Erase A 后，A 数组中所有元素值都不为 013.下面叙述不正确的是（ ）。（分数：2.00）A.对顺序文件中的数据操作只能按一定的顺序操作B.顺序文件结构简单C.顺序文件的数据以字符(ASCII 码)形式存储D.能同时对顺序文件进行读写操作14.下列表达式中不能判断 x 是否为偶数的是【 】（分数：2.00）A.x2= Int (x2)B.x Mod 2=0C.Fix(x2)=x2D.x2=015.下列程序段的执行结果为（

8、）。 X=2 Y=5 If X * Y 1 Then Y=Y - 1 Else Y=-1 Print Y-X0 （分数：2.00）A.URLB.JDBCC.SOCKETD.RMI16.下列说法错误的是（ ）。（分数：2.00）A.资源文件的扩展名为resB.一个窗体对应一个窗体文件C.Visual Basic 中的一个工程只包含一个窗体D.Visual Basic 中一个工程最多可以包含 255 个窗体17.下列说法错误的是（ ）。（分数：2.00）A.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialo

9、g1ShowOpen End SubB.Private Sub Command2 Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowFont End SubC.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1Show End Sub End SubD.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowColor End Sub18.单

10、击命令按钮，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub （分数：2.00）A.32 42B.2 32C.2 3D.12 319.下面有关注释语句的格式，错误的是（ ）。（分数：2.00）A.Rem 注释内容B.注释内容C.a=3：b=

11、2，对 a、b 赋值D.Private Sub Command1_MouseDown(button As Integer，shift As Integer，_Rem 鼠标按下事件的命令调用过程 X As Single，Y As Single)20.下列叙述中正确的是【 】（分数：2.00）A.一个算法的空间复杂度大,则其时间复杂度也必定大B.一个算法的空间复杂度大,则其时间复杂度必定小C.一个算法的时间复杂度大,则其空间复杂度必定小D.上述三种说法都不对21.在设计阶段，当双击窗体上的某个控件时，打开的窗口是（ ）。（分数：2.00）A.PaintB.GraphicC.GraphicsD.Pa

12、ints22.用来设置文本框有无滚动条的属性是（ ）。（分数：2.00）A.ScrollBarsB.MultiLineC.SelTextD.SelLength23.在以下描述中正确的是（ ）。 （分数：2.00）A.标准模块中的任何过程都可以在整个工程范围内被调用B.在一个窗体模块中可以调用在其他窗体中被定义为 Public 的通用过程C.如果工程中包含 Sub Main 过程，则程序将首先执行该过程D.如果工程中不包含 Sub Main 过程，则程序一定首先执行第一个建立的窗体24.下列程序段的执行结果为（ ）。 I=9 X=5 Do I=I+1 x=x+2 Loop Until I =7

13、Print“I=“；I Print“x=“；x （分数：2.00）A.列表框B.组合框C.标签D.框架25.执行下列程序后，鼠标单击窗体，输出结果为（ ）。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer，Shift_ As Integer，X As

14、 Single，Y As Single) Print“Up” End Sub （分数：2.00）A.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownClick26.单击窗体时，下列程序的执行结果是( )。 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop yStr=tempS

15、tr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1=“abcdef“ Invert S1，S2 Print S2 End Sub （分数：2.00）A.blooean isAlive( )B.Thread currentThread( )C.String getName( )D.smtic boolean interrupted( )27.窗体上有名称为 Text1、Text2 的 2 个文本框，有一个由 3 个单选按钮构成的控件数组 Option1，如图1 所示。程序运行后，如果单击某个单选按钮，则执行

16、Text1 中的数值与 该单选按钮所对应的运算（乘以 1、10 或 100），并将结果显示在 Text2 中，如图 2 所示， 为了实现上述功能，在程序中的问号（？）处应填入的内容是_。 （分数：2.00）A.IndexB.Option1.IndexC.Option1(Index)D.Option1(Index).Value28.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（ ）。 （分数：2.00）A.把 Caption 属性设置为 Next I （分数：2.00）A.2

17、36B.235C.234D.22833.在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口 中把计时器的Interval 属性设置为 1000，Enabled 属性设置为 False。程序运行后，如果单 击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程 序： Private Sub Command1_Click() Timer1._ End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 在下划线处应填入的内容是_。（分数：2.00）A.Enabled = Tr

18、ueB.Enabled = FalseC.Visible = TrueD.Visible = False34.以下事件过程可以将打开的对话框的标题改为“新时代”的是（ ）。（分数：2.00）A.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowOpen End SubB.Private Sub Command2 Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowFont End SubC.Private Sub Command2_

19、Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1Show End Sub End SubD.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowColor End Sub35.有如下事件过程，单击命令按钮扣，输出结果是( )。 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print “t=“; t

20、, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function （分数：2.00）A.私有成员B.保护成员C.公有成员D.所有成员二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 相应的菜单。以下是实现上述功能的程序，请填空。 Private

21、 Sub Form 1(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then 2mnuEdit End If End Sub （分数：2.00）填空项 1:_37.在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num/10 Loop Trans=k Print Trans End Function Pr

22、ivate Sub Commandl_Click1 Dim m As Long Dim s As Long m=InputBox(“请输入一个数“) s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 2，在输入对话框中输入“987”输出 3，在输入对话框中输入“879”，输出结果为 4。 （分数：2.00）填空项 1:_38.函数 Str$(25636)的值是 1。（分数：2.00）填空项 1:_39.随机文件使用 Put 语句写数据，使用 1 语句读数据。（分数：2.00）填空项 1:_40.执行语句 Open “TCdat“ For

23、Random As #1 Len=50 后，对文件 TCdat 中的数据能执行的操作是 1。 （分数：2.00）填空项 1:_41.下面程序的功能是统计字符串中“广的个数，请填空。 Sub COU( ) a$=“Beijing University of Technology“ Dim n AS Integer n=Len(a$) For i=1 To n b$= 1 If 2 Then x=x+1 Next i Print “x=“；x End Sub （分数：2.00）填空项 1:_42.在窗体上画一个命令按钮和一个文本框,其名称分别为 Command1 和 Text1,然后编写如下事件过

24、程： Private Sub Commandl_Click1 Dim inData As String Textl.Text=“ Open“d：myfile.txt“For 2As#1 Do While 3 Input#,inData Loop Text1.Text=Text1.Text+inD Loop Close#1 End Sub 程序的功能是,打开 D 盘根目录下的文本文件 myfile.txt,读取它的全部内容并显示在文本框中。请填空。 （分数：2.00）填空项 1:_填空项 1:_填空项 1:_43.对随机文件数据存取是以 1 为单位进行操作的。（分数：2.00）填空项 1:_44

25、.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click1 n = 5 f = 1 s = 0 For i = 1 To n f = f 2 s = s + f Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：2.00）填空项 1:_45.以下程序段的输出结果是 1。 num=0 While num=2 num=num+1 Wend Print num （分数：2.00）填空项 1:_46.设有以下函数过程： Function fun(m A

26、s Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function 若在程序中用语句s=fun(10)调用此函数，则 s 的值为 1。 （分数：2.00）填空项 1:_47.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click1 x=0 Do Until x=-1 a=lnputBox(“请输入第一个数字 a 的值“) a=Val(a) b=InputBox

27、(“请输入第二个数字 b 的值“) b=Val(b) x=InputBox(“请输入第三个数字 x 的值“) x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入 5，4，8，5，8，-1，输出结果为 2。 （分数：2.00）填空项 1:_48.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 1。（分数：2.00）填空项 1:_49.我国古代数学家张丘建在其著名的算经中提出了百鸡问题：每只公鸡 5 元，每只母鸡 3 元，三只雏鸡 1 元；如何用 100 元买 100 只鸡，即公鸡、母鸡、雏鸡各多少只。请在空

28、白处填入适当的内容，将程序补充完整。 Private Sub Commandl_Click1 Dim Cock As Integer Dim Hen As Integer Dim Chick As Integer FormlPrint“公鸡数”，“母鸡数”，“雏鸡数” For Cock；0 To 20 For Hen=0 To 33 For Chick=0 To 100 If 2Then Form1Print Cock，Hen，Chick End If Next Chick Next Hen Next Cock End Sub （分数：2.00）填空项 1:_50.下列程序的输出结果为 1。

29、num=2 While num=4= =b=4 和 b27.窗体上有名称为 Text1、Text2 的 2 个文本框，有一个由 3 个单选按钮构成的控件数组 Option1，如图1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中的数值与 该单选按钮所对应的运算（乘以 1、10 或 100），并将结果显示在 Text2 中，如图 2 所示， 为了实现上述功能，在程序中的问号（？）处应填入的内容是_。 （分数：2.00）A.Index B.Option1.IndexC.Option1(Index)D.Option1(Index).Value解析：对于一个控件数组，其事件中的 ind

30、ex 参数表示触发事件的控件数组元素的下标。本题中，要根据 不同的控件数组元素，作出不同的计算，只要判断该事件是由控件数组中的哪个元素触发的，即判断 Index 参数。28.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（ ）。 （分数：2.00）A.把 Caption 属性设置为 Next I （分数：2.00）A.236B.235 C.234D.228解析：本题考查的是 For 循环结构语句，现在看程序段是如何运行的： 开始 a=1，b=1。For 循环中步长缺省值为 l

31、，循环变量 1 的初值为 1，终值为 3，所以此循环结构可以循环 3 次。 第一次循环后，结果为：f=2，a=1，b=2 第二次循环后，结果为：f=3，a=2，b=3 第三次循环后，结果为：f=5，a=3，b=5 每循环一次，输出 f 当前值，循环 3 次即输出 3 个 f 值分别为 2，3，5。所以正确答案是选项 B)。 33.在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口 中把计时器的Interval 属性设置为 1000，Enabled 属性设置为 False。程序运行后，如果单 击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现

32、上述操作的程 序： Private Sub Command1_Click() Timer1._ End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 在下划线处应填入的内容是_。（分数：2.00）A.Enabled = True B.Enabled = FalseC.Visible = TrueD.Visible = False解析：Enabled 是用来设置控件是否可用，而 Visible 是用来设置控件是否可见。Timer 控件的 Enabled 属性 设置为 False，则 Timer 停止计数；设置为 True，则开始

33、计数，过程 Timer1_Timer()按计时器的 Interval 属 性值定时运行。34.以下事件过程可以将打开的对话框的标题改为“新时代”的是（ ）。（分数：2.00）A.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowOpen End Sub B.Private Sub Command2 Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowFont End SubC.Private Sub Command2_Click()

34、 CommonDialog1DialogTitle=“新时代“ CommonDialog1Show End Sub End SubD.Private Sub Command2_Click() CommonDialog1DialogTitle=“新时代“ CommonDialog1ShowColor End Sub解析：无需多看，一看就可以看出选项 A)是正确的；下面来分析一下。首先，设置标题属性用DialogTide 属性，四个选项都一样，所以这个不是区别；再看方法，选项 A)用的是 ShowOpen 方法，即打开对话框，所以是正确的；选项 B)用的是 ShowFont 方法，是字体设置对话框

35、，不符合本题的意思，不正确；选项 C)用的是 Show 方法，但是对话框没有此方法，所以也不正确；最后选项 D)是用的 ShowColor 方法，是颜色选择对话框，所以也不符合本题的意思。35.有如下事件过程，单击命令按钮扣，输出结果是( )。 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print “t=“; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBo

36、und (a) t=t * a(i) Next i Tax=t End Function （分数：2.00）A.私有成员B.保护成员C.公有成员D.所有成员 解析：本题考查的是内联函数的使用，它的引入是为了解决程序中函数 调用的效率问题，在编译时，编译器将程序中出现的内联函数的调用表达式用内联函数 的函数体来替换。二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 相应的菜单。以下是实现上述功能的程序，请填

37、空。 Private Sub Form 1(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then 2mnuEdit End If End Sub （分数：2.00）填空项 1:_ （正确答案：mousedown）解析：37.在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num/10 Loop Trans

38、=k Print Trans End Function Private Sub Commandl_Click1 Dim m As Long Dim s As Long m=InputBox(“请输入一个数“) s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 2，在输入对话框中输入“987”输出 3，在输入对话框中输入“879”，输出结果为 4。 （分数：2.00）填空项 1:_ （正确答案：504）解析：关键字 ByVal 用来实现传值，也就是说在定义通用过程时，如果形参前面有关键字 Byval，则该参数用传值方式传递，否则用传址方式传

39、递；在 Sub 过程中，先将输入的 “456”赋给变量 m，m 作为参数，调用 Trans 过程；在 Trans 过程中以 num 作为 Do While 的循环条件；在循环体中，调用 Mod 函数，将num 的个位数字与 k 相乘，然后赋给 k，第一次循环时，num 的值是 789，所以 k 的值为 9，执行 num = num/10 后，num 的值为 78，循环三次后，num 变为 0；退出循环，k 值等于 987=504，并将 k 的值作为返回值；当输入 “987”或“879”时执行相同的操作，结果都为 504。可以看出，此程序可用于求一个数值各位上数值的乘积。38.函数 Str$(2

40、5636)的值是 1。（分数：2.00）填空项 1:_ （正确答案：256.36）解析：Str$-|_|-函数的格式是：Str$(数值表达式)，作用是把“数值表达式”的值转换为一个字符串，表达式的值不受转换过程的影响。对于本题在立即窗口中可看到输出的结果。39.随机文件使用 Put 语句写数据，使用 1 语句读数据。（分数：2.00）填空项 1:_ （正确答案：Get）解析：随机访问模式中文件的写操作使用 Put 命令，Put 命令是将一个记录变量的内容写入所代开的磁盘文件中指定的记录位置上；随机访问模式中文件的读操作使用 Get 命令，Get 命令是从磁盘文件将一条记录号指定的记录内容读入记

41、录变量中。40.执行语句 Open “TCdat“ For Random As #1 Len=50 后，对文件 TCdat 中的数据能执行的操作是 1。 （分数：2.00）填空项 1:_ （正确答案：既可以读，也可以写）解析：此语句只是打开文件 TCdat，并没有指具体的操作，所以说既可以读，也可以写。41.下面程序的功能是统计字符串中“广的个数，请填空。 Sub COU( ) a$=“Beijing University of Technology“ Dim n AS Integer n=Len(a$) For i=1 To n b$= 1 If 2 Then x=x+1 Next i Pr

42、int “x=“；x End Sub （分数：2.00）填空项 1:_ （正确答案：Mid$(a$，i，1)）解析：本题的思路是用截取字符函数 Mid 来逐个查找字符中 a$中是否有“i“41 字符，x 记录“i”的总个数。如果满足条件语句 b$=“i“就执行 x=x+1，然后输出。42.在窗体上画一个命令按钮和一个文本框,其名称分别为 Command1 和 Text1,然后编写如下事件过程： Private Sub Commandl_Click1 Dim inData As String Textl.Text=“ Open“d：myfile.txt“For 2As#1 Do While 3

43、Input#,inData Loop Text1.Text=Text1.Text+inD Loop Close#1 End Sub 程序的功能是,打开 D 盘根目录下的文本文件 myfile.txt,读取它的全部内容并显示在文本框中。请填空。 （分数：2.00）填空项 1:_ （正确答案：Input）填空项 1:_ （正确答案：N0t）填空项 1:_ （正确答案：EOF(1)）解析：打开顺序文件的基本格式为：Open FileName For Mode As#FileNumber。其中,FileName 表示要打开的文件的路径；Mode 为打开模式；OutPut 用于输出、Append 用于追

44、加写入 Input 用于读取；FileNumber 为打开文件时指定的句柄(即文件号)。在读文件时,经常用 Do While 循环和 Input#语句读入数据,以 Not EOF(文件号)为循环条件,EOF(文件号)用于判断是否读到文件结尾。43.对随机文件数据存取是以 1 为单位进行操作的。（分数：2.00）填空项 1:_ （正确答案：一个记录）解析： 从存储的角度看，顺序文件一般用来存放同类型或文本类型数据为宜。随机文件一般用来存放一组相关自定义类型的数据。 每组自定义类型数据由不同类型的基本类型数据组成。这样一组自定义的类型数据构成了一个记录。一个记录用一个自定义变量名表示，称之为记录型

45、变量。当向随机文件写入(读取)数据时，每次只可写入(读取)一个记录型变量，即写入(读取)一个记录。 44.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click1 n = 5 f = 1 s = 0 For i = 1 To n f = f 2 s = s + f Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：2.00）填空项 1:_ （正确答案：/i）解析：45.以下程序段的输出结果是 1。 num=0 While num=2 num=n

46、um+1 Wend Print num （分数：2.00）填空项 1:_ （正确答案：3）解析：46.设有以下函数过程： Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function 若在程序中用语句s=fun(10)调用此函数，则 s 的值为 1。 （分数：2.00）填空项 1:_ （正确答案：30）解析：在 For 循环中，Step 是用于指定计数器的步长，本题中是-2，就是每执行一次循环后，k 的值减 2。 本题中从 10 开始执行循环，当 k=0 时，结束循环。此时 s=10+8+6+4+2=30。47.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click1 x=0 Do U