江西财经大学信息管理学院《数据库应用》课程组2007

江西财经大学信息管理学院《数据库应用》课程组2007
第8章 VBA程序设计基础 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

结构化程序设计基础程序设计过程算法程序流程图及示例 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

8.1 程序设计过程程序设计即是计算机用户根据解决某一问题的步骤，按一定的逻辑关系，将一系列的指令组合在一起。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

程序计算机程序或者软件程序（通常简称程序）是指一组指示计算机每一步动作的指令，通常用某种程序设计语言编写，运行于某种目标体系结构上。打个比方，一个程序就像一个用汉语（程序设计语言）写下的红烧肉菜谱（程序），用于指导懂汉语的人（体系结构）来做这个菜。通常，计算机程序要经过编译和链接而成为一种人们不易理解而计算机理解的格式，然后运行。未经编译就可运行的程序通常称之为脚本程序。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

8.2 算法（1）程序的设计过程，核心问题是设计一个合理、有效的算法。一般认为，算法就是在有限的时间内，可以根据明确规定的运算规则，在有穷步骤内得出确切计算结果的机械步骤或能运行的计算程序。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

8.2 算法（2）算法特性： (1)有序性：每个步骤被执行的顺序是确定的。 (2)有限性：即解题步骤是有限的，无穷的步骤意味无解。 (3)确定性：多次运行同样一个程序，其结果相同。此外，算法可以没有输入（因为输入由计算机自动产生），但一定要有输出，输出用来表示问题是否有解。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

8.2 算法（3）三种基本控制结构：顺序、分支、循环顺序结构是程序设计中最基本的结构。在该结构中，程序的执行是按命令出现的先后顺序依次执行的。分支结构是按给定的选择条件成立与否来确定程序的走向。分支结构可分为双重分支选择和多重分支选择。在任何条件下，无论分支多少，只能选择其一。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

8.2 算法（4）三种基本控制结构：顺序、分支、循环循环结构是一种重复结构，即某一程序段将被反复执行若干次。按循环的嵌套层次，循环可分为简单循环结构和循环嵌套（也称为多重循环）结构。按循环体执行的条件性质，循环又可分为While循环和Until循环。无论何种类型的循环结构，都要确保循环的重复执行能够终止。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

8.2 算法（5）结构化程序是指仅由三种基本控制结构组成的程序，它具有以下特点： (1) 整个程序模块化。 (2) 每个模块只有一个入口和一个出口。 (3) 每个模块都应能单独执行，且无死循环。 (4) 采用黑箱的思想，宏观地描述任何一个程序，可以将它看成为顺序结构。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

8.3 程序流程图及示例 ANSI流程图 N-S图 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

1. ANSI流程图（1）判断框箭头：表示程序流向连接符号：表示图标之间相互连接关系判断框：表示根据条件决定程序走向过程：表示该流程部分是一个过程输入/输出框：表示数据的输入、输出操作处理框：表示对数据进行处理起止框：表示程序的开始或结束 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

1. ANSI流程图（2）顺序结构 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2. N-S图（1）顺序结构语句块1 语句块2 语句块3 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

江西财经大学信息管理学院《数据库应用》课程组
顺序结构函数 VAL（字符表达式）功能：将字符转化为数字如？VAL(“123”) 答案为：123 ？VAL(“123as”) 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

顺序结构 Str(数值表达式) 功能：将数字转化为字符 Inputbox(“提示信息”) 功能：得到一个字符型值 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

顺序语句例句输入两个数，然后输出这两数值 Dim a,b as double a=val(inputbox(“请输入一个数至a”)) b=val(inputbox(“请输入一个数至b”)) debug.print “a的值为”；a debug.print “b的值为”；b 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

1. ANSI流程图（3）条件分支结构 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2. N-S图（2）条件分支结构 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

1. ANSI流程图（5）多重条件分支结构 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2. N-S图（3）多重分支选择语句 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

2.分支结构程序（1）假真条件语句块1 语句块2 双重分支选择语句语句格式： If <条件> Then <语句块1> [Else <语句块2>] End If 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

2.分支结构程序（2）双重分支选择语句语句格式： If <条件> Then <语句块1> [Else <语句块2>] End If 语句块1 语句块2 条件真假 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

条件分支结构例句输入两个数，按照从小到大顺序输出 Dim a,b as double a=val(inputbox(“请输入一个数至a”)) b=val(inputbox(“请输入一个数至b”)) if a>=b then debug.print b, a else debug.print a；b endif 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

条件语句输入两个数，按照从小到大顺序输出 Dim a,b,t as double a=val(inputbox(“请输入一个数至a”)) b=val(inputbox(“请输入一个数至b”)) if a>=b then t=a a=b b=t endif debug.print a；b 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

条件语句求两个两位整数相加 Public Sub sj() Dim a, b, c As Double a = Int(Rnd() * 100) b = Int(Rnd() * 100) Debug.Print "a的值为", a Debug.Print "b的值", b c = a + b Debug.Print "和为", c End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

条件语句 Public Sub shu() Dim a, b, c As Double a = Int(Val(InputBox("请输入一个数a"))) b = Int(Val(InputBox("请输入一个数b"))) If a > 9 And a < 100 And b > 9 And b < 100 Then c = a + b Debug.Print "和为", c Else Debug.Print "输入数据有误" End If 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

2.分支结构程序（3） If <条件1> Then [<语句块1>] [ElseIf <条件2> Then [<语句块2>]] ... [ElseIf <条件n> Then [<语句块n>]] [Else [<语句块>]] End If 多重分支选择语句 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2.分支结构程序（4） If <条件1> Then [<语句块1>] [ElseIf <条件2> Then [<语句块2>]] ... [ElseIf <条件n> Then [<语句块n>]] [Else [<语句块>]] End If 多重分支选择语句 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2. 分支结构程序（5）例6-8：从键盘随机输入成绩分数，根据成绩分数来判断该成绩属于优、良、中还是差。规定： 90≤成绩≤100为优； 80≤成绩<90为良； 60≤成绩<80为中；成绩<60为差；其它为非法输入。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2. 分支结构程序（6） Public Sub multicase() Dim grade As Integer grade = Val(InputBox("请输入成绩")) If grade <= 100 And grade >= 90 Then Debug.Print Str(grade) & "的成绩为:" & "优" '缩格的目的是增加可读性 ElseIf grade < 90 And grade >= 80 Then Debug.Print Str(grade) & "的成绩为:" & "良" ElseIf grade < 80 And grade >= 60 Then Debug.Print Str(grade) & "的成绩为:" & "中" ElseIf grade < 60 And grade > 0 Then Debug.Print Str(grade) & "的成绩为:" & "差" Else Debug.Print "您输入的成绩不对!" End If End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2.分支结构程序（3） Select Case <测试表达式> [Case <条件表达式1> [<语句块1>]] ... [Case Else [<语句块>]] End Select 多重分支选择语句 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2.分支结构程序（4） Select Case <测试表达式> [Case <条件表达式1> [<语句块1>]] ... [Case Else [<语句块>]] End Select 多重分支选择语句 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

例子【例8-4】从键盘随机输入成绩分数，根据成绩分数来判断该成绩属于优、良、中还是差。规定： 90≤成绩≤100为优； 80≤成绩<90为良； 60≤成绩<80为中；成绩<60为差；其他为非法输入。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

Public Sub multicase() Dim grade As Integer grade = Val(InputBox("请输入成绩")) Select Case grade Case 90 To 100 MsgBox( Str(grade) & "的成绩为:" & "优") Case 80 To 90 MsgBox( Str(grade) & "的成绩为:" & "良") Case 60 To 80 MsgBox( Str(grade) & "的成绩为:" & "中") Case 0 To 60 MsgBox( Str(grade) & "的成绩为:" & "差") Case Else MsgBox( "您输入的成绩不对!") End Select End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

Public Sub 求和() Dim a, b, c As Double Dim x, y As Double a = Int(Val(InputBox("请输入一个数a"))) Select Case a Case 9 To 99 x = a Case -99 To -10 Case Else MsgBox ("输入数据不对") End Select Debug.Print "一个数为", x b = Int(Val(InputBox("请输入一个数b"))) Select Case b y = b Debug.Print "一个数为", y c = x + y Debug.Print "两数和为", c End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

Public Sub q4() Dim a, b, c As Double Dim x, y As Double Do While True a = Int(Val(InputBox("请输入一个数a"))) Select Case a Case 9 To 99 x = True Case -99 To -10 Case Else x = False End Select If x And True Then Exit Do End If Loop Debug.Print "一个数为", a b = Int(Val(InputBox("请输入一个数b"))) Select Case b y = True y = False If y And True Then Debug.Print "一个数为", b c = a + b Debug.Print "两数和为", c End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组

1. ANSI流程图（4）循环结构 While型循环结构 Until型循环结构 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2. N-S图（4）循环结构 While型循环结构 Until型循环结构 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（1） DO WHILE循环语句格式： Do While <条件表达式> <语句块> [Exit Do] Loop 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（2）循环语句的使用要注意下列几点：（1）Do While和Loop子句要配对使用，Loop的作用是使循环回到循环的开始，即到Do While语句。（2）在第一次执行到Do While语句时，循环条件必须为真，才能进入循环体。在执行完成循环体语句后，再判断循环条件是否为真，如果为真，则继续循环，直到循环条件为假时，才退出循环语句，执行Loop后面的语句。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（3）循环语句的使用要注意下列几点：（3）循环体中，一定存在一条或若干条语句在改变循环条件。如果循环条件恒为真，则是死循环。（4）要小心改变循环条件，如果不适当的修改循环条件，则循环将不能按预先的设想进行，程序也达不到预期的效果。（5）为增加程序的可读性，使程序清晰易懂，必须使用缩格。（6）关于Exit Do语句使用参见本节后面的内容。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（4）例6-11：求1加到10的累加和S=1+2+3+… Public Sub sum_example() s = '求累加和的变量 i = '循环变量赋初值 Do While i <= '循环条件，使用缩格，提高可读性 Debug.Print i '此处输出变量i的值是方便理解循环的过程 s = s + i 　　 '求累加，即循环不变式 Debug.Print s; '输出s的结果，理解每次累加结果的变化 i = i 　　 '改变循环变量的值 Loop Debug.Print s '循环体外输出结果 End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（5）循环阅读理解循环条件是什么？什么时候进入循环？什么时候退出循环？循环体内如何改变循环条件？循环变量的作用？ 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（6）在循环中处理循环不变式的一般结构 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（8）循环结构中的Exit Do命令 Do While <循环条件> <循环体1> If <条件> Exit Do End If <循环体2> Loop 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

Do Until循环语句 Do Until <条件表达式> <循环体> [Exit Do] Loop 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

For循环结构程序（10） For循环语句格式： For < 循环变量> = <循环初值> To <循环终值>[ Step <步长> ] <语句块> [Exit For] Next 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（11）例6-15：求N！，即求N的阶乘。 Public Sub 求阶乘() Dim i, n, p As Integer p = 1 n = Val(InputBox("请输入n的值:")) For i = 1 To n Step 'Step 1可以省略。 p = p * i '循环不变式，完成累乘。 Next Debug.Print Str(n) & "的阶乘是:" & Str(p) End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

While Wend循环语句 While <循环条件> [<语句块>] Wend 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

例 Public Sub WhileWend() Dim i As Integer Dim s As Double i = 1 While i <= 100 s = s + (-1) ^ (i + 1) / i i = i + 1 Wend Debug.Print "s="; s End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（12）循环的嵌套循环体内又嵌套循环的情况称为多重循环或循环嵌套。处于循环体内的循环称为内循环，处于外层的循环称为外循环。内外循环的层次必须分明，不允许有交叉现象出现。内外循环的循环变量不要同名。在嵌套情况下，Exit Do语句使控制跳到下方离其最近的Loop之后。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

3. 循环结构程序（14）例8-13：打印如图所示对称三角图形，要求第一行的*在第10列。 Public Sub 三角状星型输出() Dim i, j As Integer For i = 1 To '控制输出的行数 Debug.Print Tab(11 - i); "*"; '确定每行第一个*所在的列数 For j = 1 To 2 * i '控制每行除第一个以外的星号的个数 Debug.Print "*"; '输出后继的* Next j Debug.Print '输出另起一行 Next i End Sub 　* *** ***** ******* Public Sub 三角状星型输出() Dim i, j As Integer For i = 1 To '循环用来控制输出的行数本例为共4行，循环4次 Debug.Print Tab(11 - i); "*"; '确定每行第一个*所在的列数 For j = 1 To 2 * i '循环次数控制每行除第一个以外的星号的个数 Debug.Print "*"; '输出后继的* Next j Debug.Print '输出另起一行 Next i End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

求素数例8-14：输入一个大于1的正整数，判断该数是否是素数。分析：所谓素数又称为质数，是指只能被1和它自身整除的数。要判断x是否能够被3整除使用条件表达式：x/3 = int(x/3)。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

分析对于输入的数据x，判断它是否为素数的过程，就是修改上面条件表达式的分母，让分母的数值从2变到x-1，如果分母从2到x-1都不能整除x，则x是素数。实际上程序可以改进，只需让分母从2变到int(x/2)。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

Public Sub 求素数() Dim flag As Boolean Dim i, x As Integer flag = True '设置标志，假定为素数 x = Val(InputBox("请输入整数数据")) '通过循环将x除以2到int(x/2)的数， '如果有整除发生，则x不是素数，退出循环。 For i = 2 To Int(x / 2) If x / i = Int(x / i) Then '另一种条件表达式为x mod i = 0 flag = False Exit For End If Next '下面的if语句为输出结果， '通过判断标志flag来决定x是否为素数。 If flag Then Debug.Print Str(x) + "是素数。" Else Debug.Print Str(x) + "不是素数。" End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

6.4 数组的应用数组在使用之前，必须加以定义，然后才能使用该数组。数组定义或数组说明语句格式为： DIMENSION <数组名1>(<数值表达式1>[,<数值表达式2>,...]) [,<数组名2>(<数值表达式1>[,<数值表达式2>,...])...] 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

例子 dimension A(N) dimension B(n,m) A(1) A(2) … A(N-1) A(N) B(1,1)，B(1,2)，...，B(1,m) B(2,1)，B(2,2)，...，B(2,m) … B(n,1)，B(n,2)，...，B(n,m) 江西财经大学信息管理学院《数据库应用》课程组2007

例子：排序例6-21：随机输入N个数据到数组，并对数组的数据进行降序排列。 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

例子：排序程序 Public Sub 数据排序() Dim a(1 to 10), i, j, t As Double For i = 1 To 10 a(i) = Val(InputBox(“请输入数据到数组” & 　　　　　　"A(" & i & ")", "数组输入", "1")) Next I　　　 '输出排序前结果 Debug.Print a(i); Next i Debug.Print 　For i = 1 To 10 – 1　　 '下面为排升序的程序 For j = i + 1 To 10 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j 　For i = 1 To 10　　 '输出排序后的结果 End Sub 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

定义数组，输出原始数据　Dim a(1 to 10), i, j, t As Double For i = 1 To 10 a(i) = Val(InputBox("请输入数据到数组" & 　　　　　　　 "A(" & i & ")", "数组输入", "1")) Next i '输出排序前结果 Debug.Print a(i); Debug.Print 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

例子：排序(3) *下面对数组进行排序 For i = 1 To For j = i + 1 To 10 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

例子：排序(4) '输出排序后的结果 For i = 1 To 10 Debug.Print a(i); Next i 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

VBA程序调试方法单步执行查看变量值 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

习题编一个程序，将华氏温度F=68度变换成摄氏温度C，并将结果显示出来计算公式为：C=5×(F-32)÷9 以循环方式输出1到10的数字求0～100之间奇数之和 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

习题求S=1!+2!+3!+…+5!的值。 S=2+4+6+…+100 Y=1+1／2+1／3+ … +1／30 S=1+(1+2)+(1+2+3)+…+( …+100） 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

习题学分在12分以下的收费4000元，若超过12学分，则超过部分每学分加收200元，编一个程序计算收费，输入学分U，求应缴学费T U≤12 (U-12) U＞12 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

习题假定对齐的列为20列，编写程序输出下列二种图形 # ## ### #### ##### ###### # ## ### #### ##### 2019/4/11 江西财经大学信息管理学院《数据库应用》课程组2007

江西财经大学信息管理学院《数据库应用》课程组2007

Similar presentations

Presentation on theme: "江西财经大学信息管理学院《数据库应用》课程组2007"— Presentation transcript:

Similar presentations

About project

反馈

请登录

Auth with social network:

江西财经大学信息管理学院 《数据库应用》课程组2007

Similar presentations

Presentation on theme: "江西财经大学信息管理学院 《数据库应用》课程组2007"— Presentation transcript:

Similar presentations

About project

反馈

江西财经大学信息管理学院《数据库应用》课程组2007

Presentation on theme: "江西财经大学信息管理学院《数据库应用》课程组2007"— Presentation transcript: