V精選實(shí)驗(yàn)十四

1、V精選實(shí)驗(yàn)十四Prepared on 22 November 2020浙江大學(xué)城市學(xué)院實(shí)驗(yàn)報(bào)告課程名稱 VB程序設(shè)計(jì)基礎(chǔ)與實(shí)驗(yàn)實(shí)臉項(xiàng)目名稱實(shí)驗(yàn)十四、VBA程序設(shè)計(jì)1學(xué)生姓名 專業(yè)班級(jí) 學(xué)號(hào)實(shí)險(xiǎn)成績指導(dǎo)老師(簽名)曰期-實(shí)驗(yàn)?zāi)康暮鸵笳莆誚BA中Excel函數(shù)的調(diào)用；工作簿、工作表等常用對(duì)象的使用；單 元格的表示及各種屬性的設(shè)置。-實(shí)驗(yàn)內(nèi)容和原理【練習(xí)14-1調(diào)用EXCEL的RAND和工NT內(nèi)部函數(shù)，在A列的行輸入序號(hào)1T0,在B列的1T0行填入0-1之間的隨機(jī)數(shù)，在C歹IJ的110行填入兩位正整數(shù)，最后在C列的11行求出該列的最大數(shù)(不能調(diào)用MAX函數(shù))。以上要求均用程序?qū)崿F(xiàn)。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【練習(xí)14-2】用()函數(shù)輸入10個(gè)數(shù)，放入單元格在C列輸出其中超過平均數(shù)的數(shù)和個(gè)數(shù)。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【練習(xí)14-3參見下圖中的學(xué)生成績表，遍歷5門課的所有成績，凡是低于60分的，用紅色顯示（不用條件格式，要用程序?qū)崿F(xiàn)）。練習(xí)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【練習(xí)14-4End Sub編程序，在工作表上打印九九乘法表如下。ABCDEFGHIJ11 2 3 4 56 7 8921123456789324681012141618439121518212427541620242832366525303540457636424854874956639864721098111練習(xí)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 =