VB语法结构专题

命题：杜宗飞语结专练行班

教班

姓：

学：1、下列程序执行后变量y的值2x=Len("桐乡一中)Ifx>3Theny=1Elsey=Ifx=4Theny=y+12、下列程序执行后变量y的值3x=Val(Mid("1234",3,1))Ifx<>3Theny=1Ifx+y=3Theny=3Elsey=2Ifx+y=5Theny=y+1EndIf3、下列程序执行后变量y的值4t="abcd123"x=Len(t)Ifx>20Theny=2ElseIfx>8Theny=3Elsey=4EndIf4、下列程序执行后变量y的值0t="abcd123"=Len(t)=0Ifx>20Theny=2ElseIfx>15Theny=3ElseIfx>10Theny=4EndIf5、下列程序执行后变量y的值2t="abcd123456"=Sqr(Len(t))=0

Ifx>0Theny=2ElseIfx>1Theny=3ElseIfx>2Theny=4Elsey=5EndIf6、下列程序执行后变量y的7y=0Fori=1To5Ifi>2Theny=y+1Ifi>3Theny=y+2Nexti7、下列程序执行后变量y的9y=0Fori=1To5Ifi>2Theny=y+1Elsey=y+2Ifi>4Theny=y+2Nexti8、下列程序执行后变量y的3y=0Fori=1To5Ifi>2Theny=y+1ElseIfi>3Theny=y+2EndIfNexti9、下列程序执行后变量y的6y=1:x=1DoWhilex<4IfxMod2=1Theny=y*xElsey=y+1EndIfx=x+1Loop10、下列程序执行后变量y的值5y=1:x=1DoWhilex<4IfxMod2=1Theny=y*Ifx=3Theny=y+2x=x+1Loop二补语，程能正运1、划线填空PrivateSubCommand1_Click()Ifx>5Theny=1Ifx>1Theny=1_EndSub2、划线填空PrivateSubCommand1_Click()Ifx>1Theny=1ElseIfx>2Theny=2_EndIfEndSub3、划线填空PrivateSubCommand1_Click()Ifx>1Theny=1_x>2Theny=2EndIfEndSub4、划线填空PrivateSubCommand1_Click()Ifx>1ThenIfy<>0Then=2ElseIfx>2ThenIfy<>1Theny=2_Elsey=3EndIf

命题：杜宗飞EndSub5、划线填空PrivateSubCommand1_Click()Ifx>1ThenIfy<>0Then=2ElseIfx>2ThenIfy<>1Theny=2__EndSub6、划线填空PrivateSubCommand1_Click()_=1To10s=s+1NextxEndSub7、划线填空PrivateSubCommand1_Click()Fori=1To10Forj=iTo10s=s+j_NextiEndSub8、划线填空PrivateSubCommand1_Click()Fori=1To10Ifs>5ThenForx=1Tois=s+jNextx_Next