32 VB三种程序结构Visual Basic语言作为结构化程序设计语言,提供

3.2VB三种程序结构VisualBasic语言作为结构化程序设计语言，提供了三种控制流来控制程序的流程：顺序，条件分支和循环语句。,3.2.1顺序结构顺序结构程序中的语句依照其在程序中的位置依次顺序地执行。1、赋值语句格式：变量名/对象.属性名=表达式功能：将赋值号右边表达式的值赋给赋值号左边的变量或对象属性。举例：Form1.width=300Temp=20,说明：1、当表达式为数值型且与变量的精度不相同时，强制转换成左边变量的精度。例如：DimAasintegerA=4.7A是整型变量，A中的结果是5。2、当表达式是数字字符串，左边变量是数值类型时，自动转换成数值类型再赋值；但当表达式有非数字字符或空串时，则出错。例如；n=“123”n中的结果是123n为整形n=“1a23”出现“类型不匹配”的错误3、当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，当数值型赋给逻辑型时，非0转换为True，0转换为False.,2、MsgBox函数：向用户显示信息（输出）MsgBox语句:MsgBox（提示内容,答复按钮+图标,标题）MsgBox函数：DimxAsIntegerX=MsgBox(提示内容,答复按钮+图标,标题),功能：打开一个消息框，等待用户选择一个按钮。MsgBox函数返回所选按钮对应的整数值，其数值的意义见后表。若不需要返回值，则作为MsgBox语句。,参数说明,提示内容：显示给用户的信息。最长1024字符。如果内容超过一行，则可以在每一行之间用回车符Chr(13)、换行符(Chr(10)或是回车与换行符的组合(Chr(13)Ifscore60ThenPrint不及格ElseIfscore70ThenPrint及格ElseIfscore80ThenPrint中等ElseIfscore90ThenPrint良好ElseIfscore0Thenx1=(-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)Printx1=;x1,x2=;x2ElseIfd=0Thenx=-b/(2*a):Printx=;xElsePrint此方程无实根EndIfEndIfEndSub,PrivateSubForm_Click()DimscoreAsSinglescore=InputBox(请输入学生的成绩score:)Ifscore60ThenPrint不及格ElseIfscore=70ThenPrint及格ElseIfscore=80ThenPrint中等ElseIfscore=90ThenPrint良好ElseIfscore=100ThenPrint优秀ElsePrint输入错误EndIfEndSub,格式：SelectCase测试变量或表达式Case表达式表1语句块1Case表达式表2语句块2Case表达式表n语句块nCaseElse语句块n+1EndSelect,功能：根据SelectCase中的结果与各Case子句中的值比较，决定执行哪一组语句块。如果有多个Case短语中的值与测试值匹配，则根据自上而下判断原则，只执行第一个与之匹配的语句块。说明：如果在一个列表中有多个值，就用逗号把值隔开。例：,一个表达式。如：Case6一组用逗号隔开的枚举值。如：Case1，3，5，7表达式1TO表达式2。如：Case1To10Is关系运算表达式。如caseis5,PrivateSubForm_Click()DimscoreAsSinglescore=InputBox(请输入学生的成绩score;)SelectCasescoreCaseIs60Print不及格CaseIs70Print及格CaseIs80Print中等CaseIs90Print良好CaseIs100Total=Total+i*ii=i+1LoopPrintTotalEndSub,例求1到100之间所有自然数的平方和。即,【例3-10】给出两个正整数M和N，求他们的最大公约数和最小公倍数。求最大公约数的算法如下：（1）以M作被除数，N作除数，求余数R。（2）如果R不为零，则将除数N做为新的被除数M，将余数R做为新的除数N，再进行相除，得到新的余数R。（3）如果R仍不等于0，则重复步骤（2）。如果R为零，则这时的被除数N就是最大公约数。最小公倍数为这两个数的乘积除以他们的最大公约数。,编写窗体单击事件过程代码如下：PrivateSubForm_Click()DimAAsInteger,BAsInteger,NAsInteger,MAsInteger,RAsInteger,TAsIntegerM=InputBox(请输入第一个正整数M,求M、N最大公约数和最小公倍数)N=InputBox(请输入第二个正整数N,求M、N最大公约数和最小公倍数)A=M:B=NIfM0M=NN=RR=MModNLoopPrint最大公约数为：,NPrint最小公倍数为：,A*B/NEndSub,格式：Do循环体ExitDo循环体LoopWhile条件表达式,说明：至少要执行循环体一次。与DoWhile循环的区别：DoWhile循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。,例求1到100之间所有自然数的平方和。即,PrivateSubcmdDoLoopWhile_Click()DimiAsIntegerDimTotalAsLongDoTotal=Total+i*ii=i+1LoopWhilei100Total=Total+i*ii=i+1Loop?TotalEndSub,格式：While条件表达式循环体Wend功能：当While的条件表达式的值是True时执行循环体内的代码，直到While后的条件表达式的值为False。说明：它与DoLoop语句的差别是：WhileWend语句中不能使用Exit语句跳出循环。,3.WhileWend循环,例：求N要求N的阶乘最接近2000，但不大于2000。PrivateSubForm_Click()Dimn%,f%n=0f=1Whilef=3）是否为素数，只要依次用从2到n/2作除数去除n，若n不能被其中任何一个数整除，则n为素数。若flag为0:没有找到除了1和它本身以外能整除n的数，即n为素数；flag为1:则说明找到了某个能整除n的正整数，即n不是素数。,PrivateSubForm_Click()Dimn!,k%,flag%,i%n=Inpu