数据库应用08 vba结构化程序设计教学材料.pptx

第8章 VBA程序设计基础;A Joke（SQL版）;A Joke（C语言版）;姑娘爱小伙(伪C语言版);姑娘爱小伙(搞笑版);姑娘爱小伙(搞笑版);姑娘爱小伙(搞笑版)完整版;程序可读性;8 结构化程序设计基础;8.1 程序设计过程;;8.2 算法（1）;8.2 算法（2）;8.2 算法（3）;8.2 算法（4）;8.2 算法（5）;8.3 程序流程图及示例;1. ANSI流程图（1）;1. ANSI流程图（2）;1. ANSI流程图（3）;1. ANSI流程图（4）;1. ANSI流程图（5）;2. N-S图 （1）;2. N-S图 （2）;2. N-S图 （3）;2. N-S图 （4）;8.3 程序的控制语句结构 ;2.分支结构程序（1）;2.分支结构程序（2） ;2.分支结构程序（3）;2.分支结构程序（4）;例：根据输入的X值, 决定输出Y的值。;江西财经大学信息管理学院《数据库应用》课程组2007;Public Sub 判断奇偶性() Dim strx As String Dim x As Integer strx = InputBox(请输入x, 提示) x = Val(strx) If x Mod 2 = 0 Then Debug.Print 该数为偶数！ Else Debug.Print 该数为奇数！ End If End Sub;【例1】输入任意