计算机二级考试VB巩固题

计算机二级考试VB巩固题巩固题一：1.要使窗体Form1显示出来，应使用(【55】)(A)LoadForm1(B)Form1Load(C)Show.Form1(D)Form1.Show2.在使用通用对话框之前要先将(【56】)添加到工具箱中。(A)ActiveX(B)ComboBox(C)CommonDialog(D)Color3.用Open语句打开文件时，若省略For子句，则隐含打开文件的存取方式为(【57】)(A)Binary(B)Random(C)Input(D)OutPut4.设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是(A)“条件”可以是关系表达式、逻辑表达式或常数(B)循环体中可以使用ExitDo语句(C)若“条件”是一个为0的常数，则一次也不执行循环体(D)如果“条件”总是为True，则不停地执行循环体5.要获得打开文件的长度(字节数)应用使用(【58】)函数。(A)FileLen(B)Len(C)Loc(D)Lof6.给文件改名的VB语句正确的是(【59】)(A)Name原文件名To新文件名(B)Rename原文件名To新文件名(C)Name原文件名As新文件名(D)Rename原文件名As新文件名7.在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a(i)=iNextCallSwap【5】Fori=1To10Printa(i);NextEndSubSubSwap(b()AsInteger)n=【5】Fori=1Ton/2t=b(i)b(i)=b(n)b(n)=t【5】NextEndSub上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。8.在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=【5】EndSubPrivateSubForm_Click()Timer1.Enabled=【6】EndSubPrivateSubTimer1_Timer()Label1.Caption=【7】EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。9.下面程序用选择法将数组a中的10个整数按升序排列。算法是：从数组中找出最小的值，将该数与第1个数交换，这样第1个数组元素是最小的数。再从第2个数开始，找出其后各数组元素中最小的数，将该数与第2个数交换位置，这样第2个数是次小的'数。如此重复上述过程，即可将数组排序。请完善以下的程序：OptionBase1PrivateSubCommand1_Click()Dima(1To10)AsInteger,iAsInteger,jAsInteger,kAsIntegerFori=1To10a(i)=Val(InputBox(“请输入第a(”&i&“)个数：”))NextiFori=1To9【60】Forj=i+1To10Ifa(k)【61】a(j)Thenk=jNextjTemp=a(i):【62】:a(k)=TempNextiFori=1To10Printa(i),NextiEndSub【60】(A)k=0(B)k=1(C)k=i(D)k=j【61】(A)=(B)<>(C)<(D)>【62】(A)a(i)=a(j)(B)a(j)=a(i)(C)a(k)=a(i)(D)a(i)=a(k)10.设有程序：OptionBase1PrivateSubCommand1_Click()Dimarr1,MaxasIntegerarr1=Array(12,435,76,24,78,54,866,43)【12】=arr1(1)Fori=1To8Ifarr1(i)>MaxThen【13】NextiPrint"最大值是:";MaxEndSub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。巩固题二：1.执行以下程序段后，变量c$的值为(【45】)a$=“VisualBasic6.0Programing”b$=“Design”c$=Lcase(Mid$(a$,7,6))&Right$(a$,11)&b$(A)Visualbasic6.0design(B)basicProgramingDesign(C)BASICProgramingDesign(D)VisualBASIC6.0design2.假定有一个菜单项，名为MenuDiv，为了在运行时使该菜单项失效(变灰)，应使用的语句是(【46】)(A)MenuDiv.Visible=False(B)MenuDiv.Visible=True(C)MenuDiv.Enabled=False(D)MenuDiv.Enabled=True3.为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是(【47】)(A)Enabled(B)Interval(C)Timer(D)Visible4.为了把一个记录型变量Stu的内容写入随机文件Ks48.dat中的指定位置，所使用的语句格式为(【48】)(A)Put#文件号,记录号,Stu(B)Put#文件号,Stu,记录号(C)Get#文件号,记录号,Stu(D)Get#文件号,Stu,记录号5.Sub过程的定义(【49】)(A)一定要有形参(B)一定要有过程的名称(C)一定要指明是公有的还是私有的(D)一定要指定其类型6.Function过程有别于Sub过程的最主要的特点是(【50】)(A)Function过程一定要有形参，而Sub过程可以没有形参(B)Function过程的终端语句是EndFunction，而Sub过程的终端语句是EndSub(C)Function过程用于计算函数值，而Sub过程用于改变属性值(D)Function过程要返回函数值，而Sub过程没有值的返回7.要定义一个过程为局部过程，应用使用(【51】)关键字。(A)Public(B)Static(C)Sub(D)Private8.下列定义Func为函数过程的定义语句中错误的是(【52】)(A)FunctionFunc(aAsInteger)AsInteger(B)StaticFunctionFunc(a)(C)PrivatePublicFunc(a)AsInteger(D)PrivateFunctionFunc(aAsSingle)9.标准模块存盘后，形成的磁盘文件扩展名为(