资源描述:
《第五章历年试题汇编》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、05年4月份(21)在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: PrivateSubCommand1_Click() DimiAsInteger,xAsInteger Fori=1To6 Ifi=1Thenx=i Ifi<=4Then x=x+1 Else x=x+2 EndIf Nexti Printx EndSub 程序运行后,单击命令按钮,其输出结果为( )。 A)9 B)6 C)12D)15(22)在窗体上画一个名称为Command1的命令
2、按钮,然后编写如下事件过程: PrivateSubCommand1_Click() c="ABCD" Forn=1To4 Print_________ Next EndSub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在________处应填入的内容为( )。 A)Left(c,n) B)Right(c,n) C)Mid(c,n,1)D)Mid(c,n,n)(23)执行以下程序段 DimxAsInteger,iAsInteger x
3、=0 Fori=20To1Step-2 x=x+i5 NextI 后,x的值为( )。 A)16 B)17 C)18D)19(32)设有如下程序: PrivateSubCommand1_Click() DimcAsInteger,dAsInteger c=4 d=InputBox("请输入一个整数") DoWhiled>0 Ifd>cThen c=c+1 EndIf d=InputBox("请输入一个整数") Loop Printc+d EndSub 程序运行后,单
4、击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:( )。 A)12 B)11 C)10 D)9(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: MicrosoftVisualBasicProgramming 然后编写如下事件过程: PrivateSubCommand1_Click() Open"d:empoutf.txt"ForOutputAs#1 Fori=1ToLen(Text1.
5、Text) c=Mid(Text1.Text,i,1) Ifc>="A"Andc<="Z"Then Print#1,LCase(c) EndIf Nexti Close EndSub 程序运行后,单击命令按狃,文件outf.txt中的内容是:( )。 A)MVBP B)mvbp C)MD)m Vv Bb Pp (8)阅读下面的程序 PrivateSubForm_Click() DimCheckAsBoolean,CounterAsInteger Check=True
6、 Counter=5 Do DoWhileCounter<20 Counter=Counter+1 IfCounter=10Then Check=False ExitDo EndIf Loop LoopUntilCheck=False PrintCounter EndSub程序运行后,单击窗体,输出结果是【9】(9)设有如下程序 PrivateSubForm_Click() DimaAsInteger,sAsInteger n=8 s=0 Do s=s+n n=n-1
7、LoopWhilen>0 Prints EndSub 以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】05年9月份20)假定有如下事件过程:PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序运行后,单击窗体,输出结果是( )。A)814 B)563C)281 D)2435(21)有如下程序:PrivateSubForm_Click()DimCh
8、eck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后,单击窗体,输出结果为( )。A)150 B)20-1C)10True D)10Fa