044总结﹝程序结构﹞.ppt

VB 程序设计;程序设计方法： 1、认真阅读题目，建立窗体 （注：窗体不一样，编程方式也不一样） 2、分析处理数据及操作先后关系 3、转化为结构（流程图或N-S图） 4、程序设计 5、上机检查（调试） 6、总结、改进 7、推广应用;IF 条件表达式 Then 语句组A Else 语句组B End if;2: 单行条件语句;3: 比较;4: 多分支选择结构 Select ;5: 条件结构示例1;Private Sub Command1_Click() ‘方法2 a = Val(InputBox(请输入三角形边长a)) b = Val(InputBox(请输入三角形边长b)) c = Val(InputBox(请输入三角形边长c)) ‘注：输入的边长a、b、c必须组成三角形,否则重新输入,直到成功为至 Do While (a + b c Or a + c b Or b + c a) MsgBox (输入的边长a、b、c不能组成三角形,请重新输入) a = Val(InputBox(请输入三角形边长a)) b = Val(InputBox(请输入三角形边长b)) c = Val(InputBox(请输入三角形边长c)) Loop ‘注：循环这种方法不能改为文本框输入，为什么？ k = (a + b + c) / 2 s = Sqr(k * (k - a) * (k - b) * (k - c)) Print s End Sub;Private Sub Command1_Click() ‘方法3 a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And a + c b And b + c a Then k = (a + b + c) / 2 s = Sqr(k * (k - a) * (k - b) * (k - c)) Text4.Text = s Else MsgBox (输入的边长a、b、c不能组成三角形) End If End Sub; 假设广州市地铁1号线全长共有12站台，搭乘站数与车票价格的对应 关系如下表:;Private sub Command1_click() Dim a%, b%, c% a = Val(InputBox(输入当前站号 =)) b = Val(InputBox(输入目的地站号=)) If ((a = 1 And b = 12) or (b = 1 And a = 12)) Then n = Abs(b - a) If (n = 1 Or n = 2) Then c = 1 If (n = 3 Or n = 4) Then c = 2 If (n = 5 Or n = 6) Then c = 3 If (n = 7 Or n = 8) Then c = 4 If (n = 9 Or n = 10) Then c = 5 If (n = 11 Or n = 12) Then c = 6 Print 票价=“;c+1 Else Print 站号超界，ERROR! End If End sub ;当前站是陈家祠站 站号6 Private Sub Command10_Click() 票价 a = 6 If Text1.Text = 火车东站 Then b = 1 If Text1.Text = 体育西路 Then b = 2 If Text1.Text = 天河 Then b = 3 If Text1.Text = 中山东路 Then b = 4 …… n = a - d c = Int((n + 1) / 2) Text2.Text = c + 1 End Sub;7: 循环块结构格式;8: 循环要点 ;9: 循环出口;10: 循环结构示例1(项操作);10: 循环结构示例2(行列输出);For i = 1 To 9 行 For j = 1 To 9 ‘ 列 Print i × j = i * j ; Next j Print Next i;* ** *** ***