1、二级 VISUAL+BASIC 笔试-198 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列不属于 Visual Basic 特点的是( )。（分数：2.00）A.对象的链接与嵌入B.结构化程序设计C.编写跨平台应用程序D.事件驱动程序编程机制2.以下有关数组定义的语句序列中，错误的是( )。（分数：2.00）A.B.C.D.3.与键盘操作有关的事件有 KeyPress、KeyUp 和 KeyDown 事件，当用户按下并且释放一个键后，这三个事件发生的顺序是( )。（分数：2.00）A.KeyDown、KeyPress、KeyUpB.
2、KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律4.下列关于图片框的语句中错误的是( )。（分数：2.00）A.Picture1.Picture=Picture2.PictureB.Picture1.Picture=LoadPicture(“C:/vb60/Arw04Up.ico“)C.Picture1.PrintTab(20)；CurrentX，CurrentYD.Picture1.Stretch=True5.下述程序的运行结果是( )。j=0DoWhilej30j=(0+1)*(0+2)k=k+1LoopPrintk;j（分数：2.0
3、0）A.01B.3182C.3030D.4306.下列程序段错误的是( )。（分数：2.00）A.B.C.D.7.下列能正确输出 2,345.67 的语句是( )。（分数：2.00）A.Print Format$(2345.668，“00000.00#)“B.PrintFormat$(2345.668，“#，#.#“)C.PrintFormat$(2345.668，“0,000000“)D.PrintFormat$(2345.668，“#.#“)8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同
4、的数据只能被对应的应用程序所使用D.以上三种说法都不对9.在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字符( )，表示下一行是当前行的继续。（分数：2.00）A.一个空格加一划字符(_)B.一个划字符(_)C.直接回车D.一个空格加一个连字符(-)10.语句 Print“Sgn(-26)=“；Sgn(-26)的输出结果为( )。（分数：2.00）A.Sgn(-26)=26B.Sgn(-26)=-26C.Sgn(-26)=+1D.Sgn(-26)=-111.使两种完全不同的应用程序进行通信的技术称为( )技术。（分数：2.00）A.动态数据交换
5、B.动态链接库C.对象链接D.对象嵌入12.在窗体上画两个单选按钮，名称分别为 Opfion1，Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为 Check1，标题为“粗体”：一个文本框，名称为 Text1，Text 属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是( )。（分数：2.00）A.Option1.Value=True Check1.Value=FalseB.Oprion1.Value=TrueCheck1.Value=TmeC.Option2.Value=FalseCheck1.Value=TmeD.O
6、ptionl.Value=TrueCheck1.Value=113.编写如下事件过程：Private Sub Form_Activate()Dimscore(1 to 3)As IntegerDimi As IntegerDim t As VariantFori= 3 To 1 Step-1score(i)=2*iNextiForEach t InscorePrinttNextEnd Sub程序运行后窗体上显示的值是( )。（分数：2.00）A.642B.246C.2D.614.如果 A 为整数且|A|100。则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是( )。
7、（分数：2.00）A.f Int(A)=AAndSqr(A)100ThenPrintI“OK“ElsePrint/B.f Fix(A)=AAndAbs(A)100ThenPrint“OK“ElsePrint/C.f int(A)=AAnd(A=100,A=100)ThenPrint“OK“ElsePrint/D.f Fix(A)=AAndA=100AndA=100Thenhim“OK“ElsePrint/15.在长度为 64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为( )。（分数：2.00）A.63B.64C.6D.716.在窗体上画一个命令按钮和一个文本框，其名称分别为 Com
8、mandl 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程：Private Sub Commandl_click()a=InputBox(“Enter an integer“)b=InputBox(“Enter an integer“)Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示内容是( )。（分数：2.00）A.108B.18C.810D.出错17.若要将窗体 Form1 的标题栏文本改为“欢迎使用本软件!”，下列语句正确的是( )。（分数：2.00）A.Form1.NAMF=“欢迎使
9、用本软件!”B.FormlCaption=“欢迎使用本软件!”C.SetForml.Caption=“欢迎使用本软件!”D.Forml.Caprion=“欢迎使用本软件!”18.表达式 5Mod3+3/5*2 的值是( )。（分数：2.00）A.0B.2C.4D.619.在窗体上画一个命令按钮，名称为 Commandl，然后编写如下代码：Option Base 0Private Sub Commandl_Click()DimA(4)As Integer,B(4)As IntegerFork=0 To 2A(k+1)=InputBox(“请输入一个整数”)B(3-k)=A(k+1)NextkPr
10、intB(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入 2、4、6，输出结果为( )。（分数：2.00）A.0B.2C.3D.420.表达式 Mid(“SHANGHAI“，6，3)的值是( )。（分数：2.00）A.SHANGHB.SHAC.ANGHD.HAI21.以下说法不正确的是( )。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组的所有元素进行初始化22.下面程序的运行结果是( )。Private Sub Commandl
11、_Click()a=1.5b=1.5Callfun(a,b)Printa,bEnd SubPrivate Subfun(x,y)x=y*yy=y+xEnd Sub（分数：2.00）A.225 1.5B.1.5 2.25C.2.25 3.75D.0.75 1.523.下列描述中正确的是( )。（分数：2.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发中的技术问题24.要从自定义对话框 Form2 中退出，可以在该对话框的“退出”按钮 Chck 事件过程中使用( )语句。
12、（分数：2.00）A.Form2.UnloadB.Unload.Form2C.Hide.Form2D.Form2.Hide25.无论何种控件，都具有一个共同属性。这个属性是( )。（分数：2.00）A.TextB.FontC.NameD.Caption26.设有如下的记录类型：Type StudentNumber As StringName As StringAge As IntegerEnd Sub则能正确引用该记录类型变量的代码是( )。（分数：2.00）A.Student.name=“B.Dim s As Students.name=“张红”C.Dims As Tye Students.
13、name=“张红”D.DimsAsTypes.name=“张红”27.保存新建的工程时，默认的路径是( )。（分数：2.00）A.My DocumentsB.VB98C.6/D.Windows28.设有如下通用过程：Public Sub Fun(a()，By Val x As Integer)Fori=1 To 5x=x+a(i)NextEnd Sub在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下的事件过程：Private Sub Commandl_Chck()Dimart(5)As VariantFori=1 To 5arr(i)=iNex
14、tn=10Call Fun(alt()，n)Text1.Text=nEnd Sub程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.10B.15C.25D.2429.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）A.TextB.LengthC.SelTextD.SelStart30.决定控件上文字的字体、字形、字号、效果的属性是( )。（分数：2.00）A.TextB.CaptionC.NameD.Font31.设 a=4，b=3，c=2，d=1，下列表达式的值是( )。ab+1 Or cdAnd b Modc（分数：2.00）A.True
15、B.1C.-1D.032.使用 PublicConst 语句声明一个全局的符号常量时，该语句应放在( )。（分数：2.00）A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段33.以下关于文件的叙述中，错误的是( )。（分数：2.00）A.使用 Append 方式打开文件时，文件指针被定位于文件尾B.当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件C.顺序文件各记录的长度可以不同D.随机文件打开后，既可以进行读操作，也可以进行写操作34.有如下事件过程：Private Sub Commandl_Click()b=10Do Unti
16、l b=-1a=InputBox(“请输入 a 的值”)a=Val(a)b=InputBox(“请输入 b 的值”)b=Val(b)a=a*bLoopPdnt aEnd Sub程序运行后，依次输入数值 30，20，10，-1，输出结果为( )。（分数：2.00）A.6000B.-10C.200D.-600035.在窗体上画 1 个命令按钮(名称为 Commandl)和 1 个文本框(名称为 Text1)，然后编写如下事件过程：Private Sub Commandl_Click()x=Val(Text1.Text)SelectCaseXCase 1，3y=X*XCaseIS=10，IS=-10
17、y=XCase-10 To 10y=-XEnd SelectEnd Sub程序运行后，在文本框中输入 3，然后单击命令按钮，则以下叙述中正确的是( )。（分数：2.00）A.执行 y=x*xB.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.程序出错二、填空题(总题数：13，分数：30.00)36.工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项 1 的下拉菜单中。（分数：2.00）填空项 1:_37.某二叉树中度为 2 的结点有 18 个，则该二叉树中有 1 个叶子结点。（分数：2.00）填空项 1:_38.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项
18、 1:_39.下列程序段的输出结果为_。Dimy As IntegerPrivate Sub Commandl_CUck()DimX As Integerx=2TeKt1.Text=SecondFunc(FirStFunC(X)，y)Text2.Text=FirstFunc(X)End SubPrivateFunctionFirstFunc(XASInteger)As Integerx=x+y:y=x+yFirstFunc=x+yEnd FunctionPtivateFunction SecondFunc(X As Integer,y AS Integer)As IntegerSecondFu
19、nc=2*x+yEnd Function（分数：2.00）填空项 1:_下列程序为求 Sn=a+aa+aaa+aaa(n 个 a)，其中 a 为一个随机数产生的 19(包括 1、 9)中的一个正整数，n 是一个随机数产生的 510(包括 5、10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。Private Sub Form_CUCk()Dima As Integer,n As Intege,S As Double，Sn As Doublea=Fix(9*Rnd)+1n=Pix(6*Rnd)+5Sn=0S=0Fori=1 To 5 S=S+a*10(i-1)6 PrintSnNex
20、tiEnd Sub（分数：4.00）填空项 1:_填空项 1:_40.在 Selectcase 结构中应至少包含一个 1 子句。（分数：2.00）填空项 1:_41.表达式(2+8*3)/2 的值是 1。（分数：2.00）填空项 1:_42.程序运行后，利用冒泡法对数组 a 中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。Ptivate Sub Form_load()Dima(1T05)As Integer,n=5a(1)=20：a(2)=25：a(3)=10：a(4)=40：a(5)=15_Forz=1 To n-mIf a(z)a(z+1)Thent=a(z)a(z)=(
21、z+1)a(z+1)=tEnd IfNextZNextmEnd Sub（分数：2.00）填空项 1:_43.假定当前日期为 2002 年 12 月 16 日，星期一，则执行以下语句后，输出结果是 16、12、 2002_。PrintDay(Now)CRPrintMonth(NOW)CRPrintYear(Now)CRPrintWeekday(NOW)CR（分数：2.00）填空项 1:_下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用 TAB 键来切换。请填空。Private Sub 11 KeyDown(K
22、eyCode As Integer,Shift As Integer)If KeyCode 12 vbKeyRetum ThenText2.SetFocusEnd IfEnd Sub（分数：4.00）填空项 1:_填空项 1:_44.下列程序的执行结果是_。PrivateFunctionP(NASInteger)Fori=1 To NSUM=SUM+iNextiP=SUMEnd FunctionPrivte Sub Commandl_Click()S=P(1)+P(2)+P(3)+P(4)Print SEnd Sub（分数：2.00）填空项 1:_45.下列程序的作用是将三个数按从大到小进行排
23、序，请填空。If ab Thend=aa=bb=dEnd IfIf ac Thend=aa=cc=dEnd IfIf_Thend=bb=c c=dEnd IfPrinta,b,c（分数：2.00）填空项 1:_46.要将 Form2 作为无模式对话框打开，且随窗体 Form3 最小化而最小化，随 Form3 关闭而关闭，相应的Show 语句为 1。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-198 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列不属于 Visual Basic 特点的是( )。（分数：2.00）
24、A.对象的链接与嵌入B.结构化程序设计C.编写跨平台应用程序 D.事件驱动程序编程机制解析：2.以下有关数组定义的语句序列中，错误的是( )。（分数：2.00）A.B.C.D. 解析：3.与键盘操作有关的事件有 KeyPress、KeyUp 和 KeyDown 事件，当用户按下并且释放一个键后，这三个事件发生的顺序是( )。（分数：2.00）A.KeyDown、KeyPress、KeyUp B.KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律解析：4.下列关于图片框的语句中错误的是( )。（分数：2.00）A.Picture1.Pictu
25、re=Picture2.PictureB.Picture1.Picture=LoadPicture(“C:/vb60/Arw04Up.ico“)C.Picture1.PrintTab(20)；CurrentX，CurrentYD.Picture1.Stretch=True 解析：5.下述程序的运行结果是( )。j=0DoWhilej30j=(0+1)*(0+2)k=k+1LoopPrintk;j（分数：2.00）A.01B.3182 C.3030D.430解析：6.下列程序段错误的是( )。（分数：2.00）A. B.C.D.解析：7.下列能正确输出 2,345.67 的语句是( )。（分数：
26、2.00）A.Print Format$(2345.668，“00000.00#)“B.PrintFormat$(2345.668，“#，#.#“) C.PrintFormat$(2345.668，“0,000000“)D.PrintFormat$(2345.668，“#.#“)解析：8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对 解析：9.在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字
27、符( )，表示下一行是当前行的继续。（分数：2.00）A.一个空格加一划字符(_) B.一个划字符(_)C.直接回车D.一个空格加一个连字符(-)解析：10.语句 Print“Sgn(-26)=“；Sgn(-26)的输出结果为( )。（分数：2.00）A.Sgn(-26)=26B.Sgn(-26)=-26C.Sgn(-26)=+1D.Sgn(-26)=-1 解析：11.使两种完全不同的应用程序进行通信的技术称为( )技术。（分数：2.00）A.动态数据交换 B.动态链接库C.对象链接D.对象嵌入解析：12.在窗体上画两个单选按钮，名称分别为 Opfion1，Option2，标题分别为“宋体”和
28、“黑体”；一个复选框，名称为 Check1，标题为“粗体”：一个文本框，名称为 Text1，Text 属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是( )。（分数：2.00）A.Option1.Value=True Check1.Value=FalseB.Oprion1.Value=TrueCheck1.Value=TmeC.Option2.Value=FalseCheck1.Value=TmeD.Optionl.Value=TrueCheck1.Value=1 解析：13.编写如下事件过程：Private Sub Form_Ac
29、tivate()Dimscore(1 to 3)As IntegerDimi As IntegerDim t As VariantFori= 3 To 1 Step-1score(i)=2*iNextiForEach t InscorePrinttNextEnd Sub程序运行后窗体上显示的值是( )。（分数：2.00）A.642B.246 C.2D.6解析：14.如果 A 为整数且|A|100。则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是( )。（分数：2.00）A.f Int(A)=AAndSqr(A)100ThenPrintI“OK“ElsePrint/B
30、.f Fix(A)=AAndAbs(A)100ThenPrint“OK“ElsePrint/ C.f int(A)=AAnd(A=100,A=100)ThenPrint“OK“ElsePrint/D.f Fix(A)=AAndA=100AndA=100Thenhim“OK“ElsePrint/解析：15.在长度为 64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为( )。（分数：2.00）A.63B.64 C.6D.7解析：16.在窗体上画一个命令按钮和一个文本框，其名称分别为 Commandl 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程：Privat
31、e Sub Commandl_click()a=InputBox(“Enter an integer“)b=InputBox(“Enter an integer“)Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示内容是( )。（分数：2.00）A.108 B.18C.810D.出错解析：17.若要将窗体 Form1 的标题栏文本改为“欢迎使用本软件!”，下列语句正确的是( )。（分数：2.00）A.Form1.NAMF=“欢迎使用本软件!”B.FormlCaption=“欢迎使用本软件!”C.SetForml.Capt
32、ion=“欢迎使用本软件!”D.Forml.Caprion=“欢迎使用本软件!” 解析：18.表达式 5Mod3+3/5*2 的值是( )。（分数：2.00）A.0B.2 C.4D.6解析：19.在窗体上画一个命令按钮，名称为 Commandl，然后编写如下代码：Option Base 0Private Sub Commandl_Click()DimA(4)As Integer,B(4)As IntegerFork=0 To 2A(k+1)=InputBox(“请输入一个整数”)B(3-k)=A(k+1)NextkPrintB(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入
33、 2、4、6，输出结果为( )。（分数：2.00）A.0B.2 C.3D.4解析：20.表达式 Mid(“SHANGHAI“，6，3)的值是( )。（分数：2.00）A.SHANGHB.SHAC.ANGHD.HAI 解析：21.以下说法不正确的是( )。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型 C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组的所有元素进行初始化解析：22.下面程序的运行结果是( )。Private Sub Commandl_Click()a=1.5b=1.5Callfun(
34、a,b)Printa,bEnd SubPrivate Subfun(x,y)x=y*yy=y+xEnd Sub（分数：2.00）A.225 1.5B.1.5 2.25C.2.25 3.75 D.0.75 1.5解析：23.下列描述中正确的是( )。（分数：2.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D.软件工程只是解决软件开发中的技术问题解析：24.要从自定义对话框 Form2 中退出，可以在该对话框的“退出”按钮 Chck 事件过程中使用( )语句。（分数：2.00）A.Form2.U
35、nloadB.Unload.Form2 C.Hide.Form2D.Form2.Hide解析：25.无论何种控件，都具有一个共同属性。这个属性是( )。（分数：2.00）A.TextB.FontC.Name D.Caption解析：26.设有如下的记录类型：Type StudentNumber As StringName As StringAge As IntegerEnd Sub则能正确引用该记录类型变量的代码是( )。（分数：2.00）A.Student.name=“B.Dim s As Students.name=“张红” C.Dims As Tye Students.name=“张红”
36、D.DimsAsTypes.name=“张红”解析：27.保存新建的工程时，默认的路径是( )。（分数：2.00）A.My DocumentsB.VB98 C.6/D.Windows解析：28.设有如下通用过程：Public Sub Fun(a()，By Val x As Integer)Fori=1 To 5x=x+a(i)NextEnd Sub在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下的事件过程：Private Sub Commandl_Chck()Dimart(5)As VariantFori=1 To 5arr(i)=iNextn
37、=10Call Fun(alt()，n)Text1.Text=nEnd Sub程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.10 B.15C.25D.24解析：29.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）A.TextB.LengthC.SelText D.SelStart解析：30.决定控件上文字的字体、字形、字号、效果的属性是( )。（分数：2.00）A.TextB.CaptionC.NameD.Font 解析：31.设 a=4，b=3，c=2，d=1，下列表达式的值是( )。ab+1 Or cdAnd b Modc（分数：2
38、.00）A.TrueB.1C.-1D.0 解析：32.使用 PublicConst 语句声明一个全局的符号常量时，该语句应放在( )。（分数：2.00）A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段 D.窗体模块或标准模块的通用声明段解析：33.以下关于文件的叙述中，错误的是( )。（分数：2.00）A.使用 Append 方式打开文件时，文件指针被定位于文件尾B.当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件 C.顺序文件各记录的长度可以不同D.随机文件打开后，既可以进行读操作，也可以进行写操作解析：34.有如下事件过程：Private Sub Comma
39、ndl_Click()b=10Do Until b=-1a=InputBox(“请输入 a 的值”)a=Val(a)b=InputBox(“请输入 b 的值”)b=Val(b)a=a*bLoopPdnt aEnd Sub程序运行后，依次输入数值 30，20，10，-1，输出结果为( )。（分数：2.00）A.6000B.-10 C.200D.-6000解析：35.在窗体上画 1 个命令按钮(名称为 Commandl)和 1 个文本框(名称为 Text1)，然后编写如下事件过程：Private Sub Commandl_Click()x=Val(Text1.Text)SelectCaseXCas
40、e 1，3y=X*XCaseIS=10，IS=-10y=XCase-10 To 10y=-XEnd SelectEnd Sub程序运行后，在文本框中输入 3，然后单击命令按钮，则以下叙述中正确的是( )。（分数：2.00）A.执行 y=x*x B.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.程序出错解析：二、填空题(总题数：13，分数：30.00)36.工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项 1 的下拉菜单中。（分数：2.00）填空项 1:_ （正确答案：编辑）解析：37.某二叉树中度为 2 的结点有 18 个，则该二叉树中有 1 个叶子结点。（分数：2.00
41、）填空项 1:_ （正确答案：19）解析：38.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_ （正确答案：调试或程序调试或软件调试或 Debug(英文字母大小写均可)）解析：39.下列程序段的输出结果为_。Dimy As IntegerPrivate Sub Commandl_CUck()DimX As Integerx=2TeKt1.Text=SecondFunc(FirStFunC(X)，y)Text2.Text=FirstFunc(X)End SubPrivateFunctionFirstFunc(XASInteger)As Integerx=x+y:y=x+
42、yFirstFunc=x+yEnd FunctionPtivateFunction SecondFunc(X As Integer,y AS Integer)As IntegerSecondFunc=2*x+yEnd Function（分数：2.00）填空项 1:_ （正确答案：10，10 58， 58）解析：下列程序为求 Sn=a+aa+aaa+aaa(n 个 a)，其中 a 为一个随机数产生的 19(包括 1、 9)中的一个正整数，n 是一个随机数产生的 510(包括 5、10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。Private Sub Form_CUCk()Dima
43、 As Integer,n As Intege,S As Double，Sn As Doublea=Fix(9*Rnd)+1n=Pix(6*Rnd)+5Sn=0S=0Fori=1 To 5 S=S+a*10(i-1)6 PrintSnNextiEnd Sub（分数：4.00）填空项 1:_ （正确答案：n）解析：填空项 1:_ （正确答案：Sn=Sn+s）解析：40.在 Selectcase 结构中应至少包含一个 1 子句。（分数：2.00）填空项 1:_ （正确答案：Case）解析：41.表达式(2+8*3)/2 的值是 1。（分数：2.00）填空项 1:_ （正确答案：13）解析：42.程
44、序运行后，利用冒泡法对数组 a 中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。Ptivate Sub Form_load()Dima(1T05)As Integer,n=5a(1)=20：a(2)=25：a(3)=10：a(4)=40：a(5)=15_Forz=1 To n-mIf a(z)a(z+1)Thent=a(z)a(z)=(z+1)a(z+1)=tEnd IfNextZNextmEnd Sub（分数：2.00）填空项 1:_ （正确答案：Form=1 to n-1）解析：43.假定当前日期为 2002 年 12 月 16 日，星期一，则执行以下语句后，输出结果是
45、16、12、 2002_。PrintDay(Now)CRPrintMonth(NOW)CRPrintYear(Now)CRPrintWeekday(NOW)CR（分数：2.00）填空项 1:_ （正确答案：2）解析：下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用 TAB 键来切换。请填空。Private Sub 11 KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode 12 vbKeyRetum ThenText2.SetFocusEnd IfEn
46、d Sub（分数：4.00）填空项 1:_ （正确答案：text1）解析：填空项 1:_ （正确答案：=）解析：44.下列程序的执行结果是_。PrivateFunctionP(NASInteger)Fori=1 To NSUM=SUM+iNextiP=SUMEnd FunctionPrivte Sub Commandl_Click()S=P(1)+P(2)+P(3)+P(4)Print SEnd Sub（分数：2.00）填空项 1:_ （正确答案：20）解析：45.下列程序的作用是将三个数按从大到小进行排序，请填空。If ab Thend=aa=bb=dEnd IfIf ac Thend=aa=cc=dEnd IfIf_Thend=bb=c c=dEnd IfPrinta,b,c（分数：2.00）填空项 1:_ （正确答案：bc）解析：46.要将 Form2 作为无模式对话框打开，且随窗体 Form3 最小化而最小化，随 Form3 关闭而关闭，相应的Show 语句为 1。（分数：2.00）填空项 1:_ （正确答案：Form2.ShowVbModeless,Form3）解析：
