VBA程序设计范例资料讲解.doc

《VBA程序设计范例资料讲解.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精品好文档，推荐学习交流高考VBA程序设计解析一、累加和问题：1、基本问题问题：编程计算1+2+3+…+100；程序界面：源代码:PrivateSubCommand3_Click()DimsAsIntegerDimiAsIntegers=0Fori=1To100Step1s=s+iNextiText1.SetFocusText1.Value=sEndSubPrivateSubCommand4_Click()DoCmd.CloseacForm,"VBA程序设计范例1"EndSub2、问题拓展拓展1：编程计算1+3+5+7+…+99；源代码

2、修改：仅供学习与交流，如有侵权请联系网站删除谢谢12精品好文档，推荐学习交流Fori=1To99Step2s=s+iNexti拓展2：编程计算2+4+6+8+…+100；源代码修改：Fori=2To100Step2s=s+iNexti拓展3：编程计算1+2+3+…+N；程序界面：源代码：PrivateSubCommand10_Click()DimiAsIntegerDimsAsIntegerText3.SetFocusIfTrim(Text3.Text)=Space(0)ThenMsgBox"请输入N的值！",vbOKOnlyExitS

3、ubElseIfVal(Text3.Text)<1ThenMsgBox"请输入大于1的正整数！",vbOKOnlyExitSubEndIfs=0Fori=1ToVal(Text3.Value)Step1s=s+iNextiText8.SetFocus仅供学习与交流，如有侵权请联系网站删除谢谢12精品好文档，推荐学习交流Text8.Value=sEndSub拓展4：编程计算1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+4+…+100)；程序界面：源代码：PrivateSubCommand3_Click()DimiA

4、sInteger,jAsIntegerDims1AsInteger,s2AsDoubles1=0s2=0Fori=1To100Step1s1=0Forj=1Tois1=s1+jNextjs2=s2+s1NextiText1.SetFocusText1.Text=s2EndSub拓展5：编程计算1+(1+3)+(1+3+5)+(1+3+5+7)+…+(1+3+5+7+…+99)；源代码：PrivateSubCommand3_Click()DimiAsInteger,jAsIntegerDims1AsInteger,s2AsDoubles1

5、=0s2=0Fori=1To50Step1s1=0仅供学习与交流，如有侵权请联系网站删除谢谢12精品好文档，推荐学习交流Forj=1Toi*2-1step2s1=s1+jNextjs2=s2+s1NextiText1.SetFocusText1.Text=s2EndSub3、算法相关问题编程计算1*2*3*…*100；提示：内存变量的数据类型的确定；二、排序问题1、基本问题问题：提示用户输入两个数，比较其大小；源代码：PrivateSubCommand4_Click()Dima1AsStringDima2AsStringDimb1AsI

6、ntegerDimb2AsIntegerText0.SetFocusa1=Trim(Text0.Text)Text2.SetFocusa2=Trim(Text2.Text)Ifa1=Space(0)Ora2=Space(0)ThenMsgBox"请输入两个待比较的数！",vbOKOnly仅供学习与交流，如有侵权请联系网站删除谢谢12精品好文档，推荐学习交流ExitSubEndIfb1=Val(a1)b2=Val(a2)Text8.SetFocusIfb1

7、.Text="等于"ElseText8.Text="大于"EndIfEndSub2、问题拓展拓展1：有一组数：3,2,7,1,5,4,12,10,8,6，请找出这组数的最小（大）值；程序界面：源代码：PrivateSubCommand4_Click()DimmaxvalueAsIntegerDimminvalueAsIntegerDimarr(1To10)AsIntegerarr(1)=3arr(2)=2arr(3)=7arr(4)=1arr(5)=5arr(6)=4仅供学习与交流，如有侵权请联系网站删除谢谢12精品好文档，推荐学习交流

8、arr(7)=12arr(8)=10arr(9)=8arr(10)=6maxvalue=arr(1)minvalue=arr(1)Fori=2To10Ifarr(i)>maxvalueThenmaxvalu