高中信息技术《算法与程序设计VB选修》复习要点

、以下是一段VisualBasic程序:IfI=1ThenX=X+1ElseX=X*2EndIf它的基本结构属于(A).A、选择结构B、循环结构C、顺序结构D、树型结构2、下列程序段运行后，变量Value的值是(A)x=20Ifx>=10ThenValue=5*xElseValue=4*xEndIfA、100B、80C、90D、70综合分析1、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是(BD)。选项:A、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值C、①输人的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值D、①输人的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值2、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为(AB)PrivateSubcommandl_Click()DimxAsIntegerx=Val(Text1.Text)If=0ThenLabell.Caption二这个数是能被5整除的偶数ElseLabell.Caption二这个数不是能被5整除的偶数EndIf选项：A、(xMod5)=0And(xMod2)=0B、xMod10=0C、xMod5=0D、xMod2=03、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好的算法是(AC)。选项:A、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值B、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值C、①输入的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值D、①输入的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值4、下列程序段运行后,m的值为(A)A=2:b=1:c=5IfA<bThenm=AElsem=bIfc<mThenm=c选项：TOC\o"1-5"\h\zA、1B、2C、5D、提示错误，无答案程序设计的循环结构一、For-Next循环For循环变量一般形式是：For循环变量=初值To终值Step循环变量增量循环体Nxt循环变量例题1：求s=1+2+3+4+100PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegersum=0Fori=1To100sum=sum+i'循环体NextiPrint"sum=";sumEndSub例题2：Step循环变量增量PrivateSubForm_Click()Forj=3To15Step2PrintjNextjEndSub循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为11、循环变量取初值；2、循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤2~4。以上可以看出，For-Next循环变量是一种当型循环。说明For语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均为I。当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。出口二、Do—Loop循环For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop循环格式一：DoWhile条件循环体Loop例题：求最大公约数PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimrAsIntegera=Val(Text1.Text)b=Val(Text2.Text)r=aModbDoWhiler<>0a=bb=rr=aModbLoopText3.Text=Str(b)EndSubPrivateSubCommand2_Click()EndEndSub当VB执行DoWhile-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循