【计算机类职业资格】二级VISUAL+BASIC笔试-394及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试-394及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-394及答案解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试-394 及答案解析(总分：104.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下面叙述中正确的是( )。（分数：2.00）A.SW 函数只能用于 Print 方法中B.Space 函数既可以用于 Print 方法中，也能用于表达式C.Spc 函数与 Space 函数均生成空格，没有区别D.以上说法均不对2.设有如下语句： Dim a，b As Integer c=“VisualBasic“ d=#7/20/2005# 以下关于这段代码的叙述中，错误的是( )。（分数：2.00）A.a 被定义为 Integer 类型变量

2、B.b 被定义为 Integer 类型变量C.c 中的数据是字符串D.d 中的数据是日期类型3.在 VisualBasic 中，要使标签的标题居中显示，则将其 Alignment 属性设置为( )。（分数：2.00）A.0B.2C.1D.34.下面程序运行后的结果是( )。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub（分数

3、：2.00）A.6B.72C.144D.4325.当对命令按钮的 Picture 属性装入.bmp 图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为 1，该属性是( )。（分数：2.00）A.MousePictureB.StyleC.DownPictureD.DisabledPicture6.任何控件都具有( )属性。（分数：2.00）A.TextB.CaptionC.NameD.ForeCol0r7.在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Di

4、marrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.12B.13C.14D.158.下列说法正确的是( )。（分数：2.00）A.一个应用程序中只能创建一个窗体B.一个应用程序中只能创建一个模块C.一个应用程序中只能创建一个 MDI 窗体D.一个应用程序中只能创建一个 MDI

5、子窗体9.单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m/10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub（分数：2.00）A.12 34B.2 34C.2 3D.12 310.下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array(“天天向上“

6、，“清华大学“，“天上人间“，“程序设计“) forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)=“天“then print a(i)； nextI End Sub（分数：2.00）A.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计11.下面程序运行后，输出结果是( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima

7、(1 to 4)As Integer，I As Integer Callmysub(a()，5) Mysuba() ForI=1 to 4 Print a(i)； Next End Sub（分数：2.00）A.5101520B.2468C.出错D.000012.下列叙述中正确的是( )。（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率13.为了清除窗体上的一个控件，下列正确的操作是( )。

8、（分数：2.00）A.按回车键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键D.选择(单击)要清除的控件，然后按回车键14.每建立一个窗体，工程管理器窗口中就会增加一个( )。（分数：2.00）A.工程文件B.窗体文件C.程序模块文件D.类模块文件15.要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的( )属性。（分数：2.00）A.PictureB.AligmenC.BorderD.Align16.运行以下程序后，输出的图形是( )。 Forr=O To 150 Circle(320,240)，r Fori=1 To 1000 Nexti Nextr（分数：2.

9、00）A.一个固定的空心圆B.一个半径逐渐变大的空心圆C.一个固定的实心圆D.一个半径逐渐变大的实心圆17.执行如下两条语句后，窗体上显示的是( )。 a=9.8596 PrintFormat(a，“$0,000.00“)（分数：2.00）A.0,009.86B.$9.86C.9.86D.$0，009.8618.在窗体(名称为 Forml)上绘制一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。（分数：2.00）A.Priva

10、te Sub Texl_Change() CommandCaption=“计算机等级考试” End SubB.PrivateSubCommandl_Click() Caption=“计算机等级考试“C.Private Sub Commandl_Click() TexCaption=“计算机等级考试“ End SubD.Private Sub Commandl_Click() Text1.Text=“计算机等级考试“ End Sub19.目录列表框的 Path 属性的作用是( )。（分数：2.00）A.显示当前驱动器或指定驱动器上的某目录下的文件名B.显示当前驱动器或指定驱动器上的目录结构C.显

11、示根目录下的文件名D.显示指定路径下的文件20.在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如下事件过程：Private Sub Commandl_click() CommonDialogl.Friter=“AllFiles(*.*)|*.*|Text Files“pp(i)End IfNext（分数：4.00）(1).（分数：2.00）填空项 1:_43.在窗体上画一个命令按钮(其 Name 属性为 Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dima(5) Fori=0 To 4 A(i)=

12、i+1 t=i+1 If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi=3 Thena(i+1)=a(t-4) A(4)=1 Printa(i) NextI End Sub 程序运行后，单击命令按钮，输出结果是上_。（分数：2.00）填空项 1:_44.下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dima(10) Forj=1 To 10 a(i)=Int_ If a(j)Mod5=0 Then

13、k=k+1 Printa(j) Nextj Print Printk/10 End Sub（分数：2.00）填空项 1:_在窗体上画 1 个名称为 Commandl 的命令按钮和 2 个名称分别为 Text1、Text2 的文本框，如下图所示，然后编写如下程序；Function Fun(x As Integer,ByVhly As Inmgcr)As IntegerX=K+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Cornmandl_Click()Dima As Integer,b As Integera=-10:b=5Tcx

14、t1,Text=Fun(a,b)Text2,Text=Fun(a,b)End Sub程序运行后，单击命令按钮，Text1 和 Text2 文本框显示的内容分别是上U 14 /U和U 15 /U。（分数：8.00）(1).（分数：4.00）填空项 1:_二级 VISUAL+BASIC 笔试-394 答案解析(总分：104.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下面叙述中正确的是( )。（分数：2.00）A.SW 函数只能用于 Print 方法中B.Space 函数既可以用于 Print 方法中，也能用于表达式 C.Spc 函数与 Space 函数均生成

15、空格，没有区别D.以上说法均不对解析：2.设有如下语句： Dim a，b As Integer c=“VisualBasic“ d=#7/20/2005# 以下关于这段代码的叙述中，错误的是( )。（分数：2.00）A.a 被定义为 Integer 类型变量 B.b 被定义为 Integer 类型变量C.c 中的数据是字符串D.d 中的数据是日期类型解析：3.在 VisualBasic 中，要使标签的标题居中显示，则将其 Alignment 属性设置为( )。（分数：2.00）A.0B.2 C.1D.3解析：4.下面程序运行后的结果是( )。 Private Sub Form_Click()

16、Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub（分数：2.00）A.6B.72C.144D.432 解析：5.当对命令按钮的 Picture 属性装入.bmp 图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为 1，该属性是( )。（分数：2.00）A.MousePictureB.Style C.DownPictureD.DisabledPicture解析

17、：6.任何控件都具有( )属性。（分数：2.00）A.TextB.CaptionC.Name D.ForeCol0r解析：7.在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dimarrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti Text1.Text=array1(2，3)+array1(3，4) End Sub 程序

18、运行后，单击命令按钮，在文本框中显示的值是( )。（分数：2.00）A.12 B.13C.14D.15解析：8.下列说法正确的是( )。（分数：2.00）A.一个应用程序中只能创建一个窗体B.一个应用程序中只能创建一个模块C.一个应用程序中只能创建一个 MDI 窗体 D.一个应用程序中只能创建一个 MDI 子窗体解析：9.单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m/10 End Sub PrivateSubCommandl_Click() Dimx As Intege

19、r Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub（分数：2.00）A.12 34 B.2 34C.2 3D.12 3解析：10.下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array(“天天向上“，“清华大学“，“天上人间“，“程序设计“) forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)=“天“then print a(i)； nextI End Sub（分数：2.00）A.天天向上B.天天向上天上人间 C.出错信息D.天天

20、向上清华大学天上人间程序设计解析：11.下面程序运行后，输出结果是( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer，I As Integer Callmysub(a()，5) Mysuba() ForI=1 to 4 Print a(i)； Next End Sub（分数：2.00）A.5101520B.2468 C.出错D.0000解析：12.

21、下列叙述中正确的是( )。（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 解析：13.为了清除窗体上的一个控件，下列正确的操作是( )。（分数：2.00）A.按回车键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键 D.选择(单击)要清除的控件，然后按回车键解析：14.每建立一个窗体，工程管理器窗口中就会增加一个( )。（分数：2.00）A.工程文件B.窗体文件 C.程

22、序模块文件D.类模块文件解析：15.要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的( )属性。（分数：2.00）A.PictureB.AligmenC.BorderD.Align 解析：16.运行以下程序后，输出的图形是( )。 Forr=O To 150 Circle(320,240)，r Fori=1 To 1000 Nexti Nextr（分数：2.00）A.一个固定的空心圆B.一个半径逐渐变大的空心圆C.一个固定的实心圆D.一个半径逐渐变大的实心圆 解析：17.执行如下两条语句后，窗体上显示的是( )。 a=9.8596 PrintFormat(a，“$0,000.00“)

23、（分数：2.00）A.0,009.86B.$9.86C.9.86D.$0，009.86 解析：18.在窗体(名称为 Forml)上绘制一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。（分数：2.00）A.Private Sub Texl_Change() CommandCaption=“计算机等级考试” End Sub B.PrivateSubCommandl_Click() Caption=“计算机等级考试“C.Priva

24、te Sub Commandl_Click() TexCaption=“计算机等级考试“ End SubD.Private Sub Commandl_Click() Text1.Text=“计算机等级考试“ End Sub解析：19.目录列表框的 Path 属性的作用是( )。（分数：2.00）A.显示当前驱动器或指定驱动器上的某目录下的文件名B.显示当前驱动器或指定驱动器上的目录结构 C.显示根目录下的文件名D.显示指定路径下的文件解析：20.在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如下事件过程：Private Sub Commandl_cl

25、ick() CommonDialogl.Friter=“AllFiles(*.*)|*.*|Text Files“pp(i)End IfNext（分数：4.00）(1).（分数：2.00）解析：填空项 1:_ （正确答案：PP(n)=PP(n)+1）解析：43.在窗体上画一个命令按钮(其 Name 属性为 Commandl)，然后编写如下代码： Private Sub Commandl_Click() Dima(5) Fori=0 To 4 A(i)=i+1 t=i+1 If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi

26、=3 Thena(i+1)=a(t-4) A(4)=1 Printa(i) NextI End Sub 程序运行后，单击命令按钮，输出结果是上_。（分数：2.00）填空项 1:_ （正确答案：123141）解析：44.下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dima(10) Forj=1 To 10 a(i)=Int_ If a(j)Mod5=0 Then k=k+1 Printa(j) Nextj Print Printk/10 End Sub（分数：2.00）填

27、空项 1:_ （正确答案：(99*Rnd)+1）解析：在窗体上画 1 个名称为 Commandl 的命令按钮和 2 个名称分别为 Text1、Text2 的文本框，如下图所示，然后编写如下程序；Function Fun(x As Integer,ByVhly As Inmgcr)As IntegerX=K+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Cornmandl_Click()Dima As Integer,b As Integera=-10:b=5Tcxt1,Text=Fun(a,b)Text2,Text=Fun(a,b)End Sub程序运行后，单击命令按钮，Text1 和 Text2 文本框显示的内容分别是上U 14 /U和U 15 /U。（分数：8.00）(1).（分数：4.00）解析：填空项 1:_ （正确答案：5）解析：