VBA程序的设计范例

1、高考VBA程序设计解析一、累加和问题：1、基本问题问题：编程计算1+2+3+ + 100;程序界面：源代码：Private Sub Comma nd3_Click()Dim s As In tegerDim i As In tegers = 0For i = 1 To 100 Step 1s = s + iNext iText1.SetFocusText1.Value = sEnd SubPrivate Sub Comma nd4_Click()DoCmd.Close acForm, VBAS 序设计例 1 End Sub2、问题拓展拓展1:编程计算1+3+5+7+99;源代码修改:For i

2、 = 1 To 99 Ste2s = s + iNext i拓展2:编程计算2+4+6+8+ 100;源代码修改：For i =2 TolOO Step 2s = s + iNext i拓展3:编程计算1+2+3+-+N;程序界面：请输人N;1计B1+2+3+-.-+K :计算退出源代码：Private Sub Comma nd10_Click()Dim i As In tegerDim s As In tegerText3.SetFocusIf Trim(Text3.Text) = Space(0) The n MsgBox 请输入 N 的值！ ”, vbOKOnly Exit SubEls

3、eIf Val(Text3.Text) 1 The nMsgBox 请输入大于1的正整数！ , vbOK Only Exit SubEnd Ifs = 0For i = 1 ToVal(Text3.Value)Step 1s = s + iNext iText8.SetFocusText8.Value = sEnd Sub拓展 4:编程计算 1+(1+2)+(1+2+3)+(1+2+3+4)+(1+2+3+4+ + 100);程序界面：计(1+2) + (1+2+2) + (1+2+3+4：)+ - -h (1+2+3+4+ -*+100) :|计算退出源代码：Private Sub Comm

4、a nd3_Click()Dim i As In teger, j As In tegerDim s1 As In teger, s2 As Doubles1 = 0s2 = 0For i = 1 To 100 Step 1s1 = 0For j = 1 Tds1 = s1 +jNext js2 = s2 +s1Next iText1.SetFocusText1.Text = s2End Sub拓展 5:编程计算 1+(1+3)+(1+3+5)+(1+3+5+7)+(1+3+5+7+99);源代码：Private Sub Comma nd3_Click()Dim i As In teger,

5、j As In tegerDim s1 As In teger, s2 As Doubles1 = 0s2 = 0For i = 1 TC50 Step 1s1 = 0For j = 1 Toi*2-1 step 2 s1 = s1 + jNext js2 = s2 + s1Next iText1.SetFocusText1.Text = s2End Sub3、算法相关问题编程计算1*2*3*100 ;提示：存变量的数据类型的确定； 二、排序问题1 、基本问题问题：提示用户输入两个数，比较其大小； 源代码：Private Sub Command4_Click()Dim a1 As String

6、Dim a2 As StringDim b1 As IntegerDim b2 As IntegerText0.SetFocusa1 = Trim(Text0.Text)Text2.SetFocusa2 = Trim(Text2.Text)If a1 = Space(0) Or a2 = Space(0T)henMsgBox 请输入两个待比较的数！ , vbOKOnly Exit SubEnd If b1 = Val(a1) b2 = Val(a2)Text8.SetFocusIf b1 maxvalue The n maxvalue = arr(i)End IfIf arr(i) arr(j

7、) The n temp = arr(i) arr(i) = arr(j) arr(j) = tempEnd IfNext jNext iText2.SetFocusFori = 1 To 10Text2.Text = Text2.Text & arr(i) & ,Next iEnd Sub拓展3:输入一组数，请按升序排序输出这组数;程序界面：源代码：Private Sub Comma nd6_Click()Dim arr(1 To 10) As In tegerDim i As In tegerDim j As In tegerDim temp As In tegerDim s1 As St

8、ri ngFor i = 1 To 10arr(i) = InputBox(请输入第& i & 个数：) s1 = s1 & arr(i) & ,Next iText1.SetFocusText1.Value = s1For i = 1 To 9For j = i + 1 To 10If arr(i) arr(j) The n temp = arr(i) arr(i) = arr(j) arr(j) = tempEnd IfNext jNext iText3.SetFocusFori = 1 To 10Text3.Text = Text3.Text & arr(i) & ，” Next i E

9、nd Sub三、窗体设计1、基本问题第一项记录团员ra省二题迅剌下一项记录最后一项记录.退出源代码：Private Sub Comma nd11_Click()On Error GoTo Err_Comma nd11_ClickDoCmd.GoToRecord , , acFirstExit_Comma nd11_Click:Exit SubErr_Comma nd11_Click:MsgBox Err.Descripti onResume Exit_Comma nd11_ClickEnd SubPrivate Sub Comma nd12_Click()On Error GoTo Err_C

10、omma nd12_Click DoCmd.GoToRecord , , acPreviousExit_Comma nd12_Click:Exit SubErr_Comma nd12_Click:MsgBox Err.Descripti on Resume Exit_Comma nd12_Click End SubPrivate Sub Comma nd13_Click()On Error GoTo Err_Comma nd13_Click DoCmd.GoToRecord , , acNextExit_Comma nd13_Click:Exit SubErr_Comma nd13_Click

11、:MsgBox Err.Descripti on Resume Exit_Comma nd13_Click End SubPrivate Sub Comma nd14_Click()On Error GoTo Err_Comma nd14_Click DoCmd.GoToRecord , , acLastExit_Comma nd14_Click:Exit SubErr_Comma nd14_Click:MsgBox Err.Descripti on Resume Exit_Comma nd14_Click End Sub2、问题拓展 拓展1 :窗体查询1学生学籍查询学生姓名：查询退出班级编号

12、李号 姓名+ 性别年龄”出生日期，II n1记录N罢丄项（共1坝）H丄县轄1 .111源代码： SQL查询部分：SELECT * FROM学 生学籍WHERE like forms!窗体查询 _主子窗体 1.text2.text; 子窗体的源对象设置为查询对象； 查询按钮单击事件代码：Private Sub Comma nd6_Click()Dim stud name As Stri ngText2.SetFocusstud name = Trim(Text2.Text)If stud name = Space(0) Then MsgBox 请输入学生！ ”, vbOKO nlyElseMe.Child8. RequeryEnd IfEnd Sub拓展2:窗体查询2学生成绩查询源代码： SQL查询部分：SELECTS生学籍班级编号，学生学籍学号，学生学籍.,学生成绩学 期，学生成绩语文，学生成绩.数学，学生成绩.英语，学生成绩.专业 一，学生成绩.专业二，学生成绩.总分FROM学生学籍INNER JOIN学生成绩 ON (学生学籍学号二学生 成绩学号)AND 学生学籍班级编号二学生成绩班级编号)WHERE like forms!窗体查询 _主子窗体 2.text2.text; 子窗体的源对象设