End终止程序的运行 End Sub终止一个过程 End Function终止一个函数 End If终止条件语句 End Type终止类型声明 End Select终止情况语句图3-1顺序结构程序 流程图 End Property终止属性过程 End With终止With语句
6 End 终止程序的运行 End Sub 终止一个过程 End Function 终止一个函数 End If 终止条件语句 End Type 终止类型声明 End Select 终止情况语句图3-1顺序结构程序 流程图 End Property 终止属性过程 End With 终止With语句
4G0T0语句 格式： GoT0行标签|行号 功能：无条件地转移到行标签或行号指定的 行处开始执行。 ■行标签：一个以冒号结尾的标识符。 ■行号：一个整型数
7 4 GoTo语句 格式： 功能：无条件地转移到行标签或行号指定的 行处开始执行。 ◼ 行标签：一个以冒号结尾的标识符。 ◼ 行号：一个整型数。 GoTo 行标签 | 行号
G0To语句示例： 10: MyString="aaaaaaaaaaaaaaa" GoTo LastLine 20 MyString "bbbbbbbbbbbbbbb" LastLine: Print MyString
8 GoTo语句示例： 10: MyString = "aaaaaaaaaaaaaaa" GoTo LastLine 20 MyString = "bbbbbbbbbbbbbbb" LastLine: Print MyString
3.1.3顺序结构程序设计 计算机在执行顺序结构的程序时，按语句 出现的先后次序从上到下（或从左到右）依 次执行。用传统流程图表示的顺序结构如下 图。 A B
9 3.1.3 顺序结构程序设计 计算机在执行顺序结构的程序时，按语句 出现的先后次序从上到下（或从左到右）依 次执行。用传统流程图表示的顺序结构如下 图
【例3.1】从键盘上输入圆的半径，计算圆的面积和周长并 输出 打开“代码设计”窗口，添加窗体的Activate事件代码如下： Private Sub Form_Activate( Dim r As Single,s As Single,.IAs Single'声明3个变量 Const piAs Single=3.14159'声明符号常量pi r=InputBox("请输入圆的半径："，"数据输入") s=pi*r2'计算圆面积 I=2*pi*r'计算圆周长 Print'输出一个空行，为了使输出结果比较清楚 Print"圆面积="；s Print Print"圆周长="；l End Sub 10
10 【例3.1】 从键盘上输入圆的半径，计算圆的面积和周长并 输出 打开“代码设计”窗口，添加窗体的Activate事件代码如下： Private Sub Form_Activate() Dim r As Single, s As Single, l As Single ' 声明3个变量 Const pi As Single = 3.14159 ' 声明符号常量pi r = InputBox("请输入圆的半径：", "数据输入") s = pi * r ^ 2 ' 计算圆面积 l = 2 * pi * r ' 计算圆周长 Print ' 输出一个空行，为了使输出结果比较清楚 Print "圆面积="; s Print Print "圆周长="; l End Sub