搜索
第七章VisualBasic控制结构教学要求：熟练掌握选择结构条件语句（包括单行结构条件语句、块结构条件语句）、IIf函数的特点和使用，熟练掌握多分支结构的特点和使用，熟练掌握For循环控制结构、DO循环控制结构的特点和使用，掌握多重循环控制结构，了解GOTO型控制（GOTO和ON-GOTO语句）的特点，正确使用选择结构、循环结构的嵌套。知识点：单行结构条件语句、块结构条件语句；IIf函数；多分支结构；For循环结构、DO循环结构、多重循环控制结构，循环控制语句的比较；选择结构、循环结构的嵌套。熟练连续累加、累乘的算法，数列运算算法、”遍历”算法的程序设计；常用数值运算算法：平方根迭代公式、牛顿迭代法和二分法求方程的根、求f(x)的数值积分、泰勒公式。内容导航：一、选择控制结构（一）单行结构条件语句格式：If条件Thenthen部分［Elseelse部分］功能：如果“条件”为True，则执行“then部分”，否则执行“else部分”。（二）块结构条件语句格式：If条件1Then语句块1［ElseIf条件2Then语句块2］［ElseIf条件3Then语句块3］……［Else语句块n］EndIf功能：如果“条件1”为True，则执行“语句块1”;否则如果“条件2”为True，则执行“语句块2”……否则执行“语句块n”，若无Else及其后面语句，则执行EndIf后面的语句。（三）IIf函数IIf函数的格式：result=IIf（条件，True部分，False部分）功能：当“条件”为真时，IIf函数返回“True部分”，而当“条件”为假时返回“False部分”。二、多分支控制结构格式：SelectCase测试表达式Case表达式表列1语句块1［Case表达式表列2［语句块2］］……［CaseElse［语句块n］］EndSelect执行过程：先对“测试表达式”求值，然后测试该值与那一个Case子句中的“表达式表列”相匹配；如果找到，就执行该Case子句有关的语句块，并把控制转移到EndSelect后面的语句；如果没有找到，则执行CaseElse子句有关的语句块，并把控制转移到EndSelect。三、For循环控制结构一般格式：For循环变量=初值To终值［Step步长］［循环体］［ExitFor］Next［循环变量］［，循环变量］……执行过程：首先把“初值”赋给“循环变量”，接着检查“循环变量”的值是否超过“终值”，若超过就停止执行“循环体”，跳出循环，执行Next后面的语句；否则执行一次“循环体”，然后把“循环变量＋步长”的值赋给“循环变量”，重复上述过程。四、当循环控制结构格式：While［语句块］Wend执行过程：如果“条件”为True，则执行“语句块”，当遇到Wend语句时，控制返回到While语句并对“条件”进行测试，如仍然为True，则重复上述过程，如果“条件”为False，则不执行“语句块”，执行Wend后面的语句。五、Do循环控制结构格式：Do［语句块1］［ExitDo］Loop［While|Until循环条件］Do［While|Until循环条件］［语句块2］［ExitDo］Loop功能：当指定的“循环条件”为True或直到指定的“循环条件”变为True之前重复执行一组语句（即循环体）。训练：一、选择题1.VB的3中结构化程序设计的3种基本结构是________。A)选择结构、过程结构、顺序结构B)递归结构、选择结构、顺序结构C)过程结构、转向结构、递归结构D)选择结构、顺序结构、循环结构2．用If语句表示分段函数3311()11xxfxxx，以下________表示方法不正确。A)f=x^3+1Ifx=1Thenf=s^3-1B)Ifx=1Thenf=x^3-1Ifx1Thenf=x^3+1C)Ifx=1Thenf=x^3-1f=x^3+1D)Ifx1Thenf=x^3+1ElseF=x^3-13．执行下面的程序段后显示结果是________。PrivateSubForm_Click()DimmIfmThenPrintmElsePrintm+1EndSubA)0B)1C)””D)False4．设a=6，则执行x=IIf(a5,-1,0)后，x的值为________。A)5B)6C)0D)–15．下面程序段的运行结果是________。cj=85Ifcj90Thendj=AIfcj80Thendj=BIfcj70Thendj=CIfcj60Thendj=DIfcj60Thendj=EPrintdj=;djA)dj=BB)dj=CC)dj=DD)dj=E6．下列语句正确的是________。A)IfK3*NAndkNThenN=k^3B)IfK3*NAndkNThenN=k3C)IfK3*N:kNThenN=k^3D)IfK3*NAndkNThenN=k**37．设X=2.0，y=8.0，z=6.0，L=True，则下列VisualBasic表达式中值为True的是________。A)X+ZYANDLB)NOT(YZ+X)NOTLC)NOTLOR(L=Y+X=Z)D)Y+X=Z+XAND(LANDFALSE)8．要判断”月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的职工，应使用的逻辑表达式是________。A)M=2000ANDM=5000B)M=2000ORM=5000C)M=2000ANDM5000D)M=2000ORM50009．下列程序段的执行结果为________。x=Int((69-60)*Rnd+60)SelectCasexCaseIs90Print优秀Case80To89Print良好Case60To79Print合格CaseElsePrint不合格EndSelectA)优秀B)良好C)合格D)不合格10．在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：运行结果________。PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub单击命令按钮后，运行结果________。A)BBCCCDDDDEEEEEB)ABBCCCDDDDC)BCCDDDEEEED)AABBBCCCCDDDDD11．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi10ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是________。A)2B)3C)4D)512．在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是________。A)7B)15C)157D)53813．阅读下面的程序段：Fori=1To3Forj=1ToiFork=jTo3a=a+1NextkNextjNexti执行上面的三重循环后，a的值为________。A)3B)9C)14D)2114．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：PrivateSubForm_Load()Text1.Text=Text1.SetFocusFori=1To10Sum=Sum+iNextiText1.Text=SumEndSub上述程序的运行结果是________。A)在文本框Text1中输出55B)在文本框Text1中输出0C)出错D)在文本框Text1中输出不定值15．有如下程序：a=10b=4Forj=1To20Step-2a=a+5b=b+4NextjPrinta;b运行后，输出的结果是________。A)104B)6024C)11044D)554016．有如下程序：d$=a$=abcdeFori=Len(a$)To1Step-1d$=d$+Mid(a$,i,1)NextiPrintd$运行后，输出的结果是________。A)abcdeB)edcbaC)acebdD)ecadb17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。计算出每位学生的平均分并输出，程序如下：DimnAsInteger,kAsIntegerDimscoreAsSingle,sunAsSingle,aveAsSinglesum=0#Forn=1To10Fork=1To4score=InputBox(请输入一门课的成绩)sum=sum+scoreNextkave=sum/4print第;n;个人的平均成绩为：;aveNextn上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。这条语句是________。A)sum=0#B)sum=sum+scoreC)ave=sum/4D)print第;n;人的均分：;ave18．下列程序的输出结果是________。DimyAsIntegery=10Whiley0y=y-1WendPrinty=;yA)y=0B)y=1C)y=随机值D)y=-119．以下程序的输出结果是________。DimmAsIntegerm=1Whilem=3m=m+1Printm;WendA)2B)23C)234D)234520．下面的程序运行结果是________。PrivateSubForm_Click()m=0DoUntil0m=m+1Ifm10ThenExitDoLoopPrintmEndSubA)0B)10C)11D)出错21．下面程序运行语句Printm执行的次数是________。PrivateSubForm_Click()DimmAsInteger,nAsIntegerm=0Dom=m+1Forn=10To1Step-3m=m+nPrintmNextnLoopWhilem50EndSubA)4B)8C)12D)1622．在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别是________。A)15和1B)27和3C)195和3D)600和423．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为________。A)1和0B)2和72C)3和50D)4和16824．在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox(请输入A的值)a=Val(a)b=InputBox(请输入B的值)b=Val(b)x=InputBox(请输入x的值)x=Val(x)a=a+b+xLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、