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

《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