温州医学院 vb第三讲.ppt

结构化程序设计与数组 3.1 三种基本的控制结构 顺序结构 直线结构，程序逐行运行，没有跳跃或者重复执行 典型代表 Dim x%,y%,temp% X=10:y=20 Temp=x X=y Y=temp 3.1 三种基本的控制结构 选择结构（分支结构） 在程序的运行过程中，存在岔路，通过特定的条件进行选择 循环结构 程序设计中最重要的结构，计算机进行复杂工作的基础 3.2 选择结构 语法格式1 IF条件 THEN语句1[ELSE 语句2 ] 解释： 条件 表达式为真，程序执行语句1 ，反之为假，程序执行语句2 例3-1 分段函数的计算 1-x2 f(x)= (x-5)1/4 3.2 选择结构 例3-2 输入x、y，仅当xy时，交换x,y值，然后输出x,y的值（Text控件输入x,y值，采用label空间输出结果） 3.2 选择结构 语法格式2 If(条件) then 语句1 [ Else 语句2] End if 注意：语句1与语句2可能不只有一行程序代码，可能是某断代码块 典型程序 例3.3 求一元二次方程的根 3.2 选择结构 语法格式3 Select case 测试表达式 [case 表达式列表1 [语句块1] ] [case 表达式列表2 [语句块2] ] ……………. [case else [语句块n+1] ] End select 典型程序 例3.5 多项式计算 3.2 选择结构 典型程序 例3.6 输入年月，输出该月的天数，注意需要考虑闰年 闰年的判断？ Y mod 4=0 and y mod 1000 or y mod 400=0 Select Case m Case 1, 3, 5, 7, 8, 10, 12 d = 31 Case 4, 6, 9, 11 d = 30 Case 2 需要判断是否为闰年 If (y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0) Then d = 29 Else d = 28 End If Case Else MsgBox (输入的月份错误!) End Select 3.3 循环结构 语法格式 For 循环变量＝初值 to 终值 [Step 步长] 语句块 Next 循环变量 典型程序 求1-100的整数和 例3.8 表达式求值 3.3 循环结构 例3.9 Private Sub Form_Click() Dim i% For i = 5 To 1000 Step 7 If i Mod 5 = 3 And i Mod 3 = 2 Then Exit For 返回满足的第一个数 Next i If i = 1000 Then Print i End Sub 3.3 循环结构 while…..wend语句 格式如下： While 条件 循环块 Wend 典型应用，不定项多项式计算 例3.12 3.3 循环结构 形式1：（当型循环） Do { While}条件 语句块 [Exit Do] 语句块 Loop 3.3 循环结构 形式1：（当型循环） Do {Until }条件 语句块 [Exit Do] 语句块 Loop 3.3 循环结构 例3-14:判断输入的任意正整数是否为素数 3.4 多重循环 我国古代数学家在《算经》中出了一道题： “鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一； 百钱买百鸡，问鸡翁，鸡母，鸡雏各几何？ 3.4 多重循环 例3.18 运行时单机命令按钮后，输入n(n10),然后在窗体上输出n层金字塔 Loop While n 1 Or n 9 验证n的值，否则继续循环 For i = 1 To n Print Tab(n - i + 1); 设置该行输出的起始位置 分号表示紧凑格式 For j = 1 To 2 * i - 1 Print Trim(i); 函数trim除去i两端的空格 Next j Next i 3.5 数组及应用 数组的概念 数组是指在内存连续区域中的相同类型数据的有序集合，由一个变量名来引用。数组中的每一个元素都可以通过一个数值下标访