搜索
1VB练习题（自我训练，参考答案见附后）一、选择题（A、B、C、D4选1）(1)下列叙述中错误的是______。A)VB采用了事件驱动编程机制B)VB是面向过程的程序设计语言C)VB是可视化程序设计语言D)VB是面向对象的程序设计语言(2)以下能从字符串“VisualBasic”中直接取出字符串“Basic”的函数是_____。A)LeftB)StringC)MidD)Instr(3)命令按钮Commandl的Caption属性为“退出(x)”，要将命令按钮的快捷键设为Alt+x，应修改Caption属性为_____。A)在x前插入&B)在x后插入&C)在x前插入dfD)在x后插入df(4)表达式2*4^2-2*6／3+3＼2的值是_____。A)34B)29C）30D）28(5)数学表达式1n(exy+|arctan(z)|+Cos3X)对应的VisualBasic算术表达式是_____。A)Ln(E^(xy)+Abs(Tan(z))+Cosx^3)B)Log(Exp(xy)+Abs(Tan(z))+Cos(x)^3)C)Ln(Exp(x-x-y)+Abs(Atn(z))+Cosx^3)D)Log(Exp(x*y)+Abs(Atn(z))+Cos(x)^3)(6)假定变量Logic类型是Boolean，下面赋值语句_____是正确的。A)Logic=‘false’B)Logic=0C)Logic=TrueD)Logic=1(7)在程序设计阶段，当双击窗体上的某个控件时，所打开的窗口是_____。A)工程资源管理器窗口B)工具箱窗C)代码窗口D)属性窗口(8)在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序：PtivateSubCommandl_Click()Fori=1T04Forj=0ToiPrintChr(65+i)；NextjPrintNextiEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是____。A)BBB)ACCCBBDDDDCCCEEEEEDDDDC)BD)AACCBBBDDDCCCCEEEEDDDDD（9）在窗体上有一个文本框控件，名称为TxtTime；有一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间。程序为：PrivateSubTimer1._______()TxtTime.Text=TimeEndSub在填空中应填入的内容是______。A）EnabledB)VisibleC)IntervalD)Timer（10）在窗体中添加一个命令按钮，名称为Command1。然后编写如下程序：PrivateSubCommand1_Click()2X=1:y=2:z=3X=y:y=z:z=xPrintzEndSub程序执行后，输出的结果是_____。A）3B）0C）2D）1(11)Long类型的数据由_____字节组成。A)2B)4C)8D)16(12)表达式34And7=5的返回值为______。A）TrueB）FalseC）0D）1(13)以下合法的变量名是_____。A)A％BB)Test1C)1costD)And(14)下面的语句或方法，错误的有______个(其中m和n都为Integer型变量)。①DimArty(m，n)AsInteger②n=32764+5③PrintA=A+B；A+B(A、B已赋值)④Text1.text=“”A)1B)2C)3D)4(15)在窗体Forml的Click事件过程中有以下语句：Label1.Caption=VisualBasic若本语句执行前，标签控件的Caption属性取缺省值，则该标签控件的名称属性和Caption属性在执行本语句前的取值分别为______。A）Label，LabelB)Label1,CaptionC)Label1，Label1D)Caption,Label（16）同上题，该语句执行后，标签控件的名称属性和Caption属性取值分别为______。A）Label，VisualBasicB)Label1,VisualBasicC)Label1，CaptionD)Label1,Label1(17)如果在窗体上有命令按钮Ok，在代码编辑窗口有与之对应的CmdOk_Click()事件，则命令按钮控件的名称属性和Caption属性分别为_____。A)Ok，CmdB)Cmd，OkC)CmdOk，OkD)Ok，CmdOk(18)执行下面的程序，单击窗体后在窗体上显示的结果是______。PrivateSubForm_Click()DimStrlAsString，Str2AsString，IAsIntegerStr1=abForI=Len(Str1)T01Step-1Str1=Str1&Chr(Asc（Mid(Str1，I，1)）+I)NextIPrintStr1EndSubA）abceB)abcdC)abdbD)abfd(19)应用程序窗体的名称属性为Frml，窗体上有一个命令按钮，其名称属性为Cmd1，单击窗体和命令按钮的事件过程名分别为____。A)Form_Click()Command1_Click()B)Frm1_Click()Command1_Click()C)Form_Click()Cmd1_Click()D)Frml_Click()Cmd1_Click()（20）有程序代码：Text1.text=VisualBasic，其中的Text1.Text和VisualBasic分别代表_____。A）对象、值、属性B）对象、方法、属性C）对象、属性、值D）属性、对象、值3(21)VB表达式Sqr(a+b)^3*2中优先进行运算的是____。A)Sqr函数B)+C)^D）*(22)、下列逻辑表达式中，其值为真的是_____。A）bABCB)THATTHEC)9HD)Aa(23)下列程序运行后的输出结果是_____。PrivateSubCommandl_Click（）Fork=3TO1Step-1X=String(k，*)PrintxNextKEndSubA)*B)1*C)3*D)*****2*2*******3*1****(24)在VisualBasic中最基本的对象是____，它是应用程序的基石。A)标签B)窗体C)文本框D)命令按钮(25)要在消息框中显示所示信息，编写的程序代码为。A）MsgBox信息提示,32,输入有误，请重新输入B）MsgBox信息提示,16,输入有误，请重新输入C）MsgBox输入有误，请重新输入！,32,信息提示D）MsgBox输入有误，请重新输入！,16,信息提示（26）要在键盘输入对话框中显示所示信息，编写的程序代码为。A）InputBox(请输入相关数据：,250,数组赋值)B）InputBox(请输入相关数据：,数组赋值,250)C）InputBox(数组赋值,250,请输入相关数据：)D）InputBox(数组赋值,请输入相关数据：,250)(27)有下列程序：PrivatsubCommandl_Click()DimMyWeek，MyDayMyWeek=Array(Mon,Tue,Wed,Thu,Fri,Sat,Sun)MyDay=MyWeek(2)MyDay=MyWeek(4)MsgBoxMyDayEndSub运行后，弹出的消息窗口显示的是____。A)FriB)TueC)WedD)Thu(28)在窗体中添加一个列表框(1istBoxl)和一个命令按钮，并编写如下代码：PrivateSubCommandl_Click()DimEntry,I，MsgMsg=ChooseOktoadd100itemstoyourlistbox．MsgBoxMsgForI=1To100Entry=Entry&IListl．AddltemEntryNextI4EndSub程序完成的功能是____。A)本示例使用Addltem方法增加100项给一个列表框B)本示例使用Addltem方法向一个列表框中添加的内容是1一100的罗列C)本示例使用Addltem方法向一个列表框中添加的内容是1～100的和D)本示例使用Addltem方法增加101项给一个列表框(29)下列循环语句将执行_____次。A=100DoPrintAA=A+1LoopUntilA=10A)1B)10C)100D)死循环（30）下面是一个循环结构的程序，循环体内的语句A=A+1共执行_____次。PrivateSubForm_Click()DimiAsInteger,jAsInteger，AAsIntegerFori=1To12Step3Forj=5To0Step-1A=A+1NextjNextiPrintAEndSubA）18B）24C）26D）32(31)在以下程序中，循环体内的语句A=A+1共执行_____次。PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,AAsIntegerFori=1To12Step3i=i+2Forj=5To0Step-1A=A+1NextjNextiPrintAEndSubA）18B）24C）26D）32（32）函数Int(7.5)与函数Fix(7.5)、函数Cint(7.5)的值分别是_____。A.877B.777C.778D.788二、填空题（1）已知下列程序运行结果是ABCD，请在__[1]___处将程序补充完整。PrivateSubCommand1_Click()A=Forn=65To68A=A+__[1]__5NextnPrintaEndSub(2)下列程序用来计算1+2+3…+10的值，请补充完程序Dimt，kAsSingleK=0Whilek10K=k+1:__[2]__WendPrintt(3)设a=MicrosoftVisualBasic,则以下使变量b的值为VisualBasic的语句是__[3]___。A）b=Left(a,10)B）b=Mid(a,10)C）b=Right(a,10)D）b=Mid(a,11,10)(4)执行以下语句，输出结果是___[4]___。S=ABCDEFGHIJKPrintlnStr(S，efg)（5）执行下面的程序段后，b的值是__[5]___。A=300:B=20:A=a+b:B=a-b:A=a-b（6）下面程序的作用是：当InputBox函数输入一个整数，然后判断能否同时被2、5和7整除，如果能，则在窗体上输出该值与该平方值，请填空。PrivateSubCommand1_Click()DimnumxAsIntegernumx=Val(InputBox(请输入一个整数))If[6]ThenForm1.Print[7]EndIfEndSub参考答案：一：（1）B，（2）C，（3）A，（4）B，（5）D，（6）C，（7）C，（8）A，（9）D，（10）C，（11）B，（12）B，（13）B，（14）C，（15）C，（16）B，（17）C，（18）C，（19）C，（20）C，（21）B，（22）A，（23）D，（24）B，（25）D，（26）B，（27）A，（28）A，（29）D,(30)B，（31）A，（32）C二、(1)Chr(n),(2)t=t+k,(3)B,(4)0,(5)300,（6）numxMod2=0AndnumxMod5=0AndnumxMod7=0，（7）numx,numx^2。