原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VBA实验十四
浙江大学城市学院实验报告
课程名称 VB程序设计基础
实验项目名称
学生姓名 专业班级 学号
实验成绩 指导老师（签名 ） 日期
一. 实验目的和要求
掌握函数的。
二. 实验内容和原理
【练习-1】调用EXCEL的RAND和INT内部函数，在A列的1—10行输入序号1—10，在B列的1—10行填入0—1之间的随机数，在C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（不能调用MAX函数）。以上要求均用程序实现。Sub V13_1()
Dim k As Integer
Dim a As String, b As String, c As String
For k = 1 To 10
a = A k
b = B k
c = C k
Range(a).Value = k
Range(b).Value = Rnd()
Range(c).Value = Int(Rnd() * 90) + 10
Next k
Set myR = Worksheets(Sheet1).Range(C1:C10)
Cells(11, 3) = WorksheetFunction.max(myR)
End Sub
【练习-2】用Application.Inputbox()函数输入10个数，放入单元格A1：A10，在C列输出其中超过平均数的数和个数。
Sub ave()
Dim k As Integer, s(10) As Integer, sum As Integer
Dim a As String, c As String
Dim aver As Single
For k = 1 To 10
s(k) = InputBox()
sum = sum + s(k)
a = A k
Range(a).Value = s(k)
Next k
aver = sum / 10
n = 1
For k = 1 To 10
If s(k) aver Then
c = C n
Range(c).Value = s(k)
n = n + 1
End If
Next k
Range(C11).Value = n - 1
End Sub
【练习-3】参见图中的学生成绩表，遍历5门课的所有成绩，凡是低于60分的，用红色显示（不用条件格式，要用程序实现）。
练习-3界面
Private Sub Cond_Format()
Dim i as Long, j as Long
For i = 1 to Sheet1.UsedRange.Rows.Count
For j = 5 to 9
If Cells(i,j).Value 60 Then _
Cells(i,j).Font.Color = RGB(255, 0, 0)
Next j
Next i
End Sub
【练习-4】编程序，打印九九乘法表如下
练习-4界面
Sub tab99()
Dim i As Integer, j As Integer
For i = 1 To 9
Cells(1, i + 1) = i
Cells(i + 1, 1) = i
Next i
For i = 1 To 9
For j = i To 9
Cells(i + 1, j + 1) = i * j
Next j
Next i
End Sub
三. 讨论、心得
文档评论（0）