《程序设计试验》由会员分享，可在线阅读，更多相关《程序设计试验（21页珍藏版）》请在金锄头文库上搜索。
1、VBA 程序设计基础实验实验前预习：书本：例 8-5、8-6、8-7、8-8、8-9、 8-14、 8-16实验教程： P61 页 习题 8.5 8.15、习题 8.18、习题 8.20一、了解程序设计三种基本结构1 顺序结构程序运行时自上而下依次执行语句，称为顺序结构。2 分支结构根据指定条件的当前值在两条或多条程序路径中选择一条执行。? 1.单行 If 语句? 单行 If 语句格式如下：? If 条件 Then 语句序列 1 Else 语句序列 2? 2.多行 If 语句? If 条件 1 Then 语句序列 1ElseIf 条件 2 Then 语句序列 2ElseIf 条件 n Then
2、 语句序列 nElse 语句序列 n+1End If? 3.Case （情况）语句Select Case 测试表达式Case值列表1语句序列1Case值列表2语句序列2Case值列表n 语句序列nCase Else语句序列n+1End Select3循环结构循环结构是根据指定条件的当前值来决定语句是否要重复执行。? I.For语句? For语句格式如下：? For循环变量二初值To终值Step步长循环体语句序列Next 循环变量? 2.While 语句? While格式如下：? While条件循环体语句序列Wend? 3.Do语句?与While语句相比，Do语句可以先判断条件后执行循环体（格式
3、 一、格式二），也可以先执行循环体后判断条件（格式三、格式四）? Un til与While区别：while后的条件成立时，执行循环体语句， Un til后的条件成立时，则是退出循环体语句。18-15 Do跚的軾P格式1榕式3Do LWhik 条帘Do Until箫杵Do钢体齣序列猫环休语旬序列LoflpIuopL()J _W/.|rLoop Until 条件为蛋Do再旬直句1、动手编写下列程序，熟悉“立即窗口”和“窗体”两种编程环境。1 输入一个数字，然后判断该数的奇偶性。 （书本例 8-6）Public Sub oddeven_sub2（）Dim x As Integerx = InputB
4、ox（ 请输入一个整数 , 奇偶数判断 ）If x Mod 2 = 1 ThenMsgBox 奇数 ElseMsgBox 偶数 End IfEnd Sub2 输入一个分数，程序自动给出该分数的等级， 85 分以上为优秀，60-85 分为合格， 小于 60 为不合格。（书本例 8-7）Public Sub Grade_sub1（）Dim score As Integer, grade As Stringscore = InputBox（ 输入百分制成绩： ）If score = 85 Thengrade = 优秀 ElseIf score = 60 Thengrade = 合格 Elsegrad
5、e = 不合格 End IfMsgBox gradeEnd Sub3 计算 100 以内所有数字的和，即1+2+3+.+100= ？（书本例8-14）Private Sub sum_sub1（）Dim sum As Integersum = 0For i = 1 To 100 Step 1sum = sum + iNext iMsgBox 1-100 的和为 & sumEnd Sub4找出 100到 200之间的所有偶数，要求每个偶数单独一行显示。 (实验教程 P64 习题 8.8)Public Sub even()Dim i As Integer, s As String s = 100 至
6、 200 之间的偶数有： For i = 100 To 200 Step 2s = s & Chr(10) + Chr(13) & i 换行 Chr(10)+ 回车 Chr(13) ，用于强制换行。这里使得每个数字单独一行显示。Next iMsgBox (s)括号可以省略End Sub实验教5 输入一个串字符，程序将该字符串倒序处理后输出 程 P66 习题 8.13 )Public Sub reverse()Dim s$, i%, j%, t$ 定义s,t为字符型变量，i,j为整型变量。s = InputBox( 请输入字符串 ) Debug.Print 原字符串： ; si = 1: j =
7、 Len(s) 多行命令写成一行，需要用冒号:隔开While i j i每次递增1, j递减1,当i= 85 Thengrade =优秀”ElseIf score = 60 The ngrade =合格”Elsegrade =不合格End IfText2.Value = gradeEnd Sub7将上面第5题，改用窗体风格实现，运行界面如下图所示，文 件名保存为倒序处理。参考代码：Private Sub Comma nd4_Click()Dim s$, i%, j%, t$定义s,t为字符型变量，i,j为整型变量。s = textO.valuei = 1: j = Len(s) 多行命令写成一
8、行，需要用冒号 :隔开While i j i每次递增1, j递减1,当ij,表示倒序置换完毕t = Mid(s, i, 1)Mid(s, i, 1) = Mid(s, j, 1)Mid(s, j, 1) = ti = i + 1j = j - 1WendText2.value=sEnd Sub 三、复制、运行、修改、调试，最终 理解下列程序。1 输入一个数字， 然后判断该数的奇偶性。 (书本例 8-5、例 8-6)Public Sub oddeven_sub1() 方法一，单行 if 语句。Dim x As Integerx = InputBox( 请输入一个整数 , 奇偶数判断 )If x
9、Mod 2 = 1 Then MsgBox 奇数 Else MsgBox 偶数End SubPublic Sub oddeven_sub2() 方法二，多行 if 语句。Dim x As Integerx = InputBox( 请输入一个整数 , 奇偶数判断 )If x Mod 2 = 1 ThenMsgBox 奇数 ElseMsgBox 偶数 End IfEnd Sub2 输入一个年份，判断其是否闰年。 (实验教程 P61 习题 8.5)Public Sub leap()Dim year As Integeryear = InputBox( 请输入一个年份 , 判断闰年 )If (year
10、 Mod 4 = 0 And year Mod 100 0) ThenMsgBox year & 是闰年 ElseMsgBox year & 不是闰年 End IfEnd Sub3计算应付托运费，50kg以内0.20元/kg ,超过部分0.50元/kg.确定按钮代码（实验教程P61习题8.6）Private Sub Comma nd1_Click()Dim w As Si ngleDim P As Si nglew = Text1.ValueIf w 50 The nP = (w - 50) * 0.5 + 50 * 0.2ElseP = w * 0.2End IfText2.Value =
11、PEnd Sub清除按钮代码退出按钮代码Private Sub Comma nd2_Click()Textl.Value =Text2.Value =End SubPrivate Sub Comma nd3_Click()DoCmd.CloseEnd Sub4输入三个数，程序给出最大数。（实验教程P63习题8.7）Private Sub Comma ndO_Click()确定按钮代码Dim a As Single, b As Single, c As Single, max As Singlea = Text1.Valueb = Text2.Valuec = Text3.Valuemax =
12、aIf b max The n max = bIf c max The n max = cText4.Value = maxEnd Sub5输入一个分数，程序自动给出该分数的等级，85分以上为优秀，60-85分为合格，小于60为不合格。(书本例8-7、例8-9)Public Sub Grade_sub1()方法一：多行 if 语句。Dim score As In teger, grade As String score = InputBox(输入百分制成绩：) If score = 85 Thengrade =优秀”ElseIf score = 60 The ngrade =合格”Elsegr
13、ade =不合格End IfMsgBox gradeEnd SubPublic Sub Grade_sub2()方法二：case(情况)语句 1。Dim score As Integer, grade As Stringscore = InputBox( 输入百分制成绩： )Select Case scoreCase Is = 85 grade = 优秀 Case Is = 60 grade = 合格Case Elsegrade = 不合格 End SelectMsgBox gradeEnd SubPublic Sub Grade_sub3() ” 方法二：case(情况)语句 2。Dim score As Integer, grade As Stringscore = InputBox( 输入百分制成绩： )Select Case scoreCase 85 To 100grade = 优秀 Case 60 To 84grade = 合格Case Else
