23基本结构2课时

1、算法与程序设计程序的基本结构程序的基本结构程序的基本结构o 顺序结构：按照由上到下的顺序一行一行地执行。程顺序结构：按照由上到下的顺序一行一行地执行。程序中没有分支，没有重复。序中没有分支，没有重复。选择结构：根据不同的条件判断来决定程序执行走向选择结构：根据不同的条件判断来决定程序执行走向的结构。程序中有分支，没有重复。的结构。程序中有分支，没有重复。循环结构：根据条件判断，需要重复执行某一段代码循环结构：根据条件判断，需要重复执行某一段代码的程序。程序中可能存在分支和重复。的程序。程序中可能存在分支和重复。 1、顺序结构Private Sub command1_Click()Dim a A

2、s SingleDim b As SingleDim c As Singlea = text1.textb = text2.textc = aa = bb = ctext1.text=atext2.text=bEnd Sub开始输入a,bc = aa = bb = c输出a,b结束2、选择结构Private sub command1_click()Dim a as singleA=text1.textIf a=60 thenPrint “合格”Else print “不合格”End ifEnd sub开始输入aa=60输出“合格”输出“不合格”结束YNoIF语句有：单分支选择结构，形式为 If

3、 Then 语句块 End If；o双分支选择结构，形式为 If Then 语句1 Else 语句2 End If；If x mod 2=0 thenPrint “偶数”Else print “奇数”endif例如： if x mod 2=0 then print “偶数” endifo多分支选择结构， 形式为 If If Then Then 1ElseIfElseIf ThenThen 2 Else Else 语句块语句块 n+1 n+1 End IfEnd IfX=t/(s*s)If x23 then Str=“您的体形偏胖”Elseif x= 90 Then Print 优秀ElseIf

4、 x = 75 Then Print 良好 ElseIf x = 60 Then Print 合格 Else Print 不及格End IfEnd SubSelect case xCase 90 to 100Print “优秀”Case 80 to 89Print “良好”Case 70 to 79Print “中等”Case 60 to 69Print “及格”Else print “不及格”End selecto 当程序出现多分支选择时，用If语句比较烦琐，而使用多分支选择Select Case语句就方便多了。Select case xCase is23 str=“您的体形偏胖”Case

5、is19.5 str=“您的体形偏瘦”Case else str=“您的体形很完美”End selectbSelect case monthCase 1,3,5,7,8,10,12 print “大月”Case 2 print “平月” Case else print “小月”End selectSelect case x mod 2Case 0 print “偶数”Case 1 print “奇数”End select语法格式为：Select Case 表达式的值Case 情况1 语句块1Case 情况2 语句块2Case Else 语句块nEnd Select课堂练习课堂练习o 编写程序：

6、用计算机产生一个1到12之间的随机数整数做为月份数，然后判断这个月是哪个季节的，并输出该月数及判断结果。程序代码程序代码Private Sub command1_Click() Dim a As Integer Randomize a = Int(Rnd() * 12) + 1 if a=3 then Label1.Caption = Str(a) & 月份是月份是 & 春季春季 elseif a=6 then Label1.Caption = Str(a) & “月份是月份是” & “夏季夏季” elseif a=9 then Label1.Caption = Str(a) & 月份是月份是

7、 & 秋季秋季 else Label1.Caption = Str(a) & 月份是月份是 & 冬季冬季 endifend SubPrivate Sub command1_Click() Dim a As Integer Randomize a = Int(Rnd() * 12) + 1 Select Case a Case 1 To 3 Label1.Caption = Str(a) & 月份是春季月份是春季Case 4 To 6 Label1.Caption = Str(a) & 月份是夏季月份是夏季Case 7 To 9 Label1.Caption = Str(a) & 月份是秋季月份

8、是秋季Case Else Label1.Caption = Str(a) & 月份是冬季月份是冬季End Selectend Sub下面是两种正确的嵌套形式：下面是两种正确的嵌套形式：（1 1） IF IF Then 1 Then . IF IF Then2 Then Else Else . End If End If . . Else Else . . IF IF Then3 Then . Else Else . End If End If . End IF End IF选择结构的嵌套选择结构的嵌套（2 2）IF IF Then 1 Then . Select Case Select Cas

9、e Case Case IF IF Then2 Then Else Else . End If End If Case Case. . . End Select End Select . .End IFEnd IF3、循环结构o 循环结构：根据条件判断，需要重复执行某一循环结构：根据条件判断，需要重复执行某一段代码的程序。程序中可能存在分支和重复。段代码的程序。程序中可能存在分支和重复。VB中提供了两种类型的循环语句：中提供了两种类型的循环语句： 计数循环语句和条件型循环语句计数循环语句和条件型循环语句 1. For循环语句（已知循环次数的计数型循环）循环语句（已知循环次数的计数型循环）语句形

10、式： For 循环变量循环变量 = 初值初值 To 终值终值 Step 步长步长 循环体语句块 Next 循环变量循环变量 相当于循环变量=循环变量+stepStep缺省则默认为1For-Next循环的执行过程是：循环变量取初值；循环变量与终值比较，没有超过终值转，否则循环结束，接着执行循环语句的后继语句；执行一次循环体；循环变量增加一个步长增量；重复步骤。循环变量取得初值循环变量取得初值循环变量有没超过终值循环变量有没超过终值循环体语句循环体语句循环变量增加一个步长循环变量增加一个步长YN For 循环变量循环变量 = 初值初值 To 终值终值 Step 步长步长 循环体语句块 Next 循

11、环变量循环变量说明：1） 循环变量必须为数值型2）步长一般为正，初值小于终值；若为负，初值大于终值；缺省步长为1；3）语句块可以是一句或多句语句，称为循环体；循环次数=int（终值 - 初值）/步长+1）4）退出循环后，循环变量的值保持退出时的值； 5）在循环体内对循环变量可多次引用，但不要对其赋值，否则影响结果。 思考：1.若有如下一段代码： For j=15 to 3 Step 2 Print j Next j 则循环结束时，循环变量j的值是多少？ 2.循环变量的增量能否为0，如果为0，运行结果怎样？无休止地做循环，无休止地做循环，也叫死循环也叫死循环1例：n=10For i=1 to n

12、 print “*”;Next iN=10For i=1 to n step 3 print “*”;Next i开始n=10i10YN结束print “*”;Next i编程:输入一整数n,计算s=1+2+3+nDim n as integer,s as longN=val(text1.text)S=0For i=1 to n s=s+iNext iPrint “1+2+” & str(n) & ”=” ; So 思考: 如何判断一个数是素数?Dim n as integer,flag as booleanN=val(text1.text)Flag=trueFor i=2 to int(sq

13、r(n) if n mod I =0 then flag=false exit for endifNext iIf flag=true then label1.caption=str(n)&“是素数”Else label1.caption=str(n)&”不是素数”endif语句形式： For 循环变量循环变量 = 初值初值To 终值终值 Step 步长步长语句块语句块 Exit For 语句块语句块Next 循环变量循环变量 循 环 变 量 在 终 值内 语 句 块 Exit For 语 句 块 循 环 变 量 加 步 长 T F 循 环 变 量 得 初值 2. DoLoop循环（不知道循环次数的条件型循环）循环（不知道循环次数的条件型循环） 是用于控制循环次数未知的循环结构，语法形式有两种： 形式形式1：Do While LoopDo While | Until 条件条件 语句块语句块 Exit Do 语句块语句块Loopi=1Do while