V精选实验十四

1、V精选实验十四Prepared on 22 November 2020浙江大学城市学院实验报告课程名称 VB程序设计基础与实验实脸项目名称实验十四、VBA程序设计1学生姓名 专业班级 学号实险成绩指导老师(签名)曰期-实验目的和要求掌握VBA中Excel函数的调用；工作簿、工作表等常用对象的使用；单 元格的表示及各种属性的设置。-实验内容和原理【练习14-1调用EXCEL的RAND和工NT内部函数，在A列的行输入序号1T0,在B列的1T0行填入0-1之间的随机数，在C歹IJ的110行填入两位正整数，最后在C列的11行求出该列的最大数(不能调用MAX函数)。以上要求均用程序实现。Sub V13_

2、1 ()Dim k As IntegerDim a As String, b As String, c As StringFor k = 1 To 10a = "A" & kb = nB" & kc = "CM & kRange(a).Value = kRange(b).Value = Rnd()Range(c).Value = lnt(Rnd() *90) + 10Next kSet myR = Worksheets("Sheet1 ").Range("C1 :C10")Cells(11,

3、3) = (myR)End Sub【练习14-2】用()函数输入10个数，放入单元格在C列输出其中超过平均数的数和个数。Sub ave()Dim k As Integer, s(10) As Integer, sum As IntegerDim a As String, c As StringDim aver As SingleFor k = 1 To 10s(k) = InputBoxf") sum = sum + s(k) a = "A" & kRange(a).Value = s(k)Next kaver = sum /10n = 1For k =

4、1 To 10If s(k) > aver Then c = " & nRange(c).Value = s(k) n = n + 1End IfNext kRange("C11").Value = n -1End Sub【练习14-3参见下图中的学生成绩表，遍历5门课的所有成绩，凡是低于60分的，用红色显示（不用条件格式，要用程序实现）。练习14-3界面Private Sub Cond_Format()Dim i as Long, j as LongFor i = 1 to For j = 5 to 9If Cells(i,j).Value <

5、; 60 Then _Cells(i,j), = RGB(255, 0, 0)Next jNext i【练习14-4End Sub编程序，在工作表上打印九九乘法表如下。ABCDEFGHIJ11 2 3 4 56 7 8921123456789324681012141618439121518212427541620242832366525303540457636424854874956639864721098111练习14-4界面Sub tab99()Dim i As Integer, j As Integer For i = 1 To 9Cells (1, i + Cells (i + 1, Next iFor i = 1 To For j =