2、enMI=X1=1+1LoopP=P/(I・2)1=2Sheets^成绩统计n).Cells(I+1,4)=”最高分”Sheets「成绩统计n).Cells(I+1,5)=MASheets「成绩统计n).Cells(I+2,4)=”最低分”Sheets「成绩统计n).Cells(I+2,5)=MISheets(n成绩统计n).Cells(I+3,4)=”平均分”Sheets(n成绩统计n).Cells(I+3,5)=PEndSubDIY：在CJTJ程序中增加计算标准差功能，结果紧跟平均分后一行输
3、出。提示：标准差计算模型为/土（血-"）2s=4-式中P为平均值，Xi为第i个学生的成绩，N为本总数。【例2】问卷统计。(1)流程图1=1+1(2)程序代码PublicSub问卷统计()DimIAsInteger,NAsInteger,JAsInteger^XAsString,LAsInteger^XIAsString,S(9,4)AsIntegerWorksheets(H问卷统计tf).Activate1=2DoWhileSheets。'问卷统计n).Cells(1,1)<>nn1=1+1Lo
4、opN=I-2L=Len(Sheets(u问卷统计n).Cells(N,1))ForI=1ToNX=Sheets「问卷统计")・Cells(I+1，1)ForJ=1ToLXI=Mid$(X,J,1)K=Asc(Xl)・64S(J,K)=S(J,K)+lNextJNextIForI=1To4Sheets^问卷统计H).Cells(l,I+2)=Chr$(I+64)NextIForI=1ToLSheets(H问卷统计H)-Cells(I+1,2)=IForJ=1To4Sheets(”问卷统计H).C
5、ells(I+1，J+2)=S(I，J)NextJNextIEndSub【例3】闰年判断。在ExcelI作表中设计一个表格，用不同方法测试给定的年份是闰年还是平年oA—ECD11测试年份VBA函数法公式法1公式法222012闰年闰年闰年32011平年平年平年42010平年平年平年52009平年平年平年62008闰年闰年闰年72000闰年闰年闰年81980闰年闰年闰年91958平年平年平年101949平年平年平年提示：年份号满足以下条件之一即为闰年:①能被400整除;②能被4整除但不能被100整除
6、。1.用VBA函数的实现方法进入VBA编辑环境，在当前工程中插入一个模块，编写自定义函数rm代码是:Functionrn(n)rn=”平年”IfnMod400=0Thenrn=”闰年”IfnMod4=0AndnMod100<>0Thenrn=n闰年”EndFunction自定义函数的形式参数n为待测试的年份；条件:①若n能被400整除，函数的返回值为闰年；②若n能被4整除但不能被100整除，则返回闰年。2.EXCEL公式法1=IF(0R(AND(M0D(A2,4)=0,M0D(A2400)o0)
7、,MOD(A2,400)=0)畀闰年"畀平年，)3.EXCEL公式法2=IF(MONTH(DATE(A2,2,29))=2；f闰年舄评年”)【例4】从身份证号中获取性别.年龄及户籍所在地信息。ABcDEF1XX学枝:教师信息表2姓名身份证号性别出生日期年龄户口所在地3张三J厂1101011973060350984李四F4404031964080800305F4403031974112120236赵盼儿r4403041972123120267孙晓强J'4403051970110120171.EXC
8、EL公式法提取性别：C3：=IF(MOD(MID(B3，17，1)，2)J男”J女”)或=IF(MOD(MID(B3，17，1)，2)=1J男”异女”)提取生日:D3：二DATE(MID(B3,7,4)，MID(B3，11，2),MID(B3，13,2))或二TEXT(MID(B3,7,8)异0000-00-00”)计算年龄：E3：=YEAR(TODAY())-YEAR(D3)或=YEAR(NOW())・YEAR(D3)假设地区代码对照表在“代码对照表”中的前两列，如OgOOT6543ND,AB
