资源描述：
《VB课后习题-第4》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、班级：姓名：学号：任课教师：王骏第4、5、6章顺序结构、选择结构、循环结构程序设计1、执行下面的程序，单击窗体，则在窗体上显示的是 。OptionExplicitPrivateSubForm_Click() DimaAsInteger,bAsInteger,cAsInteger b=6:c=6.5 a=b=c PrintaEndSub2、运行下列程序，窗体上显示的结果是 。PrivateSubForm_Click()A$="12":B$="34"C=Val(A$)+Val(B$)：D=Val(A$+B$)PrintCMod10;D10：Pr
2、intC+DEndSub3、读程序，单击窗体后，在窗体上显示的内容为 。PrivateSubForm_Click()x=1t=1SelectCasetCaseIs>0y=x+1CaseIs=0y=x+2CaseElsey=x+3EndSelectPrintx;yEndSub4、下列程序段的执行结果是 。X=2Y=1IfX*Y<1ThenY=Y–1ElseY=-1PrintY–X>05．判断下面4个循环语句分别执行了多少次循环。①下面循环执行了（1）次：1int2=02Forint1=1To-2Step-13int2=int2+14Next②下面循环执行了（2）次：1
3、int2=02Forint1=1To1Step-13int2=int2+1班级：姓名：学号：任课教师：王骏4Next③下面循环执行了（3）次：1int2=02Forint1=1To10Step13ExitFor4int2=int2+15Next④下面循环执行了（4）次：1DimiAsInteger,jAsInteger2Fori=1To10Step13i=i+14j=j+15Next6Printj6、下列程序运行的结果为 。DimsumAsIntegerDimIAsIntegerDimjAsIntegerSum=0ForI=1To17Step2Forj=1To3Step2
4、sum=sum+jNextjNextIPrintsum7、下列程序段的执行结果为 。A=“ABBACDDCBA”ForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X&Y&ZNextIPrintZ8、执行下面的程序段，文本框Text1中显示结果为 。Dimint1AsInteger,int2AsIntegerint1=1int2=0DoWhileint1<20int2=int1+int2int1=int1*(int1+1)Loop班级：姓名：学号：任课教师：王骏Text1.Text=int29、阅读下面的事件过程。
5、单击窗体后，在文本框Text1和Text2中显示的内容分别是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。1PrivateSubForm_Click()2DimxAsInteger,yAsInteger3x=1:y=04DoWhilex<35y=y+x'A语句6x=x+1'B语句7Loop8Text1.Text=x9Text2.Text=y10EndSub10、如果依次输入75,55,45,80,30,25,40,15,20,5,下列程序段的执行结果为 DimcAsInteger,kAsInteger,dAs
6、Integerc=70Fork=11To20x=InputBox(“输入X的数值:”)Ifx=15Then6ExitFor7Else8Letk=k+19EndIf10Nextk11Printk,b班级：姓名：学号：任课教师：王骏答案：1、-12、612312803、124、FALSE5、4,1,1,56、367、BB
7、ABBA8、993,3,3,510、330113;515
