VB语言程序设计专升本期末考试总复习资料

VB(VisualBasic)语言程序设计专升本期末考试总复习资料《VisualBasic程序设计》复习题一.单选题1、InputBox函数返回值的类型是______。A：数值B：字符串C：变体D：数值或字符串2、下面关于数组操作正确的是______。A：OptionBase2B：n=10Dima(n)AsIntegerC：Dima()AsIntegera(1)=100D：Dimaa=Array(1,2,3,4,5,6)3、已知有如下数组定义Dima(-3To6,5,3To10)AsInteger则执行语句PrintLBound(a,2);UBound(a,2)，输出的值为______。A：-36B：05C：15D：3104、以下四个选项中，对VisualBasic描述正确的是______。A：VisualBasic窗体文件扩展名为vbpB：一个VisualBasic应用程序可以包含多个窗体文件C：一个窗体文件可以有多个代码窗口D：VisualBasic程序按过程编写先后顺序依次执行5、以下四个选项中，对VisualBasic描述正确的是______。A：VisualBasic窗体文件扩展名为vbpB：一个VisualBasic应用程序可以包含多个窗体文件C：一个窗体文件可以有多个代码窗口D：VisualBasic程序按过程编写先后顺序依次执行6、要改变窗体的标题时，应当在属性窗口中改变的属性是________。A：NameB：TextC：CaptionD：Label7、设在名称为Myform的窗体上只有一个名称为C1的命令按钮，下面叙述正确的是________。A：窗体的Click事件过程名是Myform_Click()B：命令按钮的Click事件过程名是C1_Click()C：命令按钮的Click事件过程名是Command1_Click()D：以上都是错误的8、以下能在窗体Form1的标题栏上显示"VB窗体"的语句是________。A：Form1.Name="VB窗体B：Form1.Title="VB窗体"C：Form1.Caption="VB窗体"D：Form1.Text="VB窗体"9、语句PrintFormat(12345,"0000,00.00")输出结果为________。A：12345.00B：12345C：012,345.00D：123,4510、设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是________。A：Text1.maxlengh=0B：Text1.Enabled=FalseC：Text1.Visible=FalseD：Text1.Width=011、设有语句x=InputBox("输入数值"，"0"，"示例")程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是________。A：变量x的值是数值10B：在InputBox对话框标题栏中显示的是"示例"C：0是默认值D：变量x的值是字符串"10"12、在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：PrivateSubTimer1_________()TxtTime.text=TimeEndSub在下划线后应填入的内容是________。A：EnabledB：VisibleC：IntervalD：Timer13、执行下面的语句后，所产生的信息框的标题是________。a=MsgBox("AAAA"，，"BBBB"，""，5)A：BBBBB：空C：AAAAD：出错，不能产生信息框14、设列表框List1已有5个列表项，则以下不能实现将字符串"AAA"添加到列表框最末尾的语句是__。A：List1.AddItem"AAA"B：List1.AddItem"AAA",List1.ListCountC：List1.AddItem"AAA",List1.ListIndexD：-x15、在以下表达式中结果始终为"真"的是_______。A：Int(Rnd)=Fix(Rnd)B：Int(Rnd*20)>Fix(Rnd*3+5)C：Int(-Rnd)=Fix(-Rnd)D：-Int(Rnd*20)<-Fix(Rnd*3+5)16、根据变量的作用域，VB中可以将变量分为3类，分别是_______。A：局部变量、模块变量和全局变量B：局部变量、模块变量和标准变量C：局部变量、模块变量和窗体变量D：局部变量、标准变量和全局变量17、以下叙述中错误的是_______。A：VisualBasic应用程序既能以编译方式执行，也能以解释方式执行。B：对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。C：保存VisualBasic程序时，应分别保存窗体文件及工程文件。D：事件只能由用户引发。18、对语句Dima&,b%,c$,d!判断错误的是______。A：声明变量a是长整型B：声明变量b是整型C：声明变量c是货币型D：声明变量d是单精度型19、下列说法错误的是_______。A：标准模块文件的扩展名为.basB：一个窗体对应一个窗体文件C：VisualBasic中的一个工程只包含一个窗体D：VisualBasic中一个工程最多可以包含255个窗体20、保存一个工程至少应保存两个文件，这两个文件分别是_______。A：文本文件和工程文件B：窗体文件和工程文件C：窗体文件和标准模块文件D：类模块文件和工程文件21、通过以下_______窗口可以在设计时直观的调整窗体在屏幕上的位置。A：代码窗口B：窗体布局窗口C：窗体设计窗口D：属性窗口22、下面可以正确定义2个整形变量和1个字符串变量的语句的是_________。A：Dimn,mAsInteger,sAsStringB：Dima%,b$,cAsStringC：DimaAsInteger,b,cAsStringD：Dimx%,yAsInteger,zAsString23、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下事件过程：PrivateSubText1_Change()Label1.Caption=Right(Trim(Text1.Text),3)EndSub程序运行后，在文本框中输入"abcdef"，单击命令按钮，则在标签中显示的内容是_________。A：空B：abcdefC：abcD：def24、Sub过程与Function过程最根本的区别是_______。A：Sub过程可以直接使用过程名调用，而Function过程不可以B：Function过程可以有参数，而Sub过程不可以C：两种过程参数传递方式不同D：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值25、在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。A：ByValB：ByRefC：ValueD：reference26、设有如下通用过程：PublicFunctionfun(xAsInteger)DimyAsIntegerx=30:y=4fun=x*yEndFunction在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerx=20:y=10y=fun(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_______。A：2010B：3010C：204D：3012027、下列叙述中正确的是________。A：在窗体的Form_Load事件过程中定义的变量是全局变量B：局部变量的作用域可以超出所定义的过程C：在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D：在调用过程时，所有局部变量被系统初始化为0或空字符串28、在窗体上画一个名称为Command1的命令按钮然后编写如下程序PrivateSubCommand1_Click()DimXAsIntegerStaticYAsIntegerClsx=x+5y=y+3PrintX，YEndSub程序运行时，两次单击命令按钮Command1后，窗体显示的结果是________。A：106B：56C：53D：10329、有关VB应用程序中过程的说法正确的是________。A：过程的定义可以嵌套，但过程的调用不能嵌套B：过程的定义不可以嵌套，但过程的调用可以嵌套C：过程的定义和调用都可能嵌套D：过程的定义和调用都不能嵌套30、在VB中，过程共有三种，它们是________。A：事件过程，子过程和函数过程B：Sub过程，函数过程和属性过程C：事件过程，函数过程和通用过程D：Sub过程，函数过程和通用过程二、填空题1、窗体上有一个命令按钮，事件代码如下：PrivateSubCommand1_Click()a="3"b="5"a=Val(a)+Val(b)b=Val("35")Ifa=bThenPrinta-bElsePrintb-aEndSub程序运行后，单击命令按钮，输出___。2、有下图所示的用户登录界面，用户输入的密码字符均以"*"显示，若用户输入的用户名为admin，且密码为hello，则登录成功，否则登录失败，提示用户，并将两文本框（名称分别为Text1、Text2）清空，进行重新输入。请将程序补充完整。PrivateSubCommand1_Click()IfText1.Text<>"admin"Or_【1】ThenMsgBox"对不起，你输入的用户名或密码不正确，请重新输入"Text1=""Text2=""ElseMsgBox"登录成功!"EndIfEndSubPrivateSubForm_Load()Text2.【2】_="*"EndSub3、下面程序采用比较交换法对数组进行升序排序，请将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dima,nAsInteger,i%,j%a=Array(23,546,34,27,5,68,435,9,78,89)n=【1】__Print"排序前数组值："Fori=1TonPrinta(i);NextiPrintFori=1To__【2】__Forj=i+1TonIfa(i)>a(j)Thent=a(i)__【3】__a(j)=tEndIfNextjNextiPrint"升序排序后数组值："Fori=1TonPrinta(i);NextiEndSub4、当文本框得到焦点时触发__事件，当文本框失去焦点时触发LostFocus事件。5、下列程序的输出结果是__。PrivateSubForm_Click()a="HelloGoodMorning"b=Left(a,5)c=Mid(a,10)d=b+cPrintdEndSub6、表示Z是3的倍数或是7的倍数的逻辑表达式为_。7、运行以下程序，输出的结果为_____。PrivateFunctionjc(xAsInteger)AsLongDimiAsIntegerjc=1Fori=1Toxjc=jc*iNextiEndFunctionPrivateSubForm_Click（）DimheasLonghe=jc(5)+jc(3)PrintheEndSub8、下面程序运行后，单击命令按钮，窗体上输出的结果是：【1】、【2】和_【3】_。DimxAsInteger,yAsIntegerPrivateFunctionf(xAsInteger)DimyAsIntegerx=x+2f=x+yEndFunctionPrivateSubp(ByValzAsInteger)x=y+zEndSubPrivateSubCommand1_Click()x=1:y=1Callp(x)z=f(y)Printx;y;zEndSub9、在窗体上添加一个名称为Command1的命令按钮及3个名称分别为Label1，Label2，Label3的标签，并编写如下程序，程序运行后，单击该命令按钮，在Label1显示的值为__【1】___，在Label2显示的值为__【2】__，在Label3显示的值为____【3】___。OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(10,25,5,15,5)Max=a(1):Min=a(1)Fori=1ToUBound(a)Sum=Sum+a(i)Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)NextiLabel1.Caption=MaxLabel2.Caption=MinLabel3.Caption=Sum/5EndSub10、下列程序代码的功能是在窗体上打印数组a中的最小值，请将程序代码补充完整。OptionBase1PrivateSubCommand1_Click()DimaAsVariantDimiAsInteger,xAsIntegera=Array(9,7,10,2,8,12)x=___【1】____Fori=LBound(a)+1ToUBound(a)Ifa(x)>a(i)Then____【2】_____NextiPrinta(x)EndSub三、判断题1、标签和文本框的功能都是在程序运行时只能显示文本内容不能编辑文本内容。2、MsgBox函数可用来接受用户输入的字符串内容。3、要使计时器每隔1分钟记一次时，设置该计时器的Interval属性值为14、函数过程形参的类型与函数返回值的类型没有关系。5、在不同的模块中可以声明定义相同名字的模块级变量，它们代表不同的变量，而且作用域范围不同，因此互不干扰。6、若参数是按地址传递的，形参和实参类型可以不同。7、根据文件的存取方式不同，可以将文件分为顺序文件和随机文件。8、执行程序段Fori=1To100Sum=Sum+iNexti后，i的值为1009、循环DoWhilen=100Loop表示当n=100时循环10、VB中布尔型（Boolean）的值只有True和False。11、执行程序段Fori=100To1Sum=Sum+iNexti后，i的值为012、折半（二分）查询只适合于有序数组。13、有程序段Dima(10)AsIntegera(10)=100两处的a(10)含义相同14、单选按钮选中时，其Value属性为True。15、为了清除列表框中所有内容，应使用Clear方法.16、确定一个控件在窗体上的位置的属性是Left、Top。17、每一个If结构必须以EndIf语句作为结束。18、用数组作为过程的参数时，既能以传值方式传递，也能以传地址方式传递。19、print方法可用于图片框控件输出信息。20、VB是一种面向过程的程序设计语言。四、编程题1、由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分。最后给出总得分。2、验证“哥德巴赫猜想：任何一个大于6的偶数，可以表示为两个素数之和”，从键盘输入一个大于6的偶数后，打印出所有的分解结果。3、一个简易的成绩评定程序，根据评委们给出的成绩，按去掉一个最高分和一个最低分，求平均分的方法求选手的成绩。参考界面如下：编写单击窗体事件过程，从键盘上输入10个数据并保存在一个一维数组中，找出该数组中最大元素和最小元素的值，并将结果写入顺序文件"D:\test1.dat"。参考答案《VB程序设计》复习题一、选择题1.B2.D3.B4.B5.A6.C7.B8.C9.C10.B11.D12.D13.A14.C15.A16.A17.D18.C19.C20.B21.B22.D23.D24.D25.A26.D27.C28.B29.B30.A二、填空题1.272.【1】Text2.Text=”hello”,【2】PasswordChar3.【1】Ubound(a)【2】n-1【3】a(i)=a(j)4.SetFocus5.HelloMorning6.ZMod3=0OrZMod7=07.1268.【1】2【2】3【3】39.【1】25【2】5【3】1210.【1】1【2】a(x)=a(i)三、判断题1.F2.F3.F4.F5.T6.F7.T8.F9.T10.T11.F12.T13.F14.T15.T16.F17.F18.F19.T20.F四、编程题1、程序代码如下PrivateSubForm_Click()s=0Fori=1To10a=Int(10*Rnd)b=Int(10+10*Rnd)str1$="第"&i&"题"&a&"+"&bc=Val(InputBox(str1$&"第一次回答"))Ifa+b=cThens=s+10str2$=str1$&"10分"Elsec=Val(InputBox(str1$&"第二次回答"))Ifa+b=cThens=s+5str2$=str1$&"5分"Elsestr2$=str1$&"0分"EndIfEndIfForm1.Printstr2$NextiForm1.Print"总分";sEndSubPrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"加法题，第一次回答正确10分，"Form1.Print"第二次回答正确5分"Form1.Print"单击窗体开始"EndSub2、程序代码如下PrivateSubForm_Click()n=Val(InputBox("输入一个大于6的偶数"))Ifn<=6OrnMod2<>0ThenForm1.Print"数据错误"ElseForm1=2Ton/2m2=n-m1f=0Fori=2Tom1-1Ifm1Modi=0Thenf=1:ExitForNextiFori=2Tom2-1Ifm2Modi=0Orf=1Thenf=1:ExitForNextiIff=0ThenPrintm1;m2Nextm1EndIfEndSubPrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"打印两个素数之和"Form1.Print"单击窗体开始"EndSub3、程序代码如下：PrivateSubCommand1_Click()DimsumAsSingleDimmaxAsSingle,minAsSinglesum=0Fori=0To5Text1(i).Text=Int(Rnd*10)/10+9sum=sum+Val(Text1(i).Text)Nextimin=Val(Text1(0).Text):max=Val(Text1(0).Text)Fori=1To5Ifmin>Val(Text1(i).Text)Thenmin=Text1(i).TextEndIfIfmax<Val(Text1(i).Text)Thenmax=Text1(i).TextEndIfNextiaverage=(sum-min-max)/4Label4.Caption=Int(average*10)/10EndSub4、程序代码如下：OptionBase1PrivateSubForm_Click()Dima(10)AsIntegerFori=1To10a(i)=Val(InputBox("请输入数"))NextiOpen"test1.dat"ForOutputAs#1Max=a(1)Min=a(1)Fori=2To10Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)NextiWrite#1,Max,MinClose#1EndSub《VisualBasic程序设计》复习题一.单选题1、在VB中，将多条语句写在同一行，需加______进行分隔。A：,B：:C：;D：空格答案：B2、下面程序段执行后，输出的结果是______。DimpiAsIntegerpi=3.14Print"pi"A：3.14B：3C：piD：有语法错误答案：C3、下面关于数组操作正确的是______。A：OptionBase2B：n=10Dima(n)AsIntegerC：Dima()AsIntegera(1)=100D：Dimaa=Array(1,2,3,4,5,6)答案：D4、以下均为窗体的事件，在一次程序执行过程中，一定会被触发的事件是______。A：LoadB：ClickC：UnloadD：DblClick答案：A5、以下叙述中错误的是_________。A：一个工程可以包括多种类型的文件B：VisualBasic应用程序既能以编译方式执行，也能以解释方式执行C：程序运行后，在内存中只能驻留一个窗体D：对于事件驱动型应用程序，每次运行时的执行顺序可以不一样答案C6、下面关于过程叙述错误的是______。A：可以在事件过程中调用通用过程B：不能在函数过程中定义事件过程C：函数过程可以返回多个值D：一个Sub过程必须有一个EndSub语句答案：C7、执行语句s=Len(Mid("BeiJing",1,7))后，s的值是______。A："BeiJing"B："BeiJin"C：7D：8答案：C8、下面______是合法变量名。A：k-stringB：stringC：kstringD：k_string答案：D9、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：PrivateSubCommand1_Click()S$=InputBox("请输入一个字符串")Text1.Text=S$EndSubPrivateSubText1_Change()Label1.Caption=UCase(Mid(Text1.Text,7))EndSub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是________。A：BASICB：BasicC：basicD：VisualBasic答案：A10、下面程序运行后，第3次单击窗体后，窗体中输出的是______。DimaAsIntegerPrivateSubForm_Click()StaticcAsIntegerClsa=a+1b=b+1c=c+1Printa;b;cEndSubA：111B：113C：313D：333答案：C11、下面选项中VisualBasic数据类型关键字与其说明符不一致的是______。A：Integer!B：String$C：Long&D：Double#答案：A12、要改变窗体的标题时，应当在属性窗口中改变的属性是________。A：NameB：TextC：CaptionD：Label答案：C13、设在名称为Myform的窗体上只有一个名称为C1的命令按钮，下面叙述正确的是________。A：窗体的Click事件过程名是Myform_Click()B：命令按钮的Click事件过程名是C1_Click()C：命令按钮的Click事件过程名是Command1_Click()D：以上都是错误的答案：B14、以下说法正确的是________。A：窗体文件的扩展名为.vbpB：一个窗体对应一个窗体文件C：VB中的一个工程只包含一个窗体D：VB一个工程最多可包含256个窗体答案：B15、无论何种控件，都具有一个共同的属性________。A：CaptionB：NameC：TextD：Font答案：B16、语句a=InputBox("today","tomorrow","yesterday",,,"daybeforeyesterday",5)将显示一个对话框，在对话框的输入区中显示的信息是（）。A：todayB：tomorrowC：yesterdayD：daybeforeyesterday答案：C17、设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是________。A：Text1.maxlengh=0B：Text1.Enabled=FalseC：Text1.Visible=FalseD：Text1.Width=0答案：B18、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置是________。A：Timer1.Interval=0.5B：Timer1.Interval=5C：Timer1.Interval=50D：Timer1.Interval=500答案：D19、在窗体（Name属性为Forml）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()A=Text1.Text+Text2.TextPrintaEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为__________。A：444B：321123C：123321D：132231答案：C20、以下循环结构中，任何情况下至少执行一次循环体的是______。A：For循环变量=初值To终止值循环体Next循环变量B：While<条件>循环体WendC：Do循环体LoopUntil<条件>D：DoWhile<条件>循环体Loop答案：C21、下面程序运行后，第3次单击窗体后，窗体中输出的是______。DimaAsIntegerPrivateSubForm_Click()StaticcAsIntegerClsa=a+1b=b+1c=c+1Printa;b;cEndSubA：111B：113C：313D：333答案：C22、以下能够触发文本框Change事件的操作是________。A：文本框失去焦点B：文本框获得焦点C：设置文本框的焦点D：改变文本框的内容答案：D23、在窗体上画一个文本框，然后编写如下事件过程：PrivateSubForm_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))Printx+Text1.TextEndSub程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。A：46B：123C：3412D：1234答案：A24、根据变量的作用域，VB中可以将变量分为3类，分别是_______。A：局部变量、模块变量和全局变量B：局部变量、模块变量和标准变量C：局部变量、模块变量和窗体变量D：局部变量、标准变量和全局变量答案：A25、执行下面的语句后，所产生的信息框的标题是________。a=MsgBox("AAAA"，，"BBBB"，""，5)A：BBBBB：空C：AAAAD：出错，不能产生信息框答案：A26、Cls方法可以清除窗体或图片框中的________内容。A：在设计阶段使用Picture设置的背景位图B：在设计阶段放置的控件C：在运行阶段产生的文字D：以上全部内容答案：C27、设列表框List1已有5个列表项，则以下不能实现将字符串"AAA"添加到列表框最末尾的语句是__。A：List1.AddItem"AAA"B：List1.AddItem"AAA",List1.ListCountC：List1.AddItem"AAA",List1.ListIndexD：-x答案：C28、在窗体上画1个命令按钮，并编写如下事件过程：PrivateSubCommand1_Click()Fori=5to1step-0.8PrintInt(i);NextiEndSub运行程序，单击命令按钮，窗体上显示的内容为________。A：543211B：54321C：43211D：443211答案：A29、立即窗口执行以下操作，则输出的结果是_______。a＝10：b＝15debug.Printa>bA：-1B：0C：TrueD：False答案：D30、设a="MicrosoftVisualBasic",则以下使变量b的值为"VisualBasic"的语句是_______。A：b=Left(a,10)B：b=Mid(a,10)C：b=Right(a,10)D：b=Mid(a,11,10)答案：B31、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序PrivateSubCommand1_Click()A=1234B$=Str$(A)C=Len(B$)PrintCEndSub程序运行后，单击命令按钮，则在窗体上显示的内容是_______。A：0B：5C：6D：7答案：B32、对语句Dima&,b%,c$,d!判断错误的是______。A：声明变量a是长整型B：声明变量b是整型C：声明变量c是货币型D：声明变量d是单精度型答案：C33、有变量定义语句Dimmax,minAsInteger，可以知道max的类型是_______。A：变体类型B：单精度型C：双精度型D：字符串型答案：A34、产生[10,90]闭区间之间的随机整数的表达式为_______。A：Int(Rnd*80)+10B：Int(Rnd*81)+10C：Int(Rnd*80)+11D：Int(Rnd*81)+11答案：B35、下列说法错误的是_______。A：标准模块文件的扩展名为.basB：一个窗体对应一个窗体文件C：VisualBasic中的一个工程只包含一个窗体D：VisualBasic中一个工程最多可以包含255个窗体答案：C36、下面各语句中，错误的语句是_______。A：DimA1,A2B：(A+B)=CC：A=B+CD：A="B"+C答案：B37、对变量名说法不正确的是_______。A：必须是字母开头，不能是数字或其他字符B：不能是VisualBasic的保留字C：可以包含字母、数字、下划线和标点符号D：不能超过255个字符答案：C38、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,9EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是________。A：softwareandhardwareB：softwareC：hardwareD：9答案：C39、下面关于常量或变量定义错误的是_________。A：Constn%=1B：DimnAsDouble=3.14C：DimmAsIntegerD：Dims$答案：B40、要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。A：Subswap(ByValm，ByValn)B：Subswap(m,ByValn)C：Subswap(m,n)D：Subswap(ByValm,n)答案：C41、Sub过程与Function过程最根本的区别是_______。A：Sub过程可以直接使用过程名调用，而Function过程不可以B：Function过程可以有参数，而Sub过程不可以C：两种过程参数传递方式不同D：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值答案：D42、下面程序的输出结果是_______：PrivateSubproc(chAsString)s=""Fork=Len(ch)To1Step-1s=s&Mid(ch,k,1)Nextkch=sEndSubPrivateSubCommand1_Click()ch$="ABCDEF"procchPrintchEndSubA：ABCDEFB：AC：FEDCBAD：F答案：C43、以下是一个能返回数组a中最大数的函数过程代码：Functionmaxval(a()AsInteger)AsIntegerDimmax%max=1Fori=2To10Ifa(i)>a(max)Thenmax=iNextimaxval=maxEndFunction程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是______。A：语句"max=1"应改为"max=a(1)"B：语句"Fori=2To10"应改为"Fori=1To10"C：if语句"max=k"应改为"max=a(k)"D：语句"maxval=max"应改为"maxval=a(max)"答案：D44、在窗体上画一个名称为Command1的命令按钮，编写下列程序：PrivateSubCommand1_Click()DimaAsIntegerStaticbAsIntegerclsa=a+bb=b+4Printa,bEndSub程序运行后，单击该命令按钮三次，屏幕上显示的值是________。A：412B：O4C：48D：812答案：D45、单击一次命令按钮后，下列程序的执行结果是________。PrivateSubCommand1_Click()s=P(1)+P(2)+P(3)+P(4)PrintsEndSubPublicFunctionP(NAsInteger)StaticSumFori=IToNSum=Sum+iNextiP=SumEndFunctionA：15B：25C：35D：45答案：C46、下面子过程语句说明合法的是________。A：Subf1(ByValx()AsInteger)B：Subf1(x%0)AsIntegerC：Functionf%(f1%)D：Functionf1%(xAsInteger)答案：D47、在窗体上画一个名称为Command1的命令按钮，编写如下程序PrivateSubCommand1_Click()Printpl(3,7)EndSubPublicFunctionpl(xAsSingle,nAsInteger)AsSingleIfn=0Thenpl=1ElseIfnMod2=1Thenpl=x*x+nElsepl=x*x-nEndIfEndFunction程序运行后，单击该命令按钮，窗体上显示的结果是________。A：2B：1C：0D：16答案：D48、设有如下过程：Subff(x，y，z)x=y+zEnd