1、二级 VISUAL+BASIC 笔试-309 及答案解析(总分：104.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体(名称为 Forml)上绘制一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。（分数：2.00）A.Private Sub Texl_Change()Commandl.Caption=“计算机等级考试”End SubB.PrivateSubCommandl_Click()Ca
2、ption=“计算机等级考试“C.Private Sub Commandl_Click()Text.Caption=“计算机等级考试“End SubD.Private Sub Commandl_Click()Text1.Text=“计算机等级考试“End Sub2.下列语句中正确的是( )。（分数：2.00）A.IfX3*YAndXYThenY=X3B.IfX3*YAndXYThenY=X3C.IfX3*Y:XYThenY=X3D.IfX3*YAndXYThenY=X*33.通过文本框的( )事件过程可以获取文本框中输入字符的 ASCII 码值。（分数：2.00）A.ChangeB.GotFo
3、cusC.LostFocusD.KeyPress4.下列说法正确的是( )。（分数：2.00）A.一个应用程序中只能创建一个窗体B.一个应用程序中只能创建一个模块C.一个应用程序中只能创建一个 MDI 窗体D.一个应用程序中只能创建一个 MDI 子窗体5.运行以下程序后，输出的图形是( )。Forr=O To 150Circle(320,240)，rFori=1 To 1000NextiNextr（分数：2.00）A.一个固定的空心圆B.一个半径逐渐变大的空心圆C.一个固定的实心圆D.一个半径逐渐变大的实心圆6.下列程序运行时输出的结果是( )。Private Sub Form_Click()
4、Dimaa=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.天天向上清华大学天上人间程序设计7.单击命令按钮时，下列程序代码的执行结果为( )。Private Sub Procl(nAs Integer,ByValmASInteger)n=nMod 10m=m/10End SubPrivateSubCommandl_Click()Dimx As Integ
5、erDimy As Integerx=12y=34CallProcl(x，y)Printx；yEnd Sub（分数：2.00）A.12 34B.2 34C.2 3D.12 38.Label 控件中内容能垂直方向变化而宽度保持不变则应设置( )属性。（分数：2.00）A.WordwrapB.EnabledC.LockedD.AutoSize9.执行以下程序段后，变量 c$的值为( )。S$=“VisualBasicProgramming“b$=“Quick“c$=b$pp(i)End IfNext（分数：4.00）填空项 1:_填空项 1:_43.在窗体上画一个命令按钮(其 Name 属性为 C
6、ommandl)，然后编写如下代码：Private Sub Commandl_Click()Dima(5)Fori=0 To 4A(i)=i+1t=i+1If t=3 ThenPrint a(i)A(t-1)=a(i-2)ElseA(t)=a(i)End IfIfi=3 Thena(i+1)=a(t-4)A(4)=1Printa(i)NextIEnd Sub程序运行后，单击命令按钮，输出结果是上_。（分数：2.00）填空项 1:_44.下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。Sub PR()Randomi
7、zeDima(10)Forj=1 To 10a(i)=Int_If a(j)Mod5=0 Then k=k+1Printa(j)NextjPrintPrintk/10End Sub（分数：2.00）填空项 1:_在窗体上画 1 个名称为 Commandl 的命令按钮和 2 个名称分别为 Text1、Text2 的文本框，如下图所示，然后编写如下程序；（分数：8.00）填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-309 答案解析(总分：104.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体(名称为 Forml)上绘制一个名称为 Text1
8、 的文本框和一个名称为 Commandl 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。（分数：2.00）A.Private Sub Texl_Change()Commandl.Caption=“计算机等级考试”End Sub B.PrivateSubCommandl_Click()Caption=“计算机等级考试“C.Private Sub Commandl_Click()Text.Caption=“计算机等级考试“End SubD.Private Sub Commandl_Clic
9、k()Text1.Text=“计算机等级考试“End Sub解析：2.下列语句中正确的是( )。（分数：2.00）A.IfX3*YAndXYThenY=X3 B.IfX3*YAndXYThenY=X3C.IfX3*Y:XYThenY=X3D.IfX3*YAndXYThenY=X*3解析：3.通过文本框的( )事件过程可以获取文本框中输入字符的 ASCII 码值。（分数：2.00）A.ChangeB.GotFocusC.LostFocusD.KeyPress 解析：4.下列说法正确的是( )。（分数：2.00）A.一个应用程序中只能创建一个窗体B.一个应用程序中只能创建一个模块C.一个应用程序中
10、只能创建一个 MDI 窗体 D.一个应用程序中只能创建一个 MDI 子窗体解析：5.运行以下程序后，输出的图形是( )。Forr=O To 150Circle(320,240)，rFori=1 To 1000NextiNextr（分数：2.00）A.一个固定的空心圆B.一个半径逐渐变大的空心圆C.一个固定的实心圆D.一个半径逐渐变大的实心圆 解析：6.下列程序运行时输出的结果是( )。Private Sub Form_Click()Dimaa=Array(“天天向上“，“清华大学“，“天上人间“，“程序设计“)forI=Lbound(a，1) to Ubound(a，1)ifleft(a(i)
11、，1)=“天“then print a(i)；nextI End Sub（分数：2.00）A.天天向上B.天天向上天上人间 C.出错信息D.天天向上清华大学天上人间程序设计解析：7.单击命令按钮时，下列程序代码的执行结果为( )。Private Sub Procl(nAs Integer,ByValmASInteger)n=nMod 10m=m/10End SubPrivateSubCommandl_Click()Dimx As IntegerDimy As Integerx=12y=34CallProcl(x，y)Printx；yEnd Sub（分数：2.00）A.12 34 B.2 34C
12、.2 3D.12 3解析：8.Label 控件中内容能垂直方向变化而宽度保持不变则应设置( )属性。（分数：2.00）A.Wordwrap B.EnabledC.LockedD.AutoSize解析：9.执行以下程序段后，变量 c$的值为( )。S$=“VisualBasicProgramming“b$=“Quick“c$=b$pp(i)End IfNext（分数：4.00）填空项 1:_ （正确答案：PP(65 To 90)）解析：填空项 1:_ （正确答案：PP(n)=PP(n)+1）解析：43.在窗体上画一个命令按钮(其 Name 属性为 Commandl)，然后编写如下代码：Priva
13、te Sub Commandl_Click()Dima(5)Fori=0 To 4A(i)=i+1t=i+1If t=3 ThenPrint a(i)A(t-1)=a(i-2)ElseA(t)=a(i)End IfIfi=3 Thena(i+1)=a(t-4)A(4)=1Printa(i)NextIEnd Sub程序运行后，单击命令按钮，输出结果是上_。（分数：2.00）填空项 1:_ （正确答案：123141）解析：44.下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。Sub PR()RandomizeDima(10)Forj=1 To 10a(i)=Int_If a(j)Mod5=0 Then k=k+1Printa(j)NextjPrintPrintk/10End Sub（分数：2.00）填空项 1:_ （正确答案：(99*Rnd)+1）解析：在窗体上画 1 个名称为 Commandl 的命令按钮和 2 个名称分别为 Text1、Text2 的文本框，如下图所示，然后编写如下程序；（分数：8.00）填空项 1:_ （正确答案：-5）解析：填空项 1:_ （正确答案：5）解析：
