1、Esy021、 選定sheet1工作表，合并A1：C1單元格，并輸入“TEST”，背景顏色設(shè)置為淺黃色，字體顏色設(shè)置為紅色，字體大小設(shè)置為10磅。Sub Macro1()' Macro1 Macro' 宏由 xu 錄制，時(shí)間: 2013/3/26' Application.Left = 201.25 Application.Top = 61.75 Range("A1:C1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .Wra

2、pText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A1:C1").SelectActiveCell.FormulaR1C1 = "TEST"Range("A1:C1").Select With Selection .HorizontalAlignment =

3、 xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With With Selection.Font .Name = "宋體" .FontStyle = "常規(guī)" .Size = 10 .Strikethrough = False .Superscr

4、ipt = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 3 End With With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End WithEnd Sub2在sheet1上創(chuàng)建“窗體”命令按鈕并指定“宏”代碼sy22，補(bǔ)充代碼完成：從鍵盤輸入一個(gè)整數(shù)n，輸出如下圖形。其中每個(gè)“*”在單

5、元格中水平和垂直方向都要求居中。nSub sy22() Dim n As Integer, i As Integer, j As Integer '第1空 n = InputBox("輸入行數(shù)") ' 從鍵盤輸入數(shù)據(jù)并存放到變量n Sheets("Sheet1").Cells.ClearContents '清除sheet1工作表中單元格的內(nèi)容 For i = 1 To n ' 循環(huán)打印，輸出n行"*" For j = 1 To 2 * i - 1 '每行輸出奇數(shù)（2*i-1)個(gè)"*&q

6、uot;，如：1，3，5個(gè) Cells(i, n - i + j).Value = "*" Next j Next i Cells(1, n).Activate '激活A(yù)列N行的單元格 ActiveCell.CurrentRegion.Select '選定單元格所在的當(dāng)前區(qū)域 With Selection .Font.Size = 16 '字體大小 .Font.Bold = True '字體加粗 .HorizontalAlignment = xlCenter '水平方向居中 .VerticalAlignment = xlCenter

7、'垂直方向居中 End WithEnd subEsy031.調(diào)用EXCEL的RAND和INT內(nèi)部函數(shù)，在A列的110行輸入序號110，在B列的110行填入01之間的隨機(jī)數(shù)，在C列的110行填入兩位正整數(shù)，最后在C列的11行求出該列的最大數(shù)（調(diào)用MAX函數(shù)）。'請參照程序上下文補(bǔ)充完整的語句Sub sy31() 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 = "

8、;C" & k Range(a).Value = k '在A列的1-10行輸入序號1-10 Range(b).Value = Rnd() '在B列的1-10行填入0-1之間的隨機(jī)數(shù) Range(c).Value = 10 + Int(90 * Rnd() '在C列的1-10行填入兩位正整數(shù) Next k Set myr = Worksheets("Sheet1").Range("C1:C10") Range("c11") = WorksheetFunction.Max(myr) '在C

9、列的11行求出該列的最大數(shù)（調(diào)用MAX函數(shù)）End SubEsy04輸入一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符，并用Msgbox函數(shù)輸出結(jié)果。分析：用IF語句實(shí)現(xiàn)Sub pdzi() Dim strC As String '定義變量strC為字符型 strC = InputBox("請輸入字符") '第1空，利用InputBox函數(shù)輸入字符放到strC中 If UCase(strC) >= "A" And UCase(strC) <= "Z" Then '判斷輸入字符是否為AZ(其中U

10、Case函數(shù)為將字符轉(zhuǎn)換成大寫字符的函數(shù)) MsgBox (strC & "是字母") '第2空，利用MsgBox函數(shù)輸出判斷結(jié)果 ElseIf strC >= 0 And strC <= 9 Then ' '第3空，判斷輸入字符是否為09 MsgBox (strC & "是數(shù)字") '利用MsgBox函數(shù)輸出判斷結(jié)果 Else '第4空 MsgBox ("字符" & strC & "既不是字母，也不是數(shù)字") '利用Msg

11、Box函數(shù)輸出判斷結(jié)果 End IfEnd Sub2某學(xué)校的職工人事數(shù)據(jù)存在Excel工作表中?，F(xiàn)要按職稱提升每位職工的工資，各種職稱的工資增長情況如下：教授150、副教授130、講師100、助教80、高級工程師150、工程師140、助工90。用select語句編寫計(jì)算增加工資的過程。Sub addsalary() r = ActiveCell.Row '活動(dòng)單元格為要求得增加工資的單元格，計(jì)算活動(dòng)單元格的行號 t = Cells(r, 3) '第1空，定位“職稱”所在的單元格 Select Case t Case "教授", "高級工程師&quo

12、t; '第2空 ActiveCell = 150 Case "副教授" ActiveCell = 130 Case "講師" ActiveCell = 100 Case "助教" ActiveCell = 80 Case "工程師" ActiveCell = 140 Case "助工" ActiveCell = 90 End Select '第3空，End Sub3：某教師講授了一門考查課程，他平時(shí)及期末考試都用百分制衡量學(xué)生的成績，設(shè)該教師的成績表如圖所示。學(xué)校要求最后的成績都

13、用等級制。百分制與等級制的轉(zhuǎn)換規(guī)則為：60分以下為不及格，6070分為及格，7080分為中等，8090分為良，90100分為優(yōu)。編寫一個(gè)百分制與等級制的轉(zhuǎn)換過程實(shí)現(xiàn)成績的等級轉(zhuǎn)換。Sub change() score = ActiveCell.Offset(0, -1).Value '第1空 Select Case score Case Is >= 90 '第2空 ActiveCell = "優(yōu)" Case Is >= 80 ActiveCell = "良" Case Is >= 70 ActiveCell = &quo

14、t;中" Case Is >= 60 ActiveCell = "及格" Case Else '第3空 ActiveCell = "不及格" End SelectEnd Sub4：打開Excel工作簿EC404.xls，在 A2，B2和C2單元格輸入a, b, c 的值，單擊最大值按鈕，在D2顯示這三個(gè)數(shù)的最大值。解題思路：假設(shè)三個(gè)數(shù)中的第一個(gè)數(shù)是最大值，用這個(gè)假定的最大值分別跟剩下的兩個(gè)數(shù)比較，如果假定的最大值小于其它兩個(gè)數(shù)，則最大值為較大的那個(gè)數(shù)。Sub max()Dim a As Double, b As Double, c

