2.3程序的基本结构.ppt

1、第二章 程序设计ABC,2.3 程序的基本结构,程序的基本结构,顺序结构：按照由上到下的顺序一行一行地执行。程序中没有分支，没有重复。选择结构：根据不同的条件判断来决定程序执行走向的结构。程序中有分支，没有重复。循环结构：根据条件判断，需要重复执行某一段代码的程序。程序中可能存在分支和重复。,1、顺序结构 Private Sub command1_Click() Dim a As Single Dim b As Single Dim c As Single a = text1.text b = text2.text c = a a = b b = c text1.text=a text2.te

2、xt=b End Sub,2、选择结构 Private sub command1_click() Dim a as single A=val(text1.text) If a=60 then Print “合格” Else print “不合格” End if End sub,IF语句有：单分支选择结构， 形式为 If Then 语句块 End If；,双分支选择结构， 形式为 If Then 语句1 Else 语句2 End If；,If x mod 2=0 then Print “偶数” Else print “奇数” endif,例如： if x mod 2=0 then print “

3、偶数” endif,多分支选择结构， 形式为 If Then ElseIf Then Else 语句块 n+1 End If,X=t/(s*s) If x23 then Str=“您的体形偏胖” Else if x19.5 then str=“您的体形偏瘦” else str=“您的体形很完美” endif,例：输入一学生成绩，评定其等级。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以为“不合格”,使用IF语句实现的程序段如下： If x=90 then Print 优秀 Else If x=80 Then Print 良好 Else

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

5、 Case x19.5 str=“您的体形偏瘦” Case else str=“您的体形很完美” End select,Select case month Case 1,3,5,7,8,10,12 print “大月” Case 2 print “平月” Case else print “小月” End select,Select case x mod 2 Case 0 print “偶数” Case 1 print “奇数” End select,语法格式为： Select Case 表达式的值 Case 情况1 语句块1 Case 情况2 语句块2 Case Else 语句块n End S

6、elect,课堂练习,编写程序：用计算机产生一个1到12之间的随机数整数做为月份数，然后判断这个月是哪个季节的，并输出该月数及判断结果。,程序代码 Private Sub command1_Click() Dim a As Integer Randomize a = Int(Rnd() * 12) + 1 if a=3 then Label1.Caption = Str(a) Next i,N=10 For i=1 to n step 3 print “*”; Next i,编程:输入一整数n,计算s=1+2+3+n,Dim n as integer,s as long N=val(text1

7、.text) S=0 For i=1 to n S=S+i Next i Print “1+2+” S,思考: 如何判断一个数是素数?,Dim n as integer,flag as boolean N=val(text1.text) Flag=true For i=2 to int(sqr(n) if n mod I =0 then flag=false exit for endif Next i If flag=true then label1.caption=str(n) i=i+1 loop,课堂练习：,1、编程:输入一整数n,计算s=1+2+3+n 2、编程：输入一整数N，判断N是否素数,多重循环,Private Sub Form_Click() F