Excel高级应用VBA实验题目解析.docx
《Excel高级应用VBA实验题目解析.docx》由会员分享，可在线阅读，更多相关《Excel高级应用VBA实验题目解析.docx（23页珍藏版）》请在冰点文库上搜索。
Excel高级应用VBA实验题目解析
Esy02
1、选定sheet1工作表，合并A1：
C1单元格，并输入“TEST”，背景颜色设置为浅黄色，字体颜色设置为红色，字体大小设置为10磅。
SubMacro1（）
'Macro1Macro
'宏由xu录制，时间:
2013/3/26
'Application.Left=201.25
Application.Top=61.75
Range（"A1:
C1"）.Select
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.IndentLevel=0
.ShrinkToFit=False
.ReadingOrder=xlContext
.MergeCells=False
EndWith
Selection.Merge
Range（"A1:
C1"）.Select
ActiveCell.FormulaR1C1="TEST"
Range（"A1:
C1"）.Select
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlCenter
.WrapText=False
.Orientation=0
.AddIndent=False
.IndentLevel=0
.ShrinkToFit=False
.ReadingOrder=xlContext
.MergeCells=True
EndWith
WithSelection.Font
.Name="宋体"
.FontStyle="常规"
.Size=10
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ColorIndex=3
EndWith
WithSelection.Interior
.ColorIndex=6
.Pattern=xlSolid
.PatternColorIndex=xlAutomatic
EndWith
EndSub
2在sheet1上创建“窗体”命令按钮并指定“宏”代码sy22，补充代码完成：
从键盘输入一个整数n，输出如下图形。
其中每个“*”在单元格中水平和垂直方向都要求居中。
n
Subsy22（）
DimnAsInteger,iAsInteger,jAsInteger'第1空
n=InputBox（"输入行数"）'从键盘输入数据并存放到变量n
Sheets（"Sheet1"）.Cells.ClearContents'清除sheet1工作表中单元格的内容
Fori=1Ton'循环打印，输出n行"*"
Forj=1To2*i-1'每行输出奇数（2*i-1）个"*"，如：
1，3，5个
Cells（i,n-i+j）.Value="*"
Nextj
Nexti
Cells（1,n）.Activate'激活A列N行的单元格
ActiveCell.CurrentRegion.Select'选定单元格所在的当前区域
WithSelection
.Font.Size=16'字体大小
.Font.Bold=True'字体加粗
.HorizontalAlignment=xlCenter'水平方向居中
.VerticalAlignment=xlCenter'垂直方向居中
EndWith
Endsub
Esy03
1.调用EXCEL的RAND和INT内部函数，在A列的1—10行输入序号1—10，在B列的1—10行填入0—1之间的随机数，在C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（调用MAX函数）。
'请参照程序上下文补充完整的语句
Subsy31（）
DimkAsInteger
DimaAsString,bAsString,cAsString
Fork=1To10
a="A"&k
b="B"&k
c="C"&k
Range（a）.Value=k'在A列的1-10行输入序号1-10
Range（b）.Value=Rnd（）'在B列的1-10行填入0-1之间的随机数
Range（c）.Value=10+Int（90*Rnd（））'在C列的1-10行填入两位正整数
Nextk
Setmyr=Worksheets（"Sheet1"）.Range（"C1:
C10"）
Range（"c11"）=WorksheetFunction.Max（myr）'在C列的11行求出该列的最大数（调用MAX函数）
EndSub
Esy04
输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并用Msgbox函数输出结果。
分析：
用IF语句实现
Subpdzi（）
DimstrCAsString'定义变量strC为字符型
strC=InputBox（"请输入字符"）'第1空，利用InputBox函数输入字符放到strC中
IfUCase（strC）>="A"AndUCase（strC）<="Z"Then'判断输入字符是否为A~Z（其中UCase函数为将字符转换成大写字符的函数）
MsgBox（strC&"是字母"）'第2空，利用MsgBox函数输出判断结果
ElseIfstrC>=0AndstrC<=9Then''第3空，判断输入字符是否为0~9
MsgBox（strC&"是数字"）'利用MsgBox函数输出判断结果
Else'第4空
MsgBox（"字符"&strC&"既不是字母，也不是数字"）'利用MsgBox函数输出判断结果
EndIf
EndSub
2某学校的职工人事数据存在Excel工作表中。
现要按职称提升每位职工的工资，各种职称的工资增长情况如下：
教授150、副教授130、讲师100、助教80、高级工程师150、工程师140、助工90。
用select语句编写计算增加工资的过程。
Subaddsalary（）
r=ActiveCell.Row'活动单元格为要求得增加工资的单元格，计算活动单元格的行号
t=Cells（r,3）'第1空，定位“职称”所在的单元格
SelectCaset
Case"教授","高级工程师"'第2空
ActiveCell=150
Case"副教授"
ActiveCell=130
Case"讲师"
ActiveCell=100
Case"助教"
ActiveCell=80
Case"工程师"
ActiveCell=140
Case"助工"
ActiveCell=90
EndSelect'第3空，
EndSub
3：
某教师讲授了一门考查课程，他平时及期末考试都用百分制衡量学生的成绩，设该教师的成绩表如图所示。
学校要求最后的成绩都用等级制。
百分制与等级制的转换规则为：
60分以下为不及格，60～70分为及格，70～80分为中等，80～90分为良，90～100分为优。
编写一个百分制与等级制的转换过程实现成绩的等级转换。
Subchange（）
score=ActiveCell.Offset（0,-1）.Value'第1空
SelectCasescore
CaseIs>=90'第2空
ActiveCell="优"
CaseIs>=80
ActiveCell="良"
CaseIs>=70
ActiveCell="中"
CaseIs>=60
ActiveCell="及格"
CaseElse'第3空
ActiveCell="不及格"
EndSelect
EndSub
4：
打开Excel工作簿EC404.xls，在A2，B2和C2单元格输入a,b,c的值，单击最大值按钮，在D2显示这三个数的最大值。
解题思路：
假设三个数中的第一个数是最大值，用这个假定的最大值分别跟剩下的两个数比较，如果假定的最大值小于其它两个数，则最大值为较大的那个数。
Submax（）
DimaAsDouble,bAsDouble,cAsDouble,maxAsDouble
a=Val（Cells（2,1））
b=Val（Cells（2,2））
c=Val（Cells（2,3））
max=a'第1空
Ifmaxmax=b'第2空
EndIf
Ifmaxmax=c'第4空
EndIf
Cells（2,4）=max
EndSub
5：
编写程序：
创建一简单应用程序，单击窗体，利用InputBox函数如（图2）所示显示对话框，设定固定密码就是“password”（注意输入的大小写）；若输入密码正确与否，利用MsgBox函数分别显示如（图3）和（图4）所示来提示用户输入的密码正确与不正确的对话框。
（图2）
（图3）（图4）
提示：
请根据图3和图4中的界面填写第2空和第3空，Msgbox函数的格式为：
Msgbox提示信息，按钮数目及形式，对话框标题
Subpass（）
t=InputBox（"请输入密码","输入密码"）
Ift="password"Then'第1空
MsgBox"恭喜你，密码正确！
",0,"正确"'第2空
Else
MsgBox"对不起！
你是非法用户！
",vbCritical,"拒绝"'第3空
EndIf
EndSub
Esy05
实验1：
编写程序，求1+2+3+….+10的和并输出其结果。
解题思路：
该题用For……Next结构实现累加。
Subsum（）
Rem求1+2+..+10的和并输出
DimsAsInteger
s=0'第1空
Fori=1To10'第2空
s=s+i'第3空
Nexti
MsgBox（"1+2+3+...+10="&s）'第4空
EndSub
实验2：
输入任意多个正整数，编写程序求其和与平均值。
当输入数小于0时结束数据的输入。
解题思路：
该题用DoWhile……Loop结构实现累加，While后面需要有控制循环是否继续的条件，请注意While与Until的区别。
Subcomput（）
DimsumAsLong'sum用来保存所输入数的和
DimdataAsInteger
DimkAsInteger'k为记数器，记录输入数的个数
k=0
data=InputBox（"请输入数据:
"）
DoWhiledata>=0'第1空
sum=sum+data'第2空
k=k+1'第3空
data=InputBox（"请输入数据:
"）
Loop
MsgBox"一共输入了"&k&"个数。
"_
&vbCrLf&"其和为"&sum&"其平均值为：
"&sum/k
EndSub
实验3：
编写程序计算SUM=1+1*2+1*2*3+……+1*2*3*…*100的和。
解题思路：
该题用Do……Loop结构实现累积与累加，目标是求100项的累加，而每一项是一个累积式。
Submulti（）
DimsumAsDouble
DimiAsInteger
DimtAsDouble
i=1:
t=1:
sum=0
DoWhilei<=100'第1空
t=t*i'第2空
sum=sum+t'第3空
i=i+1'第4空
Loop
MsgBox（"1+1*2+1*2*3+...+1*2*3*...*100="&sum）
EndSub
实验4：
打开Excel工作簿E504.xls，编写程序，将当前工作表中第1行从指定位置m开始的n个数按相反顺序重新排列。
例如，原数列为：
1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16，17，18，19，20。
从第5个数开始，将10个数进行逆序排列，则得到新数列为：
1，2，3，4，14，13，12，11，10，9，8，7，6，5，15，16，17，18，19，20。
Sub逆置（）
i=Cells（6,12）'起始位置
j=i+Cells（7,12）-1'第1空，终止位置
DoWhileit=Cells（1,i）
Cells（1,i）=Cells（1,j）'第3空
Cells（1,j）=t'第4空
i=i+1
j=j-1'第5空
Loop
EndSub
Esy06
实验1：
打开Excel工作簿E601.xls，编写一个程序，提取字符串中的数字符号。
例如，程序运行后输入字符串abc123edf456gh，则输出“123456”。
Subtq（）
s=InputBox（"请输入一个字符串:
"）'输入一个字符串，放在变量s中
n=Len（s）'第1空，求出s的长度，放在变量n中
Fori=1Ton
a=Mid（s,i,1）'第2空，求字符串a
Ifa>=oAnda<=9Then'第3空，如果a的值是0到9之间的数字符号，
b=b&a'第4空，则把它拼接到结果字符串变量b中
EndIf
Nexti
MsgBoxb'输出结果
EndSub
实验2：
打开Excel工作簿E602.xls，工作表第1行有n个升序排列的数值，第2行有m个升序排列的数值，请编写一个程序，将第2行的数据合并到第1行中，并保持所有数据升序排列
Sub合并（）
r=Rows
（1）.End（xlToRight）.Column'求第一行列数
t=Rows
（2）.End（xlToRight）.Column'求第二行列数
Fori=1Tot'对第二行的每个数据进行处理
a=Cells（2,i）:
Cells（2,i）=""'取出第二行的一个数据
Fors=rTo1Step-1'第1空，从后往前扫描
Ifa>=Cells（1,s）ThenExitFor'第4空，退出本层循环
Cells（1,s+1）=Cells（1,s）'第2空，移动数据
Nexts
Cells（1,s+1）=a'插入数据
r=r+1'第3空，修改目标数据区长度
Next'第5空
EndSub
实验3：
在“D:
\Esy06”文件夹下打开文件EC603.xls，“求任意区域数值总和”按钮指定到名称为“sumSelection”的宏，补充宏代码，使之完成如下功能：
计算工作表中任意选定区域的数据总和，并用信息提示对话框将结果输出，完成后按原文件名保存在原位置
SubsumSelection（）
ForEachxInSelection'第1空，”For####[1]####InSelection“
s=s+x'第2空
Next
msgbox"该区域的总和为:
"&s'第3空，”msgbox"该区域的总和为:
"&####[3]####“
EndSub
实验4：
在“D:
\Esy06”文件夹下打开文件EC604.xls，“从分班”按钮指定到名称为“Student”的宏，补充宏代码，使之完成如下功能：
按顺序（成绩从高到低）对学生进行分班，每个班25名学生，每个班保存在一个新的工作表中。
完成后按原文件名保存在原位置
SubStudent（）
n=0
WhileNot（IsEmpty（Cells（n+4,1）））
n=n+1'第1空
Wend
m=Application.WorksheetFunction.RoundUp（（n/25）,0）
bs=1
Do
Sheets.Add
ActiveSheet.Name=Str（bs）+"班"
Cells（1,1）="英语"+Str（bs）+"班名单"
Cells（2,1）="学号"
Cells（2,2）="姓名"
Cells（2,3）="成绩"
Fori=1To25
Forj=1To3'第2空
Cells（i+2,j）=Sheets（"sheet1"）.Cells（i+3+（bs-1）*25,j）'第3空
Next
Next
bs=bs+1'第4空，####[4]####
LoopWhilebs<=m'第5空，####[5]####
EndSub
Esy07
实验1：
打开文件E701.xls，“一维数组求极值”按钮指定到名称为“一维数组求极值”的宏，补充宏代码，使之完成如下功能：
输入10个数，将这10个数分别放在第1行的10个单元格中，求出这10个数的最大值和最小值放在相对应的单元格中。
Sub一维数组求极值（）
DimE（1To10）AsSingle'第1空，定义一个名称为E，元素个数为10的一维数组
DimmaxAsSingle,minAsSingle
MsgBox"输入的10个数据如下：
"
Fori=1To10'For语句的作用是先将输入的数据放到数组中，然后再将数组中的数放到对应单元格里
E（i）=InputBox（"请输入数据:
"）'第2空
Cells（1,i）=i'第3空
Nexti
max=E
（1）:
min=E
（1）
Fori=2To10
IfmaxIfmin>E（i）Thenmin=E（i）'第5空
Nexti
Cells（2,2）=max
Cells（3,2）=min
EndSub
实验2：
打开文件E702.xls，“一维动态数组的使用”按钮指定到名称为“一维动态数组的使用”的宏，补充宏代码，将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值1。
Sub一维动态数组的使用（）
DimX（）AsInteger'第6空
ReDimX（1To20）'第7空
ForI=1To20
X（I）=1'第8空
Cells（I,1）=X（I）
NextI
EndSub
实验3：
打开文件E703.xls，“统计英语成绩”按钮指定到名称为“统计英语成绩”的宏，补充宏代码，使之完成如下功能：
首先输入该班人数，然后再分别输入该班学生的英语成绩并将英语成绩依次放在第1行，将大于平均值的数据以红色字体显示出来。
Sub统计英语成绩（）
DimE（）AsSingle
DimnAsInteger
DimsAsSingle,averAsSingle
n=InputBox（"请输入该班的人数"）
ReDimE（n）'第9空
MsgBox"输入的"&n&"个数据如下：
"
Fori=1Ton
E（i）=InputBox（"请输入英语成绩:
"）
Cells（1,i）=E（i）
s=s+E（i）'第10空
Nexti
aver=s/n'第11空
MsgBox"将大于平均值的数据以红色字体显示出来：
"
Fori=1Ton
IfaverNexti
EndSub
Esy08
实验1：
打开文件E801.xls，“子程序过程求阶乘”按钮指向名称为“子程序过程求阶乘”的宏，首先补充子程序过程Fact的代码，使之完成阶乘计算。
然后，分别用call语句调用Fact过程计算出5的阶乘，用非call语句调用Fact过程计算出8的阶乘。
Subfact（nAsInteger）'子程序fact求n的阶乘
DimiAsInteger,tAsLong
t=1
Fori=1Ton
t=t*i'第1空
Nexti
MsgBoxn&"的阶乘为：
"&t'第2空，输出如下内容“n的阶乘为：
t”，当程序运行时n和t都为具体数
EndSub
Sub子程序过程求阶乘（）
Callfact（5）'第3空，call语句调用Fact过程计算5的阶乘
fact8'第4空，非call语句调用Fact过程计算8的阶乘
EndSub
实验2：
打开文件E802.xls，补充自定义函数“Area”的宏代码，首先判断三条边能否组成三角形，如果能就完成三角形面积的计算（三角形面积=
），如果不能则输出"这三条边不能组成三角形！
"，并在D2:
D8中调用“Area”函数。
Functionarea（x,y,z）
c=（x+y+z）/2
Ifx+y>zAndy+z>xAndx+z>yThen'第5空，判断三条边能否组成三角形
area=（（c-x）*（c-y）*（c-z））^1/2'第6空
Else
area="这三条边不能组成三角形！
"
EndIf
EndFunction
实验3：
打开文件E803.xls，补充宏代码，完成如下功能：
将当前工作表中第1行从指定位置m开始的n个数按相反顺序重新排列。
例如，原数列为：
1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16，17，18，19，20。
从第5个数开始，将10个数进行
升级会员 