VBA程序设计用例:程序流程图及程序代码

VBA程序设计用例:程序流程图及程序代码

ID:38879807

大小:84.50 KB

页数:12页

时间:2019-06-20

VBA程序设计用例:程序流程图及程序代码_第1页
VBA程序设计用例:程序流程图及程序代码_第2页
VBA程序设计用例:程序流程图及程序代码_第3页
VBA程序设计用例:程序流程图及程序代码_第4页
VBA程序设计用例:程序流程图及程序代码_第5页
资源描述:

《VBA程序设计用例:程序流程图及程序代码》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库

1、VBA程序教学用例【例1】求解一元二次方程Ax+Bx+C=0。顺序结构的VBA程序:SUBJFC1()A=Sheets("解一元二次方程").Cells(1,2)B=Sheets("解一元二次方程").Cells(2,2)C=Sheets("解一元二次方程").Cells(3,2)X1=(-B+SQR(B^2-4*A*C))/2/AX2=(-B-SQR(B^2-4*A*C))/2/ADEBUG.PRINT“X1=”,X1DEBUG.PRINT“X2=”,X2ENDSUB提示:先将三个系数A、B、C存放到表"解一元二次方程"的单元格B1:B3中,运行结果在立即窗口中(可用CTRL+

2、G组合键打开立即窗口)。带判断条件的VBA程序:SubJFC2()A=Sheets("解一元二次方程").Cells(1,2)B=Sheets("解一元二次方程").Cells(2,2)C=Sheets("解一元二次方程").Cells(3,2)IfB*B-4*A*C>=0ThenSheets("解一元二次方程").Cells(4,2)=(-B+Sqr(B^2-4*A*C))/2/ASheets("解一元二次方程").Cells(5,2)=(-B-Sqr(B^2-4*A*C))/2/AElseSheets("解一元二次方程").Cells(4,2)="此方程无实根"Sheets(

3、"解一元二次方程").Cells(5,2)="此方程无实根"EndIfEndSub提示:先将三个系数A、B、C存放到表"解一元二次方程"的单元格B1:B3中,运行结果在B4:B5中)。【例2】给定成绩数据在表sheet2中,求最高分、最低分和平均分。(1)程序流程总图“打擂法”求最大的算法流程开始输入N;第一个数到MAX>MA?输入下一个数到X输出结果MAX→MAN-1次已完成?结束NNYYN个成绩累加完?开始将X累加到P输入一个数到X输入N;0→P输出PP/N→P结束NY求N个数平均值的算法流程(2)VBA程序SubCJTJ()X=Sheets("成绩统计").Cells(2,

4、2)MA=XMI=XP=0I=2DoWhileSheets("成绩统计").Cells(I,2)<>""X=Sheets("成绩统计").Cells(I,2)P=P+XIfX>MAThenMA=XIfX

5、ts("成绩统计").Cells(I+3,2)=PEndSub思考题:如果要在CJTJ程序中增加计算标准差功能,程序该如何修改?【例3】打印九九乘法表。Sub九九乘法表()Dimiasinteger,jasintegerFori=1to9Forj=1to9Sheets(“九九乘法表”).Cells(I,j)=I&”*”&j&”=”&i*jNextjNextiEndsub程序说明:(1)循环嵌套:外循环I循环,内循环J循环;(2)关键语句:Sheets(“九九乘法表”).Cells(I,j)=I&”*”&j&”=”&i*j思考题:如何打印主对角线下面的三角形状的九九乘法表?【例4】

6、打印N以内的素数。(1)流程图I=I+1开始读取N定义变量:N,I,J,K,R,HI=2I<=NK=0J=1J<=IJ是I的因子K=K+1J=J+1结束K=2打印IYNYNYNYN(2)程序代码PublicSub打印N以内的素数()DimIAsInteger,JAsInteger,KAsInteger,RAsInteger,NAsInteger,HAsIntegerN=Sheets("SHEET1").Cells(1,2)R=3H=1ForI=2ToNK=0ForJ=1ToIIfIModJ=0ThenK=K+1EndIfNextJIfK=2ThenIfH>15ThenH=1R=R

7、+1EndIfSheets("SHEET1").Cells(R,H)=IH=H+1EndIfNextIEndSub【例5】问卷统计。(1)流程图I=I+1开始取问卷份数到N,题数到L定义变量:N,I,J,x,x1,L,SI=1I<=N取答卷到XJ=1J<=LJ=J+1结束YNYN取第J个字符到X1;打正字输出统计结果(2)程序代码PublicSub问卷统计()DimIAsInteger,NAsInteger,JAsInteger,XAsString,LAsInteger,X1As

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。