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

1、3.2 VB三种计程仪程序结构Visual Basic语言作为结构化计程仪程序设计语言，提供了控制程序流程的三种控制流：顺序、条件分支和循环语句。 3.2.1顺控结构顺控程序计程仪程序中的语句根据程序在计程仪程序中的位置按顺序执行。 1、代入句的格式：变量名/对象.属性名=式功能：将代入编号右侧的式的值分配给代入编号左侧的变量或对象属性。 例： Form1.width=300 Temp=20，说明： 1，公式为数值型，与变量精度不同时，强制转换为左侧变量的精度。 例如，Dim A as integer A=4.7 A是整数变量，而a的结果是5。 2、如果表达式是数字字符串，左边的变量是数字类型

2、，则自动转换为数字类型并分配。但是，如果表达式中包含数字以外的字符或空白字符，则会发生错误。 例如，对于n=“123” n的结果，当123 n为整形n=“1a23”且发生了“类型不匹配”的错误3并且逻辑类型被分配给数值类型时，则为-1，假被转换为0，相反，如果数值类型被给予了逻辑类型，则为True，而不是0 MsgBox函数：向用户显示(输出)信息(输出)的MsgBox语句： MsgBox (提示内容、回答按钮图标、标题) MsgBox函数： Dim x As Integer X=MsgBox (提示内容、回答按钮图标、标题)功能： MsgBox函数返回与所选按钮相对应的整型数据，表示该数值的

3、含义。 如果不需要返还值，则取MsgBox语句。残奥表说明、提示内容：向用户提供的信息。 最多1024个字符。 当内容超过一行时，每一行之间的回车符chr (1.3 )、换行查询密码(1.0 )或回车符与换行查询密码的组合(1.3 ) 可使用ifscore60then印刷通过elseifscore70then印刷失败并通过elseifscore80then印刷的elseifscore90then印刷良好的elseifscore=100then印刷优异的else印刷输入错误e 嵌套If语句意味着If或else语句后面的语句子摇滾乐中包含If语句。 句子的形式是：输入ifthenifthenend

4、if，【例3-5】系数a，b和c，求出关二次方程字ax2 bx c=0的实数。 私人表单() dim a！ b！ c！ d！ x1！ x2！ x a=InputBox (请输入系数a : ) x a=inputbox (请输入系数b : ) x a=inputbox (请输入系数c : ) d=b * b-4 * a * CII FD0thenx1=(-bb x1，x2=； x2else if SD=0天=-b/(2* a ) :打印机=； x Else Print此方程式没有实际根据，所以end if end if end sub private subform _ click () dim

5、scoreassinglescore=inputbox (请输入学生成绩score: ) ifscore60then打印失败elseifsscore=70then打印和elseifsscore=80then打印中的elseifsscore=90then打印的良好ElseIf score=100 Then Pri nt优秀else打印输入错误Sub，格式： Select Case测试变量或表达式Case表达式表1语句子摇滾乐1 Case表达式表2语句子摇滾乐2 Case表达式表n语句子摇滾乐n Case Else语句子摇滾乐n 1 End Select，功能：根据Select Case的结果和各

6、Case子句的值的比较，执行哪个语句子摇滾乐如果多个Case子句中的值与测试值匹配，则根据自顶向下的判定原则，仅执行第一个匹配的语句子摇滾乐。 说明：列表中有多个值时，用逗号分隔值。 例：式子。 例如，Case 6是以逗号分隔的枚举值的定径套。 例如： case 1，3，5，7式1 TO式2。 例： Case 1 To 10 Is关系式。 case is5，我的天， 私人辅助课程() dimscoreassinglescore=inputbox (请输入学生的成绩课程) select case score case is 6.0打印失败case is 7.0打印通过case is 8.0打印中

7、等case is 9.0打印良好case is=100打印优秀case else打印输入错误endsub，循环在指定条件下重复多次VB有两种类型的循环语句。 一个是计数循环语句，另一个是条件循环语句。 Visual Basic所通讯端口的回路构造，For.Next DoLoop WhileWend，3.2.3回路构造，格式：For循环变量=初始值To结束值Step步骤Exit For Next回路变量，说明：格式中的残奥仪表说明： 循环的初始值、结束值和步长是数字表达式，增量残奥参数可以设置为正值或负值。 如果增量为正，则初始值必须小于或等于最终值；如果增量为负，则初始值必须大于或等于最终值。

8、 如果未设置step，则增量奥尔特为1。 Exit For强制退出循环语句。 如果找到此语句，则退出循环并执行下一个Next语句。 当循环是单层循环时，可以不写入跟随在Next之后的循环变量。 /求3-8阶乘。 隐私子表格_ click () dim I %、f结束子、DoLoop循环用于循环次数预先不知道的循环结构。 此语句有四种语法格式： Do While Loop语句. Do Loop While语句. Do Until Loop语句. Do Loop Until语句，格式： Do While条件等式循环Exit Do循环，说明： 1，如果循环中有控制循环，则不会出现死循环2 .该循环的

9、特征在于，确定条件之后，决定是否执行循环中的语句。 3、Exit Do表示如果遇到此语句，将强制退出循环，并执行循环的下一个语句。 privatesubcmddowhileloop _ click () dimiasintegerdimtotalasalongdoi 100 total=totali * I=I1loopprinttotalendsub，是从例1到100的所有自然数的即，给出【例3-10的正整数m和n，求他们的最大公约数和最小公倍数。 求最大公约数的算法，求出(1)m为被除数、n为除数、馀数r。 (2)如果r不是零，则将除数n设为新的被除数m，将馀数r设为新的除数n，并且将其进

10、一步除法得到新的馀数r。 (3)当r还不等于0时，重复步骤(2)。 如果r是0，则此时的被除数n是最大公约数。 最小公倍数把这两个数量的乘积除以他们的最大公约数。 私人辅助指令()指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令指令。 描述格式为R As Integer的喀呖声上通告过程查询密码T As Integer M=InputBox (请输入第一个正整数m以获取m、n的最大公约数和

11、最小公倍数) N=InputBox请输入第一个正整数n m、 求n的最大公约数和最小公倍数) a=m : b=nmim0m=n=r=mmodnloopprint的最大公约数为：n打印最小公倍数为：a * b/n结束子，格式为： Do循环Exit Do循环Loop While条件等式，说明：至少执行一次循环与Do While循环的区别： Do While循环测试条件是否成立，在成立之前不执行循环这个循环首先执行循环体，然后测试条件是否成立。 例如求1到100的所有自然数的平方和。 即privatesubcmddoloopwhile _ click () dimiasintegerdimtotal

12、asalongdototal=totali * imi=I1loopwhii=100 label1. caption=doloopwhile方法的结果： label2. caption=格式化(total )结束子，格式： Do Until堆条件等式循环Exit Do循环loop， 形式： Do回路Exit Do回路until条件等式定、privatesubcmddountilloop _ click () dimiasnectiondimetotallondountil 100 total=totali * I=I1loop？ Total End Sub，格式： While条件等式循环Wend功能：如果While的条件等式值为True，则执行循环中的查询密码，直到While后的条件等式值为False为止。 说明：与Do Loop语句的不同之处在于，While Wend语句不能使用Exit语句脱离循环。 3 .求出威尔文循环，例如n，n的阶乘最接近2000，但不大于2000。隐私子形式链接() dim n %，f % n=0f=1whi