程序的基本结构.pptx

12顺序结构45Step1：输入a的值，输入b的值step2：利用第三个变量c来进行交换，交换过程如下：c=aa=bb=cstep3：输出交换后A、B的值。（3）编写程序8910选择结构12131415161718192021222324252627循环结构在窗体上显示10行*（每行10个*）程序的循环结构循环结构A、计数型循环语句（循环次数固定）For循环语句B、条件型循环语句（循环次数不固定，由循环条件决定。）Do…Loop循环语句在VB中循环结构控制的形式在VB中循环结构控制的形式Dowhile条件语句loop在VB中循环结构控制的形式Dowhile条件语句loopDo语句loopwhile条件Do…loop语句（until）Do语句loopuntil条件1、下面是一段VisualBasic程序：PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To5sum=sum+i*iNextiText1.Text=Str(sum)EndSub该程序运行后，语句sum=sum+i*i共执行了次。以下是一段VisualBasic程序a=1b=a+1c=a+b它的基本结构属于（）A.循环结构B.选择结构C.树型结构D.顺序结构下列流程图表示的是程序的（）基本结构的算法A.循环结构B.其它三项都不是C.选择结构D.顺序结构以下是一段VisualBasic程序：b=0ForI=1To5b=b+1NextI它的基本结构属于（）A.循环结构B.树型结构C.选择结构D.顺序结构以下是一段VisualBasic程序IfI=1Thenx=x+1Elsex=x+2EndIf它的基本结构属于（）A.选择结构B.循环结构C.顺序结构D.树型结构以下是一个VisualBasic程序a=1b=2m=ax=m+bb=b+1y=x+b它的基本结构属于（）A.顺序结构B.选择结构C.循环结构D.树型结构在VB中，以下程序段：x=1DoWhilex<10x=x+xLoop运行后的X的值为（）A.4B.8C.2D.16在VB中，假定有以下程序段：ForI=1To3I=I+1NextI则执行结束后I的值是（）A.4B.5C.6D.1下列VB程序运行后，变量m的值为（）a=2:b=1:c=5Ifa<bThenm=aElsem=bIfc<mThenm=cA.1B.5C.2D.其它三项均不正确分析程序，写出执行结果PrivateSubCommand1_Click()S=0Fori=1To3S=S+2*iNextiPrint"S=";SEndSub运行的结果是下列程序运行后，变量Value的值是（）x=20Ifx>=10ThenValue=5*xElseValue=3*x+10EndIfA.80B.90C.100D.70107.在VB中，假定有以下程序段：I=1DoUntilI>0Print“VB”Loop则语句Print“VB”的执行次数是：（）A.0B.1C.2D.无数次在VB中，假定有以下循环结构：DoUntil条件循环体Loop则正确的描述是（）A.不论“条件”是否为“真”，至少执行一次循环体B.如果“条件”是一个不为0的常数，则至少执行一次循环体C.如果“条件”是一个为0的常数，则执行无穷次循环体D.如果“条件”是一个为0的常数，则一次循环体也不执行。2、下面的程序是求7!（7!=1*2*3...*6*7）的值，并在默认窗口输出这个值。程序中有两处错误，请更正。PrivateSubCommand1_Click()DimaAsSinglea=0Fori=1tona=a*iNextiprintaEndSub①___________________________②___________________________3、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。请将程序补充完整：PrivateSubCommand1_Click()DimsAsSingleDimiAsSingleS=________Fori=1to100Step___________________NextiprintsEndSub4、输入100个数，统计其中负数、零及正数的个数。PrivateSubForm_Click()Dimi,x,y,zAsIntegerremx,y,z分别代表负数、零及正数的个数DimkAsDoublex=0:y=0:z=0Fori=1To100k=Val(InputBox("输入一个数据"))Ifk>0Then__________ElseIfk<0Thenx=x+1Else____________EndIfNextiPrint"负数、零及正数的个数是:";x,y,zEndSub