浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验十四、VBA程序设计1学生姓名专业班级学号实验成绩指导老师（签名）日期一.实验目的和要求掌握VBA中Excel函数的调用；工作簿、工作
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
等常用对象的使用；单元格的表示及各种属性的设置。二.实验内容和原理【练习14-1】调用EXCEL的RAND和INT内部函数，在A列的1—10行输入序号1—10，在B列的1—10行填入0—1之间的随机数，在C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（不能调用MAX函数）。以上要求均用程序实现。SubV13_1()DimkAsIntegerDimaAsString,bAsString,cAsStringFork=1To10a="A"&kb="B"&kc="C"&kRange(a).Value=kRange(b).Value=Rnd()Range(c).Value=Int(Rnd()*90)+10NextkSetmyR=Worksheets("Sheet1").Range("C1:C10")Cells(11,3)=(myR)EndSub【练习14-2】用()函数输入10个数，放入单元格A1：A10，在C列输出其中超过平均数的数和个数。Subave()DimkAsInteger,s(10)AsInteger,sumAsIntegerDimaAsString,cAsStringDimaverAsSingleFork=1To10s(k)=InputBox("")sum=sum+s(k)a="A"&kRange(a).Value=s(k)Nextkaver=sum/10n=1Fork=1To10Ifs(k)>averThenc="C"&nRange(c).Value=s(k)n=n+1EndIfNextkRange("C11").Value=n-1EndSub【练习14-3】参见下图中的学生成绩表，遍历5门课的所有成绩，凡是低于60分的，用红色显示（不用条件格式，要用程序实现）。练习14-3界面PrivateSubCond_Format() DimiasLong,jasLong Fori=1toForj=5to9 IfCells(i,j).Value<60Then_ Cells(i,j).=RGB(255,0,0) Nextj NextiEndSub【练习14-4】编程序，在工作表上打印九九乘法表如下。练习14-4界面Subtab99()DimiAsInteger,jAsIntegerFori=1To9Cells(1,i+1)=iCells(i+1,1)=iNextiFori=1To9Forj=iTo9Cells(i+1,j+1)=i*jNextjNextiEndSub三.讨论、心得（必须做）
浙公网安备 33021202002483