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

1、计算机二级(VB)42 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.数据库技术的根本目标是要解决数据的【 】（分数：2.00）A.存储问题B.共享问题C.安全问题D.保护问题2.在窗体上画一个命令按钮，然后编写如下程序： Private Sub Comrnand3_Click( ) Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static x As Integer x=x + a Print x; End Sub 程序运行后，单击命令按钮，输

2、出结果为( )。 （分数：2.00）A.内联函数B.重载函数C.递归函数D.嵌套函数3.有如下程序段，该程序段执行完后，执行循环的次数是( )。 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total10 Then Exit Do End If Loop While Counter =10 （分数：2.00）A.for(int a=1；a 0 If d c Then c = c + 1 End If d = InputBox(“请输入一个整数“) Loop P

3、rint c + d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9、0，则输出结果是_。 （分数：2.00）A.12B.11C.10D.934.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x 6 Then Call BT(x) End If X=x * 2 Print x； End Sub （分数：2.00）A.A%6B.n-3C.a=4= = blD.a=83

4、5.数据库 DB、数据库系统 DBS、数据库管理系统 DBMS 之间的关系是_。 （分数：2.00）A.DB 包含 DBS 和 DBMSB.DBMS 包含 DB 和 DBSC.DBS 包含 DB 和 DBMSD.没有任何关系二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.建立随机文件 Workersdat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 number As Integer End Type Open“e:/Workersdat“For Random As

5、#1 Len=Len(Workerl) Workerlname=“zn“：Worker1number=100# -|_|- Close #1 Open“Workersdat“For Random As #1 Len=Len(Worker1) -|_|- Print“Worker1：“，Worker1name Print “Worker1：“，Worker1number Close #1 （分数：2.00）_37.下列软件系统结构图的宽度为 -|_|- （分数：2.00）_38.在修改列表框内容时，RemoveItem 方法的作用是 -|_|-。（分数：2.00）_39.以下程序段的输出结果是

6、-|_|-。 num=0 While num=2 num=num+1 Wend Print num （分数：2.00）_40.执行语句 Open “TCdat“ For Random As #1 Len=50 后，对文件 TCdat 中的数据能执行的操作是 -|_|-。 （分数：2.00）_41.已知 B 的 ASCII 码为 66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim -|_|- For i=65 To 90 pp(i) =0 Next x$=InputBox(“Enter a string“，x$) x$=UCase$(x$) For i=1 To -|_|- n=

7、Asc(Mid$(x$，i，1) If n =65 And n =90 Then -|_|- End If Next i For i=65 To 90 If pp(i) 0 Then Print Chr$(i)；pp(i) End If Next （分数：2.00）_42.在窗体上画两个名称分别为 Command1 和 Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各元素赋值；如果单击“求和”命令按钮，则求出数组 a 的各元素之和，并对文本框中显示出来，如图所示。请填空。 （分数：2.00）_43.建立随机文件 Worker

8、sdat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 number As Integer End Type Open“e:/Workersdat“For Random As #1 Len=Len(Workerl) Workerlname=“zn“：Worker1number=100# -|_|- Close #1 Open“Workersdat“For Random As #1 Len=Len(Worker1) -|_|- Print“Worker1：“，Worker1name Print “Wor

9、ker1：“，Worker1number Close #1 （分数：2.00）_44.函数 Str$(25636)的值是 -|_|-。（分数：2.00）_45.下面程序运行后，单击命令按钮，输出的结果是 -|_|-。 Private Sub Commandl_Click( ) Dim a(1 To 4) ，b(2 To 6) ，i，strl#，str2# For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(a) str2 =YAG(b) Print“strl“；str1;“str2=“；str2 End Sub F

10、unction YAG (a()As Integer) Dim T#，i t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next i YAG =t End Function （分数：2.00）_46. -|_|-的任务是诊断和改正程序中的错误。（分数：2.00）_47.下列程序计算 Sn 的值。Sn=a+aa+aaa+aaaa，其中最后一项为 n 个。 例如：a=5，n=4 时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer，n

11、As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入 a 的值：“) -|_|- Do Tn=Tn * 10 + a Sn 二 Sn + Tn Cout=Cout+1 -|_|- DebugPrint a，n，Sn End Sub （分数：2.00）_48.表达式 32 Mod 36/ 25 的值是 -|_|-（分数：2.00）_49.下列程序是判断一个整数(=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox(“请输入一个整数(=3)“) k

12、=Int(Sqr(n) i=2 swit=0 While i 0 If d c Then c = c + 1 End If d = InputBox(“请输入一个整数“) Loop Print c + d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9、0，则输出结果是_。 （分数：2.00）A.12B.11C.10D.9 解析：Do While 语句是条件为 True 时，执行循环体。本题中当 dc 时，执行 c = c + 1，即在输入对话框中 输入 5、6、7、8、9 时执行该语句，也就是该语句被执行了 5 次，故 c=4+1*5

13、=9。而当在输入对话框中输入 0 时，循环结束，此时 d=0。所以最后输出结果为 9。34.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x 6 Then Call BT(x) End If X=x * 2 Print x； End Sub （分数：2.00）A.A%6B.n-3C.a=4= = blD.a=8 解析：本题考查 C+语言的关键字。要熟练掌握 C+语言中的关键字。注意：include 不是 C+语言的关键字。

14、35.数据库 DB、数据库系统 DBS、数据库管理系统 DBMS 之间的关系是_。 （分数：2.00）A.DB 包含 DBS 和 DBMSB.DBMS 包含 DB 和 DBSC.DBS 包含 DB 和 DBMS D.没有任何关系解析：数据库系统由如下几部分组成：数据库、数据库管理系统、数据库管理员、系统平台（硬件平台和 软件平台）。二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.建立随机文件 Workersdat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 numbe

15、r As Integer End Type Open“e:/Workersdat“For Random As #1 Len=Len(Workerl) Workerlname=“zn“：Worker1number=100# -|_|- Close #1 Open“Workersdat“For Random As #1 Len=Len(Worker1) -|_|- Print“Worker1：“，Worker1name Print “Worker1：“，Worker1number Close #1 （分数：2.00）_正确答案：(Put #1，1，Worker1)解析：Put 命令是向随机文件写入

16、数据，Get 命令是读取随机文件的数据。37.下列软件系统结构图的宽度为 -|_|- （分数：2.00）_正确答案：(3)解析：在程序结构图的有关术语中,宽度的概念是：整体控制跨度,即各层中所含的模块数的最大值,由图可得此软件系统结构图的宽度为 3。38.在修改列表框内容时，RemoveItem 方法的作用是 -|_|-。（分数：2.00）_正确答案：(用来删除列表中指定的项目)解析：列表框可以使用 AddItem、Clear 和 RemoveItem 等方法，用来在运行期间改变列表框的内容。AddItem 方法用来在列表框中插入一行文本，格式为：列表框AddItem 项目字符串，索引值；Cl

17、ear方法用来清除列表框中的全部内容，格式为：列表框Clear； RemoveItem 方法用来删除列表中指定的项目，格式为：列表框RemoveItem 索引值。39.以下程序段的输出结果是 -|_|-。 num=0 While num=2 num=num+1 Wend Print num （分数：2.00）_正确答案：(3)解析：40.执行语句 Open “TCdat“ For Random As #1 Len=50 后，对文件 TCdat 中的数据能执行的操作是 -|_|-。 （分数：2.00）_正确答案：(既可以读，也可以写)解析：此语句只是打开文件 TCdat，并没有指具体的操作，所以

18、说既可以读，也可以写。41.已知 B 的 ASCII 码为 66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim -|_|- For i=65 To 90 pp(i) =0 Next x$=InputBox(“Enter a string“，x$) x$=UCase$(x$) For i=1 To -|_|- n=Asc(Mid$(x$，i，1) If n =65 And n =90 Then -|_|- End If Next i For i=65 To 90 If pp(i) 0 Then Print Chr$(i)；pp(i) End If Next （分数：2.00）_正

19、确答案：(pp(65-|-To-|-90)解析：程序中，在第一个空处定义了一个数组，从程序中反映出数组的下标的范围是 65 90，在第二个空处有一个循环语句，决定了循环的次数，由于一次循环只处理一个字符，因此循环次数要与字符串的长度相等；而在第三个空处是统计相同字符出项的次数，因为相同字符的 ASCII 码也不同，因此利用字符的ASCII 码作为数组的下标，下标相同者统计到同一个下表变量中，这样就实现了统计功能。42.在窗体上画两个名称分别为 Command1 和 Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各元素赋值；如

20、果单击“求和”命令按钮，则求出数组 a 的各元素之和，并对文本框中显示出来，如图所示。请填空。 （分数：2.00）_正确答案：(a(i , j)解析：43.建立随机文件 Workersdat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 number As Integer End Type Open“e:/Workersdat“For Random As #1 Len=Len(Workerl) Workerlname=“zn“：Worker1number=100# -|_|- Close #1 Ope

21、n“Workersdat“For Random As #1 Len=Len(Worker1) -|_|- Print“Worker1：“，Worker1name Print “Worker1：“，Worker1number Close #1 （分数：2.00）_正确答案：(Put #1，1，Worker1)解析：Put 命令是向随机文件写入数据，Get 命令是读取随机文件的数据。44.函数 Str$(25636)的值是 -|_|-。（分数：2.00）_正确答案：(256.36)解析：Str$()函数的格式是：Str$(数值表达式)，作用是把“数值表达式”的值转换为一个字符串，表达式的值不受转换

22、过程的影响。对于本题在立即窗口中可看到输出的结果。45.下面程序运行后，单击命令按钮，输出的结果是 -|_|-。 Private Sub Commandl_Click( ) Dim a(1 To 4) ，b(2 To 6) ，i，strl#，str2# For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(a) str2 =YAG(b) Print“strl“；str1;“str2=“；str2 End Sub Function YAG (a()As Integer) Dim T#，i t=1 For i=LBoun

23、d(a) To UBound(a) t=t * a(i) Next i YAG =t End Function （分数：2.00）_正确答案：( strl=24 str2=720)解析：程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=I；b(i)=I，且数 组 a 的上下界分别为 1 和4，数组 b 的上下界分别为 2 和 6；接着将数组 a 作为参数调用 YAG 过程，在 YAG 过程中，定义了两个变量 t 及 I，I 作为循环语句 For 的变量，它的初始 值和终值分别为数组的上下界，循环体为 t=t * a(i)，即将 a(i)的值乘以 t，然后再赋 给 t，当循环结束后，程序

24、返回的就是数组 a 中的各元素的积；同理程序将数组 b 作为参 数传递给 YAG 过程后返回数组 b 中各元素的积，运行程序结束后，输出结果为：strX=24 str2=720。46. -|_|-的任务是诊断和改正程序中的错误。（分数：2.00）_正确答案：(程序调试)解析：在完成对程序的测试之后将进行程序调试。程序调试的任务是诊断和改正程序中的错误。47.下列程序计算 Sn 的值。Sn=a+aa+aaa+aaaa，其中最后一项为 n 个。 例如：a=5，n=4 时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Cli

25、ck() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入 a 的值：“) -|_|- Do Tn=Tn * 10 + a Sn 二 Sn + Tn Cout=Cout+1 -|_|- DebugPrint a，n，Sn End Sub （分数：2.00）_正确答案：(答案：n = InputBox(“请输入 n 的值！”)解析： a 和 n 的值必须已知，表达式才能计算。但程序中没有给变量 n 赋值的语句，可见第一个空白行应该填写给

26、n 赋值的语句。 Do 循环应该有与之对应的终端语句，可见于第二个空白行应填写 Do 循环的终端语句，即 While 语句，同时要构造出控制循环的。程序中有四个赋值语句，其中有 一个计数语句 Cout=Cout + 1，可见控制循环次数的变量应是 Cout。 48.表达式 32 Mod 36/ 25 的值是 -|_|-（分数：2.00）_正确答案：(0)解析：在做本题之前要先了解各种运算符的优先级，只有了解了之后才能做对。幂运算符()优先级最高，其次是取负、乘、浮点除、整除、取模、加减、字符串连接等。其中，乘和浮点除是同级别的运算符，加和减是同级运算符。此外，如果表达式中有 括号，则计算括号内

27、的表达式的值。通过运算本题的结果是0。 49.下列程序是判断一个整数(=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox(“请输入一个整数(=3)“) k=Int(Sqr(n) i=2 swit=0 While i=k And swit=0 If n Mod i=0 Then -|_|- Else -|_|- End If Wend If swit=0 Then Print n；“是一个素数。“ Else Print n；“不是一个素数。“ End If （分数：2.00）_正确答案：(swit=1)解析： 素数是只能被 1 和本身整除的正整数，在本题的程序

28、中，swit 是一个标志变量，如果“swit=0”，则表示 n 不能被整除；如果能被一个整数整除，则 swit 变为 1； While 循环执行的条件有两个，一个是“I = k”，另一个是“swit=0”，必须两个条件同时成立才执行循环，当 Ik 时，显然不必再检查 n 是否能被 I 整除；而如果“swit=1 ”，则表示 n 已被整除，肯定不是素数，也不必检查了。 只有“I=k”和“swit=0”两者同时成立时才需要检查“n 是否为素数”，循环只有一个判断操作，即判断 n 能否被 I 整除，如果不能，则 I=I+1。以便为下一次判断作准备。 50.下面的程序用于根据文本框 Test 中输入的

29、内容进行以下处理： 若 Text 为 1，则打印“您的成绩为优秀！”；若 Text 为 2，则打印“您的成绩为良好!”；若 Text 为 3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case -|_|- Print “您的成绩为优秀！“ Case -|_|- Print “您的成绩为良好！“ Case -|_|- Print “您的成绩为一般！“ Case Else Print “您的成绩为一般以下！“ End Select End Sub （分数：2.00）_正确答案：(1)解析：函数调用了 Val(Text1Text)函数将从文本框中得到的字符串转化为数据，将转换来的数据作为情况语句的测试条件。因为当输入 1 时，则打印“您的成绩为优秀!”；所以当测试表达式的值与之相同时，就执行该 Case 分支的语句，同样当输入 2，3 等其他数字时执行其他的 Case 分支。