visual basic练习2

《visual basic练习2》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一、控制结构1．下列程序的执行结果是a=100b=50ifa>bthena=a-belseb=b+aprinta,b2．下列语句错误的是。A)Dowhile(Condition)StatementsLoopB)DoStatementsLoopwhile(Condition)C)DoUntil(Condition)StatementsLoopD)DoUntil(Condition)StatementsEndDo3．下列程序运行后，变量intsum的值为。DimintsumAsIntegerDimiAsIntegerIntsum=0

2、Fori=0to50Step10Intsum=intsum+iNextiPrintinstum4．下列程序的运行结果为。DimintsumAsIntegerDimiAsIntegerDimjAsIntegerFori=1to17Step2Forj=1to3Step2Intsum=intsum+jNextjNextiPrintintsum5．下列程序的运行结果是，循环执行次。DimintsumAsIntegerDimiAsIntegerDimjAsIntegeri=1Doj=117Dointsum=intsum+jj=j+2Pri

3、ntj;LoopUntilj>3i=i+2LoopUntili>17Printintsum6．下列程序的运行结果是。Fori=2to4Forj=0toi-2S=S+2NextjNextiPrintSA)6B)12C)3D)247．下列程序在执行时，分别输入12，6，25，则运行结果是。PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimpAsStringa=Val(InputBox("请输入第一个数：","输入框",0))b=Val(InputBox(

4、"请输入第二个数：","输入框",0))c=Val(InputBox("请输入第三个数：","输入框",0))p=""&a&","&b&","&cp=p&"三个数中最大的数是："Ifa>bAnda>cThenp=p&aIfb>aAndb>cThenp=p&bIfc>aAndc>bThenp=p&cLabel1.Caption=pEndSub8．下列程序在执行时，在输入框中输入15，则运行结果是。DimNumberAsSingleNumber=val(InputBox(”请输入一个数字”))'设置变量初值。SelectCaseNu

5、mberCase1To5Forml．Print”你使用了to关键字”Case6，7，8,9,10Forml．Print“你使用了列表的方式”Caseis>10Form1.Print“你使用了is关键字”CaseElse17Forml．Print”其他数值显示”EndSelectA)你使用了to关键宇B)你使用了列表的方式C)你使用了Is关键字D)其他数值显示9．以下程序的作用是计算累加和1+2+3+…+100，但程序不完整，请从以下四个选项中，选择一项补充完该程序，则最适合的是。DimsAsInteger,nAsIntegers

6、=0：n=lDoWhiles=s+nn=n+1LoopPrintsA)n<=100B)n<100C)n>100D)n>=10010．以下程序用于求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+100)的和，补充完该程序。DimnAsIntegerDimiAsIntegerDimjAsLongDimsAsLongn=100j=0s=0Fori=1Tonj=s=s+jNextiPrints11．以下程序段执行的结果是。DimaAsIntegerDimnAsIntegerDimsAsIntegerDoUntils=10

7、n=n+1a=a+ns=s+aLoopPrintnA）100B）3C）4D）5012．有如下程序：17PrivateSubCommand1_Click()DimnAsLongDimsAsLongDimtAsLongn=1s=1DoUntils>10000n=n+1t=1Fori=1TonNexts=s*tPrintn,sLoopEndSub该程序的作用是设s=11*22*……*nn，求s不大于10000时的最大的n。该程序不完整补充完该程序。13．下面的程序段执行后，共循环次。j=10Fori=-1To1Step0.3j=j+1

8、NextiPrintjA)5B)6C)7D)814．下面的程序段执行后的结果是。Fori=1To3x=0Forj=1To3Fork=1To3x=x+5NextkNextjNextiPrintxA)100B)57C)45D)4815．下面程序段执行后，共循环次。F