VB精选实验十四

1、V精选实验十四Preparedon22November2020浙江大学城市学院实验报告课程名称VB程序设计基础与实耀实验项目名称实验十四、VBA程序设计1学生姓名专业班级学号实验成绩，指导老师（签名）日期实验目的和要求掌握VBA中Excel函数的调用；工作簿<一工作表等常用对象的使用；单元格的表示及各种属性的设置°二.实验内容和原理>V5二【练习14-1】调用EXdEL的RAND和工NT内部函数，在A列的1T0行输入17.«,-7,r»。：（T?t'<s吟»R«序号工TO,在B列的1io行填入01之间的随机数,在C列的

2、1T0行填入两位正整数，最后在c列的11行求出该列的最大数（不能调用MAX函7.V92数）g以上要求均用程序实现。a<.va?.p.utoeV13j()DimJ痴String%AsString,cAsStringa = "A" & kb *B'r& kFork=1To10dr'n0oc=9&kAQqTRange(a).Valu色碎Range(b).ValueRnd()Range(c).=lnt(Rnd()*90)+10案薪F0'/'七。30mJ-5金本口“引蜡u母me；盘rf3。5总DgRV+SsC0。Set那。

3、啼eets(,SheeT),R|rtge("(.1o漫八"F,口口>qaP。曲，D-刁"c承IS0越可脑恻献Er<tO,g行衿D3O【练习14-2用（）函数输入蓑个数：放入单元格具1：型露在C列输出其中超过平均数的数和个数Q：bave|而h片刖而梅鼠泮"薄脑力阳0）*例曲苑inlefc«荫丽当蠹市流幼遍。""'!DU<SPC9U，,V.PQ：。=o曰U0嘉心舱灯承犷."礴*i刷蝌鳏力 题近1根雕|L甑?一 .。空，舞”A的明包然坪玲砒0-,°Mt单啜盘加H组焉11燧*旗4够希百薇

4、力膨育由厚樱裳心上口口C-U女&气"章/齿nU"匚。4n中型<曲=n”:威而b*c广Tc°.%0n、00可帆懒傅做却幅次好t0糜°.°【练习14-3参见下图中的学生成绩表，遍历5门课的所有成绩凡是低于60分的，用红色显示（不用条件格式1要用程序实现）PMMiciosoftExcel-VBA实验(？)用文件如锦错上拈阍切插入格式，具m效据ui窗口店）帮助事d=仃先里今年.吉格二"不言格与JL-_fc,登-一_玄二一E一一一1打坐W姓名3:如1/VI0120。9的1蝴宝己E3E犯889BAQ82，1E.四2.E:侬yJlII

5、JL3UUZ200yu(J3SfcTJIk忤动明t，1WM0_枭_871*JO8T:F-则2009004昧云女117680Z53890T*刷9。0612M强66_hJnr2MMU71Cr8即E00900S1:.明2加90C912皿200501013i2009011'女女5Q9T羽网798s966。M9596函.H9_blL009Z：3TT418F(J162009016女6175鹿；L9J_J1T则901?同非不ST3;35型BUKJFH烟画F1警痛雷31SZ至-200X)19葺永良第6T4556%2?二境十20IM020.IK正片男85兆,巴上;0212009021mZEI一男一63r

6、T268-血.sonwzzEiIS339148025:_1H<>dSheet1/Sheet2/Sliest3/二|<为"®自选图形4卜、口Q血闻仁阻风心的：加109012200901320119014200皿1566TT露国71>5?80一1_-,K；»国M丽41鬟侬:.45mso置9435BT7练习143界面Piv典触的感丽獭.国南后嬴丘）赢j融3#“6常*蠡WS幅ts峨嘉询苜邑修的加昭i.g赢"Rq1警5,m-angnnq"»>C>U5|J“U6"A'皿aVJ八Ju博微聿瞳；【练习14.4】编程序，在工作表上打印九九乘法表如下口ABCDEFGH：1_L1123泅-5.672：921ij*谓68ft3210L!a214.;j16：4与12涧1821四-275事3620!24邀_326岳25就4。4576涪6也2;4854&7心956；G3