VBA程序设计范例

高考VBA编程分析一、累计和问题：1，基本问题问题：编程计算1 2 3.100；程序界面：源代码：Private Sub Command3_Click()Dim s As IntegerDim I As IntegerS=0For I=1 To 100 Step 1S=s I下一步IText1 .SetFocusText1 .Value=sEnd SubPrivate Sub Command4_Click()DoCmd .Close acForm，“VBA编程样例1”End Sub2、扩展问题扩展1:编程计算1 3 5 7.99；修改源代码：For I=1 To 99 Step 2S=s I下一步I扩展2:编程计算2 4 6 8.100；修改源代码：For I=2 To 100 Step 2S=s I下一步I扩展3:编程计算1 2 3.n；程序界面：源代码：Private Sub Command10_Click()Dim I As IntegerDim s As IntegerText3 .SetFocusif trim(text 3 . text)=space(0)then请输入MsgBox n的值VbOKOnlyExit SubElseIf Val(Text3 .Text) 1 Then请输入大于MsgBox“1”的正整数VbOKOnlyExit SubEnd IfS=0For I=1 To Val(Text3 .Value) Step 1S=s I下一步IText8 .SetFocusText8 .Value=sEnd Sub延伸4:程式设计计算1 (1 2) (1 2 3) (1 2 3 4).(1 2 3 4.100)；程序界面：源代码：Private Sub Command3_Click()Dim I As Integer，j As IntegerDim S1 As Integer，S2 As DoubleS1=0S2=0For I=1 To 100 Step 1S1=0For j=1 To IS1=S1 jNext jS2=S2 S1下一步IText1 .SetFocusText1 .Text=S2End Sub延伸5:程式设计计算1 (1 3) (1 3 5) (1 3 5 7).(1 3 5 7.99)；源代码：Private Sub Command3_Click()Dim I As Integer，j As IntegerDim S1 As Integer，S2 As DoubleS1=0S2=0For I=1 To 50 Step 1S1=0For j=1 To i*2-1 step 2S1=S1 jNext jS2=S2 S1下一步IText1 .SetFocusText1 .Text=S2End Sub3、算法相关问题程式设计计算1 * 2 * 3 *.* 100；提示：确定内存变量的数据类型；二、排序问题1，基本问题问题：系统会提示您输入两个数字并比较大小。源代码：Private Sub Command4_Click()Dim a1 As StringDim 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(0) ThenMsgBox“请输入两个要比较的数字！”VbOKOnlyExit SubEnd IfB1=Val(a1)B2=Val(a2)Text8 .SetFocusIf B1 B2 ThenText8 .Text=“小于”ElseIf B1=B2 ThenText8 .Text=“等于”ElseText8 .Text=“大于”End IfEnd Sub2、扩展问题扩展1: 3，2，7，1，5，4，12，10，8，6个组。请查找此组的最小(较大)值。程序界面：源代码：Private Sub Command4_Click()Dim maxvalue As IntegerDim minvalue As IntegerDim arr(1 To 10) As IntegerArr(1)=3Arr(2)=2Arr(3)=7Arr(4)=1Arr(5)=5Arr(6)=4Arr(7)=12Arr(8)=10Arr(9)=8Arr(10)=6Maxvalue=arr(1)Minvalue=arr(1)For I=2 To 10If arr(i) maxvalue ThenMaxvalue=arr(i)End IfIf arr(i) minvalue ThenMinvalue=arr(i)End If下一步IText2 .SetFocusText2 .Text=maxvalueText3 .SetFocusText3 .Text=minvalueEnd Sub扩展2: 3，2，7，1，5，4，12，10，8，6个组。按升序对输出组排序。程序界面：源代码：Private Sub Command4_Click()Dim arr(1 To 10) As IntegerArr(1)=3Arr(2)=2Arr(3)=7Arr(4)=1Arr(5)=5Arr(6)=4Arr(7)=12Arr(8)=10Arr(9)=8Arr(10)=6For I=1 To 9For j=I 1 To 10If arr(i) arr(j) ThenTemp=arr(i)Arr(i)=arr(j)Arr(j)=tempEnd IfNext j下一步IText2 .SetFocusFor I=1 To 10Text2 .Text=Text2。Text arr(i)，下一步IEnd Sub扩展3:输入按升序排序的输出组。程序界面：源代码：Private Sub Command6_Click()Dim arr(1 To 10) As IntegerDim I As IntegerDim j As IntegerDim temp As IntegerDim S1 As StringFor I=1 To 10Arr(i)=InputBox(输入 I 计数：)S1=S1 arr(i)，下一步IText1 .SetFocusText1 .Value=S1For I=1 To 9For j=I 1 To 10If arr(i) arr(j) ThenTemp=arr(i)Arr(i)=arr(j)Arr(j)=tempEnd IfNext j下一步IText3 .SetFocusFor I=1 To 10Text3 .Text=Text3。Text arr(i)，下一步IEnd Sub三、表单设计1，基本问题源代码：Private Sub Command11_Click()On Error GoTo Err_Command11_ClickDoCmd .GoToRecord，acFirstExit_Command11_Click:Exit SubErr_Command11_Click:MsgBox Err。DescriptionResume Exit_Command11_ClickEnd SubPrivate Sub Command12_Click()On Error GoTo Err_Command12_ClickDoCmd .GoToRecord，acPreviousExit_Command12_Click:Exit SubErr_Command12_Click:MsgBox Err。DescriptionResume Exit_Command12_ClickEnd SubPrivate Sub Command13_Click()On Error GoTo Err_Command13_ClickDoCmd .GoToRecord，acNextExit_Command13_Click:Exit SubErr_Command13_Click:MsgBox Err。DescriptionResume Exit_Command13_ClickEnd SubPrivate Sub Command14_Click()On Error GoTo Err_Command14_ClickDoCmd .GoToRecord，acLastExit_Command14_Click:Exit SubErr_Command14_Click:MsgBox Err。DescriptionResume Exit_Command14_ClickEnd Sub2、扩展问题扩展1:表单查询1源代码：SQL查询部分：SELECT * FROM学生状态WHERE名称like forms！表单查询_主子表单1 . text 2 . text；子表单的源对象被设置为查询对象。单击“查看”按钮事件代码：Private Sub Command6_Click()Dim studname As StringText2 .SetFocusStudname=Trim(Text2 .Text)If studname=Space(0) ThenMsgBox“请输入学生姓名！”VbOKOnlyElseMe .Child8.RequeryEnd IfEnd Sub扩展2:表单查询2源代码：SQL查询部分：SELECT学生状态。班级号码，学生状态。学生状态。名字，学生成绩。学期，学生成绩。语言，学生成绩。数学，学生成绩。英语，学生成绩。专业1，学生成绩。专业2，学生成绩。总分来自学生状态INNER JOIN学生成绩ON(学生状态)。学号=学生成绩。学号)AND(学生状态。班级编号=学生成绩。班级编号)WHERE名称like forms！表单查询_主子表单2 . t