2011年最新vb期末复习题(免费下载!!题目+答案)

《2011年最新vb期末复习题(免费下载!!题目+答案)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic期末复习题库单项选择题判断题填空题编程题1)下列程序运行后，输出的结果为______。B=1Dowhile(b<40)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的值为_____

2、_。DimsAslong,xAsIntegers=0:x=1DoWhile(x<10)s=s+xx=x+2LoopPrintsa)10b)25c)50d)100答案：B4)编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=6AndButton=2ThenPrint"Hello"EndIfEndSub程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。a)同时按下Shift键和鼠标

3、左键b)同时按下Shift键和鼠标右键c)同时按下Ctrl、Alt键和鼠标左键d)同时按下Ctrl、Alt键和鼠标右键答案：D5)当变量x=2,y=5时，以下程序的输出结果为____。Dountily>5x=x*yy=y+1loopprintxa)2b)5c)10d)20答案：C6)当执行以下程序时，在名为lblResult的标签框内将显示_____。PrivateSubcmdlt_click()DimI,RR=0ForI=1To5Step1R=R+INextIlblResult.Caption=Str（R）EndSuba)字符串15b)整数

4、15c)字符串5d)整数5答案：A7)如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。X=1dox=x+3printxloopuntil(___)a)x>=8b)x<=8c)x>=7d)x<=7答案：A8)若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。Ifa>5thenifb<4thenc=a-belsec=b-aEndifelseifb>3thenc=a*belsec=amodbEndifa)2b)-1c)1d)6答案：A9)设有如下语句：str1=inputb

5、ox("输入","","练习")从键盘上输入字符串“示例”后，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显示"visualbasic"d)Text1

6、显示"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

7、)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)下列程序的执行结果为___

8、__。A=100:b=50Ifa>bThena=a-bElseb=b+aEndifPrintaa)50b)100c)200d)10答案：A17)下列程序的执行结果为