VB期末复习题汇总+答案

VisualBasic期末复习题库1)下列程序运行后，输出的结果为______。B=1Dowhile(b40)b=b*(b+1)LoopPrintba)42b)39c)6d)1答案：A2)设执行以下程序段时依次输入1、3、5，执行结果为_____。Dima(4)AsIntegerDimb(4)AsIntegerForK=0To2a(K+1)=Val(InputBox(“请输入数据：))b(3-K)=a(K+1)NextKPrintb(K)a)1b)3c)5d)0答案：A3)下列程序执行后，变量s的值为______。DimsAslong,xAsIntegers=0:x=1DoWhile(x10)s=s+xx=x+2LoopPrintsa)10b)25c)50d)100答案：B4)编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=6AndButton=2ThenPrintHelloEndIfEndSub程序运行后，为了在窗体上输出Hello，应在窗体上执行以下_______操作。a)同时按下Shift键和鼠标左键b)同时按下Shift键和鼠标右键c)同时按下Ctrl、Alt键和鼠标左键d)同时按下Ctrl、Alt键和鼠标右键答案：D5)当变量x=2,y=5时，以下程序的输出结果为____。Dountily5x=x*yy=y+1loopprintxa)2b)5c)10d)20答案：C6)当执行以下程序时，在名为lblResult的标签框内将显示_____。PrivateSubcmdlt_click()DimI,RR=0ForI=1To5Step1R=R+INextIlblResult.Caption=Str（R）EndSuba)字符串15b)整数15c)字符串5d)整数5答案：A7)如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。X=1dox=x+3printxloopuntil(___)a)x=8b)x=8c)x=7d)x=7答案：A8)若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。Ifa5thenifb4thenc=a-belsec=b-aEndifelseifb3thenc=a*belsec=amodbEndifa)2b)-1c)1d)6答案：A9)设有如下语句：str1=inputbox(输入,,练习)从键盘上输入字符串“示例”后，str1的值是___。a)“输入”b)“”c)“练习”d)“示例”答案：D10)我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，PrivateSubText1_change()Text2.text=ucase(Text1.text)EndSub则在Text1文本框输入“visualbasic”，Text2将______。a)Text2中无内容显示。b)Text2显示VISUALBASIC。c)Text2显示visualbasicd)Text1显示visualbasic答案：B11)下列程序的运行后s的值是_____。S=0Forx=99to1Step-2s=s+xNextxPrintsa)100b)500c)2500d)5000答案：C12)下列程序的执行结果是____。K=0ForI=1To3a=I^I^Kprinta;NextIa)111b)123c)000d)149答案：A13)下列程序的执行结果是_____。Dima(5)AsStringDimbAsIntegerDimIAsIntegerForI=0To5a(I)=I+1Printa(I)NextIa)123456b)6c)654321d)0答案：A14)下列程序的执行结果为_____。DimintsumAsIntegerDimIAsIntegerintsum=0ForI=20.2To5Step-4.7intsum=intsum+INextIPrintintsuma)150b)200c)50d)0答案：C15)下列程序的执行结果为_____。DimSAsInteger,nAsIntegerS=0:n=1DoWhilen=100S=S+nn=n+1LoopPrintSa)5050b)2500c)3000d)4000答案：A16)下列程序的执行结果为_____。A=100:b=50IfabThena=a-bElseb=b+aEndifPrintaa)50b)100c)200d)10答案：A17)下列程序的执行结果为________。DimintsumAsIntegerDimIAsIntegerintsum=0ForI=0To50Step10intsum=intsum+INextIPrintintsuma)150b)200c)50d)0答案：A18)下面程序执行后，X的结果为_____。X=0ForI=1to5Forj=Ito5X=X+1NextjNextIPrintXa)5b)10c)15d)20答案：C19)下面程序执行的结果是____。PrivateSubForm_Click()A$=123:B$=456C=Val(A$)+Val(B$)PrintC\100EndSuba)123b)3c)5d)579答案：C20)下列循环语句将执行______次。A=100DoPrintaa=a+1Loopuntila=10a)1b)10c)100d)死循环答案：D21)下面程序段的循环结构执行后，的输出值是_____。程序段为：ForI=1to10step2y=y+INextIprintI;a)25b)10c)11d)因为Y的初值不知道，所以不确定答案：C22)写列程序段的执行结果____。A=abbacddcbaforI=6to2step-2x=mid(a,I,I)y=left(a,I)z=right(a,I)z=x&y&znextIprintUcase(z)a)ABAb)AABAABc)BBABBAd)ABBABA答案：C23)以下语句输出结果是（在立即窗口中）_____。A=Beijingb=ShangHaiPrinta;ba)BeijingShangHaib)AbeijingShangHaic)BeijingShangHaid)Abeijing答案：C24)有如下程序：ForI=1To3Forj=5To1Step-1PrintI+jNextj,I其循环执行的次数为______。a)12b)13c)14d)15答案：D25)有如下程序段，该程序执行后，变量a的值为______。ForI=1To2ForJ=ITo2ForK=1ToJa=a+2NextKNextJNextIa)2b)8c)10d)20答案：C26)执行下列程序后，变量a的值为____。DimIasintegerdimaasintegera=0forI=0to100step2a=a+1nextIa)1b)10c)51d)100答案：C27)执行下列程序后，X的值为______。X=3y=6DoWhiley=6x=x*yy=y+1Loopa)3b)6c)18d)20答案：C28)执行下列程序段后，整型变量c的值为___。A=24b=328selectcaseb\10case0c=a*10+bcase1to9c=a*100+bcase10to99c=a*1000+bendselecta)537b)2427c)24328d)240328答案：C29)执行完下面的程序段后，循环将执行____次。ForI=1.7To5.9Step0.9a=a+1PrintaNextIa)3b)4c)5d)6答案：C30)有如下语句，执行后该段语句的循环次数是_____。Dims,I,jasintegerForI=1to3Forj=3To1Step-1S=I*jNextjNextIa)9b)10c)3d)4答案：A31)有如下程序，该程序将______。ForI=1to10step0K=k+2NextIa)形成无限循环。b)循环体执行一此后结束循环。c)语法错误。d)循环体不执行即结束循环。答案：A32)有如下程序段，该程序段执行完毕后，共循环了________。ForI=1To5Forj=1ToIFork=jTo4PrintaNextkNextjNextIa)4b)5c)38d)40答案：D33)有如下程序，该程序的运行结果为______。DimkAsIntegern=5:m=1:k=1DoWhilek=nm=m*2k=k+1LoopPrintma)1b)5c)32d)40答案：C34)以下程序输出1到1000之间所有的偶数之和，请补充完该程序。PrivateSubCommand_Click()DimxAsDoubleForI=0To1000If____Thenx=x+IEndIfNextIPrintxEndSuba)iMod2=0b)xMod2=0c)IMod20d)xMod20答案：A35)以下是计算10的阶乘的程序，请补充该程序。DimtassingleDimkasIntegerk=0:t=1While_______k=k+1t=t*kWendPrintta)k10b)k10c)k=10d)k=10答案：A36)_____是由VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。a)文件b)属性c)方法d)窗体答案：C37)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_____。a)单选按钮b)图片框c)通用对话框d)文本框答案：C38)下列各项不是VisualBasic的基本数据类型的是_____。a)Charb)Stringc)Integerd)Double答案：A39)下列运算结果中，值最大的是______。a)3\4b)3/4c)4mod3d)3mod4答案：D40)以下不属控件的一项是_____。a)文本框b)标签框c)列表框d)消息框答案：D41)用InputBox函数可帮助生成_______。a)消息框b)“保存”对话框c)简单输入框d)“颜色”对话框答案：C42)______对象不能响应Click事件。a)列表框b)图片框c)窗体d)计时器答案：D43)17mod3的运算结果是_____。a)0.5b)1c)1.5d)2答案：D44)变量X=32769，则变量声明时不能将其声明为_____。a)Intrgerb)Variantc)Longd)Single答案：A45)表达式2*3^2+2*8/4+3^2的值为_____。a)64b)31c)49d)22答案：B46)复选对象是否被选中，是由其_____属性决定的。a)Checkedb)Valuec)Enabledd)Selected答案：B47)没有Caption属性的控件是_____。a)Labelb)OptionButtonc)Framed)LisBox答案：D48)下列符号是VisualBasic中合法变量名的是_____。a)IFb)7ABc)A[B]7d)AB_7答案：D49)使窗体自动向下移动的语句是Move_____。a)Left,Top+100b)Top+100c)Top+100d)Top=Top+100答案：A50)RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_____属性。a)Max和Minb)SmallChange和LargeChangec)Scroll和Changed)Value答案：A51)_____控件可以使用SetFocus()方法。a)Frameb)Labelc)TextBoxd)Timer答案：C52)