计算机二级VB一至九章节测试题

二级VisualBasic1—9章考试题一、选择题：(共35小题，每小题2分)(1)下面4个选项，不是窗体属性的是()。A)MinButtonB)BorderStyleC)UnloadD)Caption(2)VB的数值型数据分为()两种。A)整数和长整数B)整数和浮点数C)单精度浮点数和双精度浮点数D)整数和货币数据类型(3)有一个日期类型的变量Datetime，以下赋值语句中错误的是()。A)Datetime=#4/14/97#B)Datetime=#September1,1997#C)Datetime=#12:15:00AM#D)Datetime=#8/8/99(4)以下选项中，正确地描述了xy和yz同时成立的表达式是()。A)xy.And.yzB)xyzC)xyAndzD)xyAndyz(5)不能正确表示两个整型变量A和B之一为0，但不能同时为0的布尔表达式是()。A)A*B=0andA+B0B)(A=0orB=0)and(A0OrB0)C)not(A=0AndB=0)and(A=0orB=0)D)A*B=0and(A=0orB=0)(6)有以下程序段，单击Command1按钮后，打印机上的输出结果是()。PrivateSubCommand1_Click()Fori=6To9Printer.PrintTab(i*i),iNextiEndSubA)678B)6789C)67D)6989789(7)已知A$=Welcome，下列语句操作能够正确执行的是()。A)Label1.Hight=A$B)Label1.Caption=A$C)Label1.Enabled=A$D)Label1.Visible=A$(8)在文本框中，要设置显示的文本的颜色，应该设置属性()。A)ForeColorB)BackColorC)FillColorD)BackStyle(9)使图像控件(Image)中的图像自动适应控件的大小应将控件的()。A)AutoSize属性设为FalseB)AutoSize属性设为TrueC)Stretch属性设为FalseD)Stretch属性设为True(10)要使命令按钮成为图形命令按钮，应设置()属性。A)PictureB)StyleC)LoadPictureD)DisabledPicture(11)复选框是否被选中，取决于复选框的()。A)Enabled属性B)Value属性C)Checked属性D)Visible属性(12)以下程序的功能是：依次将列表框List2中的项目移入列表框List1中，并将列表框List2中移走的项目删除，给程序的空白行选择适当的语句()。List1.AddItemList2.List(0):List2.RemoveItem0LoopA)DoUntilList2.ListCountB)DoUntilList1.ListCountC)DoWhileList2.ListCountD)DoWhileList1.ListCount(13)为组合框Combo1增加一个列表项电脑，下列语句正确的是()。A)Combo1.Text=电脑B)Combo1.ListIndex=电脑C)Combo1.AddItem电脑D)Combo1.ListCount=电脑(14)滚动条控件分为()两种。A)内滚动条控件和外滚动条控件B)水平滚动条控件和垂直滚动条控件C)单滚动条控件和双滚动条控件D)独立滚动条控件和组合滚动条控件(15)设置定时器控件的Interval属性为2000，Enabled属性为True，并且有下面的事件过程，程序运行时计算机将发出()次Beep声。SubTimer1_Timer()Beep’表示响铃的意思EndSubA)0B)2000C)1D)以上都不对(16)下列程序段的执行结果为()。x=Int(Rnd+4)SelectCasexCase5:PrintAClassCase4:PrintBClassCase3:PrintCClassCaseElse:PrintDClassEndSelectA)AClassB)BClassC)CClassD)DClass(17)在窗体上添加命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima(10)AsInteger,p(3)AsIntegerk=5Fori=1To10:a(i)=I:NextiFori=1To3:p(i)=a(i*i):NextiFori=1To3:k=k+p(i)*2:NextiPrintkEndSub程序的运行结果为()。A)35B)33C)31D)29(18)下列程序段的执行结果为()。a=0:b=1Doa=a+b:b=b+1LoopWhilea10Printa;bA)105B)abC)01D)1030(19)下面程序运行后，语句Printi执行的次数是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=0Doi=i+1Forj=10To1Step-3i=i+jPrintiNextjLoopWhilei50EndSubA)4B)8C)12D)16(20)在以下语句中定义了一个数组，则数组b的元素个数是()个。Dimb(-2to4)asstringA)2B)4C)6D)7(21)在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为ComTest1。设窗体Form1标题为MyForml，双击控件数组中第3个按钮，打开代码编辑器，编写如下代码：PrivaeSubComtest1_Click(IndexAsInteger)Form1.Caption=MyForm2EndSub运行时，单击按钮数组中的第1个按钮，则窗体标题显示为()。A)Form1B)ComTest1C)MyForm1D)MyForm2(22)单击命令按钮执行以下程序，则输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32CallProc(x,y)Printx;yEndSubPublicSubProc(nAsInteger,ByValmAsInteger)n=nMod10:m=mMod10EndSubA)1232B)232C)23D)123(23)设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下列正确的事件过程是()。A)PrivateSubCommandl_Click()B)PrivateSubCommandl_Click()Textl.GotFocusCommandl.GotFocusEndSubEndSubC)PrivateSubCommandl_Click()D)PrivateSubCommandl_Click()Textl.SetFocusCommandl.SetFocusEndSubEndsub(24)执行下列程序后输出的是()。PrivateSubCommandl_Click()Ch$=ABCDEFGH∶PrintMid(Right(ch$,6),Len(Left(ch$,4),2)EndSubA)CDEFGHB)ABCDC)FGD)AB(25)设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是()。A)PrivateSubList1_Click()B)PrivateSubForm1_Click()PrintList1.TextPrintList1.TextEndSubEndSubC)PrivateSubList1_Click()D)PrivateSubForm1_Click()PrintForm1.TextList1.PrintList1.TextEndSubEndSub(26)若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指()。A)按钮左端到窗体左端的距离B)按钮左端到图片框左端的距离C)按钮中心点到窗体左端的距离D)按钮中心点到图片框左端的距离(27)某人设计了下列程序用于计算并输出7!(7的阶乘)：PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPrinttEndSub执行程序时，发现结果是错误的。下列修改方案中能得到正确结果的是()。A)把t=0改为t=1B)把Fork=7To2Step-1改为Fork=7To1Step-1C)把Fork=7To2Step-1改为Fork=1To7D)把Next改为Nextk(28)若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是()。A)把所有单选按钮的Index属性改为相同值B)把所有单选按钮的Index属性改为连续的不同值C)把所有单选按钮的Caption属性值改为相同D)把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值(29)某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程下列。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer1_Timer()Label1.Caption=Time＄EndSub在程序执行时发现未能实现以上目的，那么，他应做的修改是()。A)通过属性窗口把计时器的Interval属性设置为2000B)通过属性窗口把计时器的Enabled属性设置为FalseC)把事件过程中的Label1.Caption=Time＄语句改为Timer1.Interval=Time＄D)把事件过程中的Label1.Caption=Time＄语句改为Label1.Caption=Timer1.Time(30)形状控件的Shape属性有6种值，分别代表6种图形。下列不属于这6种图形的是()。A)B)C)D)(31)设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是()。A)Picture1.Picture=File1.jpgB)Picture1.Picture=LoadPicture(File1.jpg)C)LoadPicture(File1.jpg)D)CallLoadPicture(File1.jpg)(32)下列程序执行时，在窗体上显示的是()。PrivateSubCommand1_Click()Dima(10)Fork=1To10a(k)=11-kNextkPrinta(a(3)\a(7)Moda(5))EndSubA)3B)5C)7D)9(33)有以下程序段，单击命令按钮执行程序后，输出结果为()。OptionBase1PrivateSubCommand1_Click()Dimxx=Array(23,-5,17,38,-31,46,11,8,5,-4)s1=0:s2=0Fork=1To10If(x(k)0)Thens1=s1+x(k)Elses2=s2+x(k)EndIfNextkY=s1/Abs(s2)PrintYEndSubA)148B)40C)-40D)3.7(34)下面程序执行时，输出的结果是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=10Doi=i+jForj=10ToiStep-3i=i+jNextjLoopWhilei50Printi;jEndSubA)5010B)509C)5710D)579(35)若整型变量a的值为5，b的值为7，则下面程序段执行后整型变量c的值为()。Ifa5ThenIfb4Thenc=a-bElsec=b-aElseIfb7Thenc=a*bElsec=aModbEndI