Visual+Basic+程序设计教程.ppt

3.If… Then …ElseIf语句（多分支语句） If表达式Then 语句块1 ElseIf 语句块2 … Else 语句块n+1 End if 4.If语句的嵌套 If表达式1Then If表达式2Then … End if 5.Select Case语句（情况语句）[学生自学] 例：编一元二次方程求解程序 可视化界面设计 3个文本框分别用来输入2、1次项系数和常数项，分别命名为TextXX、TextX、TextX0；两个标签分别用来显示方程的两个解，分别命名为LabelX1和LabelX2。 Dim a, b, c, d, X1, X2 As Single If IsNumeric(TextXX.Text) And IsNumeric(TextX.Text) And IsNumeric(TextX0.Text) Then a = TextXX.Text: b = TextX.Text:c = TextX0.Text If a = 0 Then MsgBox (“不是二次方程”) LabelX1.Caption = X= -c / b Exit Sub End If d = b * b - 4 * a * c If d 0 Then MsgBox (“方程无实数解”)：Exit Sub X1 = (-b + Sqr(d)) / (2 * a): X2 = (-b - Sqr(d)) / (2 * a) LabelX1.Caption = X1= Format(X1, ####.####) LabelX2.Caption = X2= Format(X2, ####.####) Else:MsgBox (请输入2次项、1次项系数和常数项) End If 要使程序能解复根，对应的部分改为： If d 0 Then m=-b/(2*a):n= Sqr(-d) /(2*a) LabelX1.Caption = X1= Format(m, ##.##) + Format(n, ##.##) i LabelX2.Caption = X2= Format(m, ##.##) - Format(n, ##.##) i Exit Sub End If 3.5.4循环结构 1.For循环语句 For 循环变量=初值 to 终值 [Step 步长] 语句块 Next 循环变量 循环变量:必须为整型变量 步长：缺省为1，若为负值，初值需大于终值。 循环变量赋初值 循环变量在终值内？ 语句块 循环变量加步长 T F 例：用For循环语句编一个1到100的累加程序。 Dim I,S As integer For I=1 to 100 S=S+I Next I Print S S=0 I100？ S=S+I I=I+1 T F Print S 作业：用For循环语句编一个n到m，相邻数相差k的累加程序。 2.Do…Loop循环语句 用于循环次数未知的循环结构。 形式1： Do {While|Until} 条件 语句块 Loop 形式2： Do 语句块 Loop {While|Until} 条件 (1)形式1先判断后执行，有可能一次都不执行；形式2先执行后判断，至少执行一次。 (2)关键字While意思是条件满足时循环，Until意思相反。 例：求自然对数e的近似值，要求误差小于0.00001，求e的近似公式： e=1+1/1!+1/2!+1/3!+ … +1/n! 程序代码： Dim i%,n%,t!,e! e=0 ‘e存放累加值 i=0 ‘计数器 n=1 ‘存放阶乘的值 t=1 ‘第n项的值 Do While t0.00001 e=e+t ‘累加值 i=i+1 n=n*i t=1/n Loop Print “计算了”:i;“项的和，e=”;e 例：求自然对数e的近似值，要求误差小于0.00001，求e的近似公式： e=1+1/1!+1/2!+1/3!+ … +1/n! 3. 循环的嵌套 循环体内又包含循环称为循环的嵌套。 注意： (1)内外循环变量不能同名。 (2)外循环必须完全包括内循环，不能交叉。 3.5.5其它辅助控制语句 1.GoTo语句 利用GoTo语句可将程序转移到同一过程的指定标号（标号后应有冒号）或行号处。 GoTo语句可以给编程带来点方便，但给程序的可