1、二级 VISUAL+BASIC 笔试-360 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.如果 A 为整数且|A|100。则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是( )。（分数：2.00）A.If Int(=AAndSqr(100ThenPrintI“OK“ElsePrint“Error“B.If Fix(=AAndAbs(100ThenPrint“OK“ElsePrint“Error“C.If int(=AAnd(A=100,A=100)ThenPrint“OK“ElsePrint“Error
2、“D.If Fix(=AAndA=100AndA=100Thenhim“OK“ElsePrint“Error“2.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）A.TextB.LengthC.SelTextD.SelStart3.保存新建的工程时，默认的路径是( )。（分数：2.00）A.My DocumentsB.VB98C.6/D.Windows4.决定控件上文字的字体、字形、字号、效果的属性是( )。（分数：2.00）A.TextB.CaptionC.NameD.Font5.设 a=4，b=3，c=2，d=1，下列表达式的值是( )。 ab+1 Or cdAnd
3、b Modc（分数：2.00）A.TrueB.1C.-1D.06.下面程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,b) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub（分数：2.00）A.225 1.5B.1.5 2.25C.2.25 3.75D.0.75 1.57.在窗体上画一个命令按钮，名称为 Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() DimA(4)As Int
4、eger,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为( )。（分数：2.00）A.0B.2C.3D.48.设有如下通用过程： Public Sub Fun(a()，By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下的事件过程： P
5、rivate Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i Next n=10 Call Fun(alt()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.10B.15C.25D.249.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对10.以下说法不正确的是( )。（分数：2.00）A.
6、使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组的所有元素进行初始化11.以下有关数组定义的语句序列中，错误的是( )。 （分数：2.00）A.B.C.D.12.设有如下的记录类型： Type Student Number As String Name As String Age As Integer End Sub 则能正确引用该记录类型变量的代码是( )。（分数：2.00）A.Studenname=“B.Dim s As Studentname=“张红”C.Dims A
7、s Tye Studentname=“张红”D.DimsAsTypename=“张红”13.下述程序的运行结果是( )。 j=0 DoWhilej30 j=(0+1)*(0+2) k=k+1 Loop Printk;j（分数：2.00）A.01B.3182C.3030D.43014.下列关于图片框的语句中错误的是( )。（分数：2.00）A.Picture1.Picture=Picture2.PictureB.Picture1.Picture=LoadPicture(“C:/vb60/Arw04Uico“)C.Picture1.PrintTab(20)；CurrentX，CurrentYD.P
8、icture1.Stretch=True15.若要将窗体 Form1 的标题栏文本改为“欢迎使用本软件!”，下列语句正确的是( )。（分数：2.00）A.Form1.NAMF=“欢迎使用本软件!”B.FormlCaption=“欢迎使用本软件!”C.SetFormCaption=“欢迎使用本软件!”D.FormCaprion=“欢迎使用本软件!”16.下列程序段错误的是( )。 （分数：2.00）A.B.C.D.17.使两种完全不同的应用程序进行通信的技术称为( )技术。（分数：2.00）A.动态数据交换B.动态链接库C.对象链接D.对象嵌入18.无论何种控件，都具有一个共同属性。这个属性是(
9、 )。（分数：2.00）A.TextB.FontC.NameD.Caption19.在窗体上画两个单选按钮，名称分别为 Opfion1，Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为 Check1，标题为“粗体”：一个文本框，名称为 Text1，Text 属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是( )。（分数：2.00）A.Option1.Value=True Check1.Value=FalseB.Oprion1.Value=True Check1.Value=TmeC.Option2.Value=Fal
10、se Check1.Value=TmeD.OptionValue=True Check1.Value=120.在窗体上画一个命令按钮和一个文本框，其名称分别为 Commandl 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox(“Enter an integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示内容是( )。（分数：2.00）A
11、.108B.18C.810D.出错21.在窗体上画 1 个命令按钮(名称为 Commandl)和 1 个文本框(名称为 Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS=10，IS=-10 y=X Case-10 To 10 y=-X End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是( )。（分数：2.00）A.执行 y=x*xB.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.
12、程序出错22.下列能正确输出 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，“#.#“)23.有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入 a 的值”) a=Val(a) b=InputBox(“请输入 b 的值”) b=Val(b) a
13、=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值 30，20，10，-1，输出结果为( )。（分数：2.00）A.6000B.-10C.200D.-600024.要从自定义对话框 Form2 中退出，可以在该对话框的“退出”按钮 Chck 事件过程中使用( )语句。（分数：2.00）A.Form2.UnloadB.UnloaForm2C.HidForm2D.Form2.Hide25.语句 Print“Sgn(-26)=“；Sgn(-26)的输出结果为( )。（分数：2.00）A.Sgn(-26)=26B.Sgn(-26)=-26C.Sgn(-26)=+1D.Sgn(-
14、26)=-126.使用 PublicConst 语句声明一个全局的符号常量时，该语句应放在( )。（分数：2.00）A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段27.与键盘操作有关的事件有 KeyPress、KeyUp 和 KeyDown 事件，当用户按下并且释放一个键后，这三个事件发生的顺序是( )。（分数：2.00）A.KeyDown、KeyPress、KeyUpB.KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律28.下列描述中正确的是( )。（分数：2.00）A.软件工程只是解决软件
15、项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发中的技术问题29.编写如下事件过程： Private Sub Form_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是( )。（分数：2.00）A.642B.246C.2D.630
16、.在长度为 64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为( )。（分数：2.00）A.63B.64C.6D.731.下列不属于 Visual Basic 特点的是( )。（分数：2.00）A.对象的链接与嵌入B.结构化程序设计C.编写跨平台应用程序D.事件驱动程序编程机制32.在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字符( )，表示下一行是当前行的继续。（分数：2.00）A.一个空格加一划字符(_)B.一个划字符(_)C.直接回车D.一个空格加一个连字符(-)33.表达式 Mid(“SHANGHAI“，6，3)的值是( )
17、。（分数：2.00）A.SHANGHB.SHAC.ANGHD.HAI34.表达式 5Mod3+3/5*2 的值是( )。（分数：2.00）A.0B.2C.4D.635.以下关于文件的叙述中，错误的是( )。（分数：2.00）A.使用 Append 方式打开文件时，文件指针被定位于文件尾B.当以输入方式(Inpu 打开文件时，如果文件不存在，则建立一个新文件C.顺序文件各记录的长度可以不同D.随机文件打开后，既可以进行读操作，也可以进行写操作二、B填空题/B(总题数：13，分数：30.00)36.工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项 1 的下拉菜单中。（分数：2.00）填空
18、项 1:_37.某二叉树中度为 2 的结点有 18 个，则该二叉树中有 1 个叶子结点。（分数：2.00）填空项 1:_38.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_39.下列程序段的输出结果为_。 Dimy As Integer Private Sub Commandl_CUck() DimX As Integer x=2 TeKt1.Text=SecondFunc(FirStFunC(X)，y) Text2.Text=FirstFunc(X) End Sub PrivateFunctionFirstFunc(XASInteger)As Integer x=x
19、+y:y=x+y FirstFunc=x+y End Function PtivateFunction SecondFunc(X As Integer,y AS Integer)As Integer SecondFunc=2*x+y End 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
20、,n As Intege,S As Double，Sn As Doublea=Fix(9*Rnd)+1n=Pix(6*Rnd)+5Sn=0S=0Fori=1 ToU 5 /US=S+a*10(i-1)U 6 /UPrintSnNextiEnd Sub（分数：4.00）(1).（分数：2.00）填空项 1:_40.在 Selectcase 结构中应至少包含一个 1 子句。（分数：2.00）填空项 1:_41.表达式(2+8*3)/2 的值是 1。（分数：2.00）填空项 1:_42.程序运行后，利用冒泡法对数组 a 中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 Ptivat
21、e Sub Form_load() Dima(1T05)As Integer,n=5 a(1)=20：a(2)=25：a(3)=10：a(4)=40：a(5)=15 _ Forz=1 To n-m If a(z)a(z+1)Then t=a(z) a(z)=(z+1) a(z+1)=t End If NextZ Nextm End Sub（分数：2.00）填空项 1:_43.假定当前日期为 2002 年 12 月 16 日，星期一，则执行以下语句后，输出结果是 16、12、 2002_。 PrintDay(Now)CR PrintMonth(NOW)CR PrintYear(Now)CR Pr
22、intWeekday(NOW)CR（分数：2.00）填空项 1:_下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用 TAB 键来切换。请填空。Private SubU 11 /UKeyDown(KeyCode As Integer,Shift As Integer)If KeyCodeU 12 /UvbKeyRetum ThenText2.SetFocusEnd IfEnd Sub（分数：4.00）(1).（分数：2.00）填空项 1:_44.下列程序的执行结果是_。 PrivateFunctionP(NA
23、SInteger) Fori=1 To N SUM=SUM+i Nexti P=SUM End Function Privte Sub Commandl_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub（分数：2.00）填空项 1:_45.下列程序的作用是将三个数按从大到小进行排序，请填空。 If ab Then d=a a=b b=d End If If ac Then d=a a=c c=d End If If_Then d=b b=c c=d End If Printa,b,c（分数：2.00）填空项 1:_46.要将 Form2 作为无模式对话
24、框打开，且随窗体 Form3 最小化而最小化，随 Form3 关闭而关闭，相应的Show 语句为 1。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-360 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.如果 A 为整数且|A|100。则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是( )。（分数：2.00）A.If Int(=AAndSqr(100ThenPrintI“OK“ElsePrint“Error“B.If Fix(=AAndAbs(100ThenPrint“OK“ElseP
25、rint“Error“ C.If int(=AAnd(A=100,A=100)ThenPrint“OK“ElsePrint“Error“D.If Fix(=AAndA=100AndA=100Thenhim“OK“ElsePrint“Error“解析：2.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）A.TextB.LengthC.SelText D.SelStart解析：3.保存新建的工程时，默认的路径是( )。（分数：2.00）A.My DocumentsB.VB98 C.6/D.Windows解析：4.决定控件上文字的字体、字形、字号、效果的属性是( )。（分数：2
26、.00）A.TextB.CaptionC.NameD.Font 解析：5.设 a=4，b=3，c=2，d=1，下列表达式的值是( )。 ab+1 Or cdAnd b Modc（分数：2.00）A.TrueB.1C.-1D.0 解析：6.下面程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,b) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub（分数：2.00）A.225 1.5B.1.5 2.25C.2.25 3.75 D.0.75 1.5解析：7.在
27、窗体上画一个命令按钮，名称为 Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() DimA(4)As Integer,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为( )。（分数：2.00）A.0B.2 C.3D.4解析：8.设有如下通用过程： Public Sub Fun(a()，By Val x As Intege
28、r) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下的事件过程： Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i Next n=10 Call Fun(alt()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.10 B.15C.25D.24解析：9.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指(
29、 )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对 解析：10.以下说法不正确的是( )。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型 C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组的所有元素进行初始化解析：11.以下有关数组定义的语句序列中，错误的是( )。 （分数：2.00）A.B.C.D. 解析：12.设有如下的记录类型： Type Student Number As String Name As
30、 String Age As Integer End Sub 则能正确引用该记录类型变量的代码是( )。（分数：2.00）A.Studenname=“B.Dim s As Studentname=“张红” C.Dims As Tye Studentname=“张红”D.DimsAsTypename=“张红”解析：13.下述程序的运行结果是( )。 j=0 DoWhilej30 j=(0+1)*(0+2) k=k+1 Loop Printk;j（分数：2.00）A.01B.3182 C.3030D.430解析：14.下列关于图片框的语句中错误的是( )。（分数：2.00）A.Picture1.P
31、icture=Picture2.PictureB.Picture1.Picture=LoadPicture(“C:/vb60/Arw04Uico“)C.Picture1.PrintTab(20)；CurrentX，CurrentYD.Picture1.Stretch=True 解析：15.若要将窗体 Form1 的标题栏文本改为“欢迎使用本软件!”，下列语句正确的是( )。（分数：2.00）A.Form1.NAMF=“欢迎使用本软件!”B.FormlCaption=“欢迎使用本软件!”C.SetFormCaption=“欢迎使用本软件!”D.FormCaprion=“欢迎使用本软件!” 解析：
32、16.下列程序段错误的是( )。 （分数：2.00）A. B.C.D.解析：17.使两种完全不同的应用程序进行通信的技术称为( )技术。（分数：2.00）A.动态数据交换 B.动态链接库C.对象链接D.对象嵌入解析：18.无论何种控件，都具有一个共同属性。这个属性是( )。（分数：2.00）A.TextB.FontC.Name D.Caption解析：19.在窗体上画两个单选按钮，名称分别为 Opfion1，Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为 Check1，标题为“粗体”：一个文本框，名称为 Text1，Text 属性为“改变文字字体”。要求程序运行时，“宋体”单
33、选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是( )。（分数：2.00）A.Option1.Value=True Check1.Value=FalseB.Oprion1.Value=True Check1.Value=TmeC.Option2.Value=False Check1.Value=TmeD.OptionValue=True Check1.Value=1 解析：20.在窗体上画一个命令按钮和一个文本框，其名称分别为 Commandl 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click() a
34、=InputBox(“Enter an integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示内容是( )。（分数：2.00）A.108 B.18C.810D.出错解析：21.在窗体上画 1 个命令按钮(名称为 Commandl)和 1 个文本框(名称为 Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X C
35、aseIS=10，IS=-10 y=X Case-10 To 10 y=-X End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是( )。（分数：2.00）A.执行 y=x*x B.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.程序出错解析：22.下列能正确输出 2,345.67 的语句是( )。（分数：2.00）A.Print Format$(2345.668，“00000.00#)“B.PrintFormat$(2345.668，“#，#.#“) C.PrintFormat$(2345.668，“0,000000“)D.Pr
36、intFormat$(2345.668，“#.#“)解析：23.有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入 a 的值”) a=Val(a) b=InputBox(“请输入 b 的值”) b=Val(b) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值 30，20，10，-1，输出结果为( )。（分数：2.00）A.6000B.-10 C.200D.-6000解析：24.要从自定义对话框 Form2 中退出，可以在该对话框的“退出”按钮 Chck 事件过程中使用(
37、)语句。（分数：2.00）A.Form2.UnloadB.UnloaForm2 C.HidForm2D.Form2.Hide解析：25.语句 Print“Sgn(-26)=“；Sgn(-26)的输出结果为( )。（分数：2.00）A.Sgn(-26)=26B.Sgn(-26)=-26C.Sgn(-26)=+1D.Sgn(-26)=-1 解析：26.使用 PublicConst 语句声明一个全局的符号常量时，该语句应放在( )。（分数：2.00）A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段 D.窗体模块或标准模块的通用声明段解析：27.与键盘操作有关的事件有 KeyPress、Ke
38、yUp 和 KeyDown 事件，当用户按下并且释放一个键后，这三个事件发生的顺序是( )。（分数：2.00）A.KeyDown、KeyPress、KeyUp B.KeyDown、KeyUp、KeyPressC.KeyPress、KeyDown、KeyUpD.没有规律解析：28.下列描述中正确的是( )。（分数：2.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D.软件工程只是解决软件开发中的技术问题解析：29.编写如下事件过程： Private Sub Form_Activate() Dim
39、score(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是( )。（分数：2.00）A.642B.246 C.2D.6解析：30.在长度为 64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为( )。（分数：2.00）A.63B.64 C.6D.7解析：31.下列不属于 Visual Basic 特点的是( )。（分数：2.00）A.对象的链接与嵌入B.
40、结构化程序设计C.编写跨平台应用程序 D.事件驱动程序编程机制解析：32.在代码编辑器中，如果一条语句太长，无法在一行内写下(不包括注释)，要折行书写，可以在行末使用续行字符( )，表示下一行是当前行的继续。（分数：2.00）A.一个空格加一划字符(_) B.一个划字符(_)C.直接回车D.一个空格加一个连字符(-)解析：33.表达式 Mid(“SHANGHAI“，6，3)的值是( )。（分数：2.00）A.SHANGHB.SHAC.ANGHD.HAI 解析：34.表达式 5Mod3+3/5*2 的值是( )。（分数：2.00）A.0B.2 C.4D.6解析：35.以下关于文件的叙述中，错误的
41、是( )。（分数：2.00）A.使用 Append 方式打开文件时，文件指针被定位于文件尾B.当以输入方式(Inpu 打开文件时，如果文件不存在，则建立一个新文件 C.顺序文件各记录的长度可以不同D.随机文件打开后，既可以进行读操作，也可以进行写操作解析：二、B填空题/B(总题数：13，分数：30.00)36.工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项 1 的下拉菜单中。（分数：2.00）填空项 1:_ （正确答案：编辑）解析：37.某二叉树中度为 2 的结点有 18 个，则该二叉树中有 1 个叶子结点。（分数：2.00）填空项 1:_ （正确答案：19）解析：38.诊断和改正
42、程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_ （正确答案：调试或程序调试或软件调试或 Debug(英文字母大小写均可)）解析：39.下列程序段的输出结果为_。 Dimy As Integer Private Sub Commandl_CUck() DimX As Integer x=2 TeKt1.Text=SecondFunc(FirStFunC(X)，y) Text2.Text=FirstFunc(X) End Sub PrivateFunctionFirstFunc(XASInteger)As Integer x=x+y:y=x+y FirstFunc=x+y End
43、Function PtivateFunction SecondFunc(X As Integer,y AS Integer)As Integer SecondFunc=2*x+y End 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 As Integer,n A
44、s Intege,S As Double，Sn As Doublea=Fix(9*Rnd)+1n=Pix(6*Rnd)+5Sn=0S=0Fori=1 ToU 5 /US=S+a*10(i-1)U 6 /UPrintSnNextiEnd Sub（分数：4.00）(1).（分数：2.00）解析：填空项 1:_ （正确答案：Sn=Sn+s）解析：40.在 Selectcase 结构中应至少包含一个 1 子句。（分数：2.00）填空项 1:_ （正确答案：Case）解析：41.表达式(2+8*3)/2 的值是 1。（分数：2.00）填空项 1:_ （正确答案：13）解析：42.程序运行后，利用冒泡法对
45、数组 a 中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 Ptivate Sub Form_load() Dima(1T05)As Integer,n=5 a(1)=20：a(2)=25：a(3)=10：a(4)=40：a(5)=15 _ Forz=1 To n-m If a(z)a(z+1)Then t=a(z) a(z)=(z+1) a(z+1)=t End If NextZ Nextm End Sub（分数：2.00）填空项 1:_ （正确答案：Form=1 to n-1）解析：43.假定当前日期为 2002 年 12 月 16 日，星期一，则执行以下语句后，输出结果
46、是 16、12、 2002_。 PrintDay(Now)CR PrintMonth(NOW)CR PrintYear(Now)CR PrintWeekday(NOW)CR（分数：2.00）填空项 1:_ （正确答案：2）解析：下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用 TAB 键来切换。请填空。Private SubU 11 /UKeyDown(KeyCode As Integer,Shift As Integer)If KeyCodeU 12 /UvbKeyRetum ThenText2.SetF
47、ocusEnd IfEnd Sub（分数：4.00）(1).（分数：2.00）解析：填空项 1:_ （正确答案：=）解析：44.下列程序的执行结果是_。 PrivateFunctionP(NASInteger) Fori=1 To N SUM=SUM+i Nexti P=SUM End Function Privte Sub Commandl_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub（分数：2.00）填空项 1:_ （正确答案：20）解析：45.下列程序的作用是将三个数按从大到小进行排序，请填空。 If ab Then d=a a=b b=d End If If ac Then d=a a=c c=d End If If_Then d=b b=c c=d End If Printa,b,c（分数：2.00）填空项 1:_ （正确答案：bc）解析：46.要将 Form2 作为无模式对话框打开，且随窗体 Form3 最小化而最小化，随 Form3 关闭而关闭，相应的Show 语句为 1。（分数：2.00）填空项 1:_