15、 As Double, max As Double a = Val(Cells(2, 1) b = Val(Cells(2, 2) c = Val(Cells(2, 3) max = a '第1空 If max < b Then max = b '第2空 End If If max < c Then '第3空 max = c '第4空 End If Cells(2, 4) = maxEnd Sub5：編寫程序：創(chuàng)建一簡單應(yīng)用程序，單擊窗體，利用InputBox函數(shù)如（圖2）所示顯示對話框，設(shè)定固定密碼就是“password”（注意輸入的大小寫）；若輸

16、入密碼正確與否，利用MsgBox函數(shù)分別顯示如（圖3）和（圖4）所示來提示用戶輸入的密碼正確與不正確的對話框。（圖2） （圖3） （圖4）提示：請根據(jù)圖3和圖4中的界面填寫第2空和第3空，Msgbox函數(shù)的格式為：Msgbox 提示信息，按鈕數(shù)目及形式，對話框標(biāo)題Sub pass()t = InputBox("請輸入密碼", "輸入密碼")If t = "password" Then '第1空MsgBox "恭喜你，密碼正確！", 0, "正確 " '第2空ElseMsgBox

17、"對不起！你是非法用戶！", vbCritical, "拒絕" '第3空End IfEnd SubEsy05實(shí)驗(yàn)1：編寫程序，求1+2+3+.+10的和并輸出其結(jié)果。解題思路：該題用ForNext結(jié)構(gòu)實(shí)現(xiàn)累加。Sub sum()Rem 求1+2+.+10的和并輸出Dim s As Integers = 0 '第1空For i = 1 To 10 '第2空 s = s + i '第3空Next iMsgBox ("1+2+3+.+10=" & s) '第4空End Sub實(shí)驗(yàn)2：輸入任意多

18、個(gè)正整數(shù)，編寫程序求其和與平均值。當(dāng)輸入數(shù)小于0時(shí)結(jié)束數(shù)據(jù)的輸入。解題思路：該題用Do WhileLoop結(jié)構(gòu)實(shí)現(xiàn)累加，While 后面需要有控制循環(huán)是否繼續(xù)的條件，請注意While與Until的區(qū)別。Sub comput()Dim sum As Long 'sum用來保存所輸入數(shù)的和Dim data As IntegerDim k As Integer 'k為記數(shù)器，記錄輸入數(shù)的個(gè)數(shù)k = 0data = InputBox("請輸入數(shù)據(jù):")Do While data >= 0 '第1空 sum = sum + data '第2空 k

19、 = k + 1 '第3空 data = InputBox("請輸入數(shù)據(jù):")LoopMsgBox "一共輸入了" & k & "個(gè)數(shù)。" _& vbCrLf & "其和為" & sum & "其平均值為：" & sum / kEnd Sub實(shí)驗(yàn)3：編寫程序計(jì)算SUM=1+1*2+1*2*3+1*2*3*100的和。解題思路：該題用DoLoop結(jié)構(gòu)實(shí)現(xiàn)累積與累加，目標(biāo)是求100項(xiàng)的累加，而每一項(xiàng)是一個(gè)累積式。Sub multi()D

20、im sum As Double Dim i As Integer Dim t As Double i = 1: t = 1: sum = 0 Do While i <= 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)End Sub實(shí)驗(yàn)4：打開Excel工作簿E504.xls，編寫程序，將當(dāng)前工作表中第1行從指定位置m開始的n個(gè)數(shù)按相反順序重新排列。例如，原數(shù)列為：

21、1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16，17，18，19，20。從第5個(gè)數(shù)開始，將10個(gè)數(shù)進(jìn)行逆序排列，則得到新數(shù)列為：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空，終止位置 Do While i < j '第2空 t = Cells(1, i) Cells(1, i) = Cells(1, j) '第3空 Cells(1, j) = t &

22、#39;第4空 i = i + 1 j = j - 1 '第5空 Loop End SubEsy06實(shí)驗(yàn)1： 打開Excel工作簿E601.xls，編寫一個(gè)程序，提取字符串中的數(shù)字符號。例如，程序運(yùn)行后輸入字符串a(chǎn)bc123edf456gh，則輸出“123456”。Sub tq() s = InputBox("請輸入一個(gè)字符串:") '輸入一個(gè)字符串，放在變量s中 n = Len(s) '第1空，求出s的長度，放在變量n中 For i = 1 To n a = Mid(s, i, 1) '第 2 空，求字符串a(chǎn) If a >= o An

23、d a <= 9 Then '第 3 空，如果a的值是0到9之間的數(shù)字符號， b = b & a '第 4 空，則把它拼接到結(jié)果字符串變量b中 End If Next i MsgBox b '輸出結(jié)果End Sub實(shí)驗(yàn)2：打開Excel工作簿E602.xls，工作表第1行有n個(gè)升序排列的數(shù)值，第2行有m個(gè)升序排列的數(shù)值，請編寫一個(gè)程序，將第2行的數(shù)據(jù)合并到第1行中，并保持所有數(shù)據(jù)升序排列Sub 合并() r = Rows(1).End(xlToRight).Column '求第一行列數(shù) t = Rows(2).End(xlToRight).Colu

24、mn '求第二行列數(shù) For i = 1 To t '對第二行的每個(gè)數(shù)據(jù)進(jìn)行處理 a = Cells(2, i): Cells(2, i) = "" '取出第二行的一個(gè)數(shù)據(jù) For s = r To 1 Step -1 '第 1 空 ，從后往前掃描 If a >= Cells(1, s) Then Exit For '第 4 空，退出本層循環(huán) Cells(1, s + 1) = Cells(1, s) '第 2 空，移動(dòng)數(shù)據(jù) Next s Cells(1, s + 1) = a '插入數(shù)據(jù) r = r + 1 &

25、#39;第 3 空 ，修改目標(biāo)數(shù)據(jù)區(qū)長度 Next '第 5 空End Sub實(shí)驗(yàn)3：在“D:Esy06”文件夾下打開文件EC603.xls，“求任意區(qū)域數(shù)值總和”按鈕指定到名稱為“sumSelection”的宏，補(bǔ)充宏代碼，使之完成如下功能：計(jì)算工作表中任意選定區(qū)域的數(shù)據(jù)總和，并用信息提示對話框?qū)⒔Y(jié)果輸出，完成后按原文件名保存在原位置Sub sumSelection() For Each x In Selection '第1空，”For #1# In Selection“ s = s + x '第2空 Next msgbox "該區(qū)域的總和為:"

26、& s '第3空，”msgbox "該區(qū)域的總和為:" & #3# “End Sub實(shí)驗(yàn)4：在“D:Esy06”文件夾下打開文件EC604.xls，“從分班”按鈕指定到名稱為“Student”的宏，補(bǔ)充宏代碼，使之完成如下功能：按順序（成績從高到低）對學(xué)生進(jìn)行分班，每個(gè)班25名學(xué)生，每個(gè)班保存在一個(gè)新的工作表中。完成后按原文件名保存在原位置Sub Student()n = 0While Not (IsEmpty(Cells(n + 4, 1) n = n + 1 '第 1 空Wendm = Application.WorksheetFunct

27、ion.RoundUp(n / 25), 0)bs = 1Do Sheets.Add ActiveSheet.Name = Str(bs) + "班" Cells(1, 1) = "英語" + Str(bs) + "班名單" Cells(2, 1) = "學(xué)號" Cells(2, 2) = "姓名" Cells(2, 3) = "成績" For i = 1 To 25 For j = 1 To 3 '第 2 空 Cells(i + 2, j) = Sheets(&qu

28、ot;sheet1").Cells(i + 3 + (bs - 1) * 25, j) '第 3 空 Next Next bs = bs + 1 '第 4 空， #4#Loop While bs <= m '第 5 空， #5#End SubEsy07實(shí)驗(yàn)1：打開文件E701.xls，“一維數(shù)組求極值”按鈕指定到名稱為“一維數(shù)組求極值”的宏，補(bǔ)充宏代碼，使之完成如下功能：輸入10個(gè)數(shù)，將這10個(gè)數(shù)分別放在第1行的10個(gè)單元格中，求出這10個(gè)數(shù)的最大值和最小值放在相對應(yīng)的單元格中。Sub 一維數(shù)組求極值() Dim E(1 To 10) As Single

29、 '第1空，定義一個(gè)名稱為E，元素個(gè)數(shù)為10的一維數(shù)組 Dim max As Single, min As Single MsgBox "輸入的10個(gè)數(shù)據(jù)如下：" For i = 1 To 10 'For語句的作用是先將輸入的數(shù)據(jù)放到數(shù)組中，然后再將數(shù)組中的數(shù)放到對應(yīng)單元格里 E(i) = InputBox("請輸入數(shù)據(jù):") '第2空 Cells(1, i) = i '第3空 Next i max = E(1): min = E(1) For i = 2 To 10 If max < E(i) Then max =

30、 E(i) '第4空 If min > E(i) Then min = E(i) '第5空 Next i Cells(2, 2) = max Cells(3, 2) = minEnd Sub實(shí)驗(yàn)2：打開文件E702.xls，“一維動(dòng)態(tài)數(shù)組的使用”按鈕指定到名稱為“一維動(dòng)態(tài)數(shù)組的使用”的宏，補(bǔ)充宏代碼，將整型動(dòng)態(tài)數(shù)組X聲明為具有20個(gè)元素的數(shù)組，并給數(shù)組的所有元素賦值1。Sub 一維動(dòng)態(tài)數(shù)組的使用() Dim X() As Integer '第6空 ReDim X(1 To 20) '第7空 For I = 1 To 20 X(I) = 1 '第8空

31、 Cells(I, 1) = X(I) Next IEnd Sub實(shí)驗(yàn)3：打開文件E703.xls，“統(tǒng)計(jì)英語成績”按鈕指定到名稱為“統(tǒng)計(jì)英語成績”的宏，補(bǔ)充宏代碼，使之完成如下功能：首先輸入該班人數(shù)，然后再分別輸入該班學(xué)生的英語成績并將英語成績依次放在第1行，將大于平均值的數(shù)據(jù)以紅色字體顯示出來。Sub 統(tǒng)計(jì)英語成績() Dim E() As Single Dim n As Integer Dim s As Single, aver As Single n = InputBox("請輸入該班的人數(shù)") ReDim E(n) '第9空 MsgBox "輸入

32、的" & n & "個(gè)數(shù)據(jù)如下：" For i = 1 To n E(i) = InputBox("請輸入英語成績:") Cells(1, i) = E(i) s = s + E(i) '第10空 Next i aver = s / n '第11空 MsgBox "將大于平均值的數(shù)據(jù)以紅色字體顯示出來：" For i = 1 To n If aver < E(i) Then Cells(1, i).Font.ColorIndex = 3 Next iEnd SubEsy08實(shí)驗(yàn)1：打開文

33、件E801.xls，“子程序過程求階乘”按鈕指向名稱為“子程序過程求階乘”的宏，首先補(bǔ)充子程序過程Fact的代碼，使之完成階乘計(jì)算。然后，分別用call語句調(diào)用Fact過程計(jì)算出5的階乘，用非call語句調(diào)用Fact過程計(jì)算出8的階乘。Sub fact(n As Integer) '子程序fact求n的階乘 Dim i As Integer, t As Long t = 1 For i = 1 To n t = t * i '第1空 Next i MsgBox n & "的階乘為：" & t '第2空，輸出如下內(nèi)容“n的階乘為：t”，

34、當(dāng)程序運(yùn)行時(shí)n和t都為具體數(shù)End SubSub 子程序過程求階乘()Call fact(5) '第3空，call語句調(diào)用Fact過程計(jì)算5的階乘fact 8 '第4空，非call語句調(diào)用Fact過程計(jì)算8的階乘End Sub實(shí)驗(yàn)2：打開文件E802.xls，補(bǔ)充自定義函數(shù)“Area”的宏代碼，首先判斷三條邊能否組成三角形，如果能就完成三角形面積的計(jì)算（三角形面積=），如果不能則輸出"這三條邊不能組成三角形！"，并在D2:D8中調(diào)用“Area”函數(shù)。Function area(x, y, z)c = (x + y + z) / 2If x + y >

35、z And y + z > x And x + z > y Then '第5空，判斷三條邊能否組成三角形 area = (c - x) * (c - y) * (c - z) 1 / 2 '第6空Else area = "這三條邊不能組成三角形！"End IfEnd Function實(shí)驗(yàn)3：打開文件E803.xls，補(bǔ)充宏代碼，完成如下功能：將當(dāng)前工作表中第1行從指定位置m開始的n個(gè)數(shù)按相反順序重新排列。例如，原數(shù)列為：1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16，17，18，19，20。從第5個(gè)數(shù)開始，將10個(gè)數(shù)

36、進(jìn)行逆序排列，則得到新數(shù)列為：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 '終止位置 Do While i < j Call swap(i, j) '第7空，兩數(shù)交換位置 i = i + 1: j = j - 1 '第8空，調(diào)整指針 LoopEnd SubSub swap(x, y) '兩數(shù)交換位置的子過程 t = Cells(1, x) Cells(1, x) = Cells(

37、1, y) '第9空 Cells(1, y) = t '第10空End Sub實(shí)驗(yàn)4：打開文件E804.xls，補(bǔ)充宏代碼，完成如下功能：提取字符串中的數(shù)字符號。例如，程序運(yùn)行后輸入字符串a(chǎn)bc123edf456gh，則輸出“123456”。Sub 提取字符串中的數(shù)字() strs = InputBox("請輸入一個(gè)字符串:") '輸入一個(gè)字符串，放在變量strs中 n = Len(strs) '第11空，求出strs的長度，放在變量n中 Call tq(strs, n, result) '第12空，調(diào)用提取過程 MsgBox res

38、ult '輸出結(jié)果End SubSub tq(s, l, b) 's為輸入字符串，l為字符串長度，b為得到的數(shù)字字符 For i = 1 To l '進(jìn)行l(wèi)次循環(huán) a = Mid(s, i, 1) '第13空，取s中第i個(gè)字符，放在a中 If a >= "0" And a <= "9" Then '是數(shù)字符號 b = b & a '第14空，拼接到b中 End If NextEnd Sub實(shí)驗(yàn)5：打開文件E805.xls，補(bǔ)充宏代碼，完成如下功能：將輸入的字符反向輸出。例如，輸入字符串“

39、abcdef”輸出為”fedcba”。Sub Invert(xStr, yStr) 'xStr用來存放原始字符串，yStr用來存放反向后的字符串 Dim tempStr As String Dim I As Integer I = Len(xStr) Do While I >= 1 'DO語句實(shí)現(xiàn)字符串的反向，基本思路是從右邊一個(gè)一個(gè)的截取字符放到給定變量中，變量中的字符串即為反向字符串 tempStr = tempStr & Mid(xStr, I, 1) '第15空 I = I - 1 Loop yStr = tempStr '第16空End

40、SubSub 字符反向輸出() Dim s1 As String, s2 As String s1 = InputBox("請輸入字符串：") Call Invert(s1, s2) '第17空 MsgBox s2End SubEsy11期中考1、 請打開實(shí)驗(yàn)文件夾下的sy01.xls文件，完成如下操作：編程序，打印九九乘法表如下。其中乘數(shù)和被乘數(shù)所在單元格字符格式為加粗，水平居中。Sub jiujiu()Dim i As Integer, j As IntegerFor i = 1 To 9 Cells(1, i + 1).Value = i '第1空，#

41、(1)#.Value = i生成乘法表的第1行 Cells(i + 1, 1).Value = i '第2空，#(2)#.Value = i生成乘法表的第1列Next iRows(1).Font.Bold = True '第3空 #(3)#.Font.Bold = TrueRows(1).HorizontalAlignment = xlCenterColumns(1).Font.Bold = True '第4空 #(4)#.Font.Bold = TrueColumns(1).HorizontalAlignment = xlCenter '第5空 Columns

42、(1).#(5)# = xlCenterFor i = 1 To 9For j = 1 To i '第6空 For j = #(6)# Cells(i + 1, j + 1).Value = i * j '第7空 #(7)# = i * jNext jNext iEnd Sub2、 請打開實(shí)驗(yàn)文件夾下的sy02.xls文件，完成題目要求的操作。Sub 男生分班()Sub 男生分班() Dim k As Integer For Each sht In Worksheets '檢查“男生”工作表是否存在，如果存在則刪除 If sht.Name = "男生"

43、; Then Sheets("男生").Delete 'Sheets("男生").#（1）# Next Sheets.Add '建立男生工作表及表頭信息 Range("a1:d1").Merge '#（2）#.Merge ActiveSheet.Name = "男生" '#（3）# = "男生" 活動(dòng)工作表的名字為“男生” Range("A1:D1").Value = "2000級男生信息表" ' Range("A1:D1").#（4）# = "2000級男生信息表" Range("A2").FormulaR1C1 = Sheets("學(xué)生成績").Range("A3").Value Range("B2").FormulaR1C1 = Sheets("學(xué)生成績&q