南京工业大学vb期末题库.doc

09复材高材vb综合练****题第二套满分:100分姓名:________1、单项选择题(本题共计49分)1、执行下面的程序,单击窗体后在窗体上显示的结果是________。PrivateSubForm_Click()DimStrlAsString,Str2AsString,IAsIntegerStr1=”ab”ForI=Len(Str1)To1Step-1Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)NextIPrintStr1EndSub()A、abceB、abcdC、abdbD、abfd2、下列语句中的语句可以用来正确地声明一个动态数组。()A、PrivateA(n)AsIntegerB、DimA()AsIntegerC、DimA(,)AsIntegerD、DimA(1ton)3、在窗体上画一个命令按钮,mand1,然后编写如下程序:mand1_Click()DimaAsInteger,bAsIntegerDoWhileb<100b=b+5a=a+bIfb>20ThenExitDoLoopPrinta,bEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_________。()A、5020B、7525C、5025D、75204、有如下程序:mand1_Click()score=65selectCasescoreCaseIs<60a$="F"Case60To69a$="D"Case70To79a$="C"Case80To89a$="B"Caseelsea$="A"EndSelectMsgBoxa$EndSub程序运行后,消息对话框中显示的内容为_______。()A、AB、BC、CD、D5、下列程序:PrivateSubForm_Click()Forj=1To15a=a+jMod3NextjPrintaEndSub运行后输出的结果是__________。()A、1B、15C、90D、1206、mand1_Click()a=InputBox("请输入")b=InputBox("请输入")Printa+bEndSub运行时输入3和4输出的结果是________。()A、7B、34C、3+4D、出错7、mand1的命令按钮,然后编写如下程序:mand1_Click()StaticAAsIntegerStaticBAsIntegerClsB=2B=B+3A=3+AprintA,BEndSub程序运行时,mand1后,窗体上显示的结果为___________。()A、35B、66C、95D、338、在窗体上添加一个命令按钮,mand1,一文本框,名为Text1,则执行如下事件过程后,文本框中的输出为______。mand1_Click()Fori=1To4x=3Forj=1To3Fork=1To3x=x+=Str(x)EndSub()A、6B、12C、18D、309、在窗体中添加一个命令按钮,并编写如下程序代码:mand1_Click()DimyAsIntegery=0DoWhiley<7y=y+2LoopMsgBoxyEndSub程序运行后,消息对话框中显示__________。()A、0B、7C、8D、210、设有如下语句:strl=InputBox("输入","","练****quot;)从键盘上输入字符串"示例"后,strl的值是________。()A、“输入”B、“”C、“练****D、“示例”11、mand1第3次后,如下程序打印结果是____。mand1_Click()StaticaASIntegera=a+1SelectCaseaCase1:Print"欢迎大家"Case2:Print"努力就能成功Case3:Print"希望你能通过考试"Case4:Print"再见"EndSelectEndSub()A、“欢迎大家”B、“努力就能成功”C、"希望你能通过考试"D、“再见”12、下面是计算1~100奇数的和的程序,请补充完整,填空应为_______。<br/>mand1_Click()<br/>DimsAsLong,xAsInteger<br/>s=0<br/>Forx=____________Step-2<br/>s=s+x<br/>Nextx<br/>Prints<br/>EndSub()A、100To1B、1To100C、99To1D、1To9913、在窗体上建立3个文本框:Text1、Text2、Text3,如果在Text1中输入200,在Text2中输入150,则执行下列程序段后,Text3的值为______。<br/>DimmAsInteger,nAsInteger<br/>m=Val(Text1)<br/>n=Val(Text2)<br