《Excel高级应用VBA实验题目解析》由会员分享，可在线阅读，更多相关《Excel高级应用VBA实验题目解析（23页珍藏版）》请在金锄头文库上搜索。
1、-Esy021、 选定sheet1工作表，合并A1：C1单元格，并输入TEST，背景颜色设置为浅黄色，字体颜色设置为红色，字体大小设置为10磅。Sub Macro1() Macro1 Macro 宏由 *u 录制，时间: 2013/3/26 Application.Left = 201.25 Application.Top = 61.75 Range(A1:C1).Select With Selection .HorizontalAlignment = *lCenter .VerticalAlignment = *lBottom .WrapTe*t = False .Orientation =
2、 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = *lConte*t .MergeCells = False End With Selection.Merge Range(A1:C1).SelectActiveCell.FormulaR1C1 = TESTRange(A1:C1).Select With Selection .HorizontalAlignment = *lCenter .VerticalAlignment = *lCenter .WrapTe*t = False .Orien
3、tation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = *lConte*t .MergeCells = True End With With Selection.Font .Name = 宋体 .FontStyle = 常规 .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = *lUnder
4、lineStyleNone .ColorInde* = 3 End With With Selection.Interior .ColorInde* = 6 .Pattern = *lSolid .PatternColorInde* = *lAutomatic End WithEnd Sub2在sheet1上创立窗体命令按钮并指定宏代码sy22，补充代码完成：从键盘输入一个整数n，输出如以下图形。其中每个*在单元格中水平和垂直方向都要求居中。nSub sy22() Dim n As Integer, i As Integer, j As Integer 第1空 n = InputBo*(输入行
5、数) 从键盘输入数据并存放到变量n Sheets(Sheet1).Cells.ClearContents 去除sheet1工作表中单元格的容 For i = 1 To n 循环打印，输出n行* For j = 1 To 2 * i - 1 每行输出奇数2*i-1)个*，如：1，3，5个 Cells(i, n - i + j).Value = * Ne*t j Ne*t i Cells(1, n).Activate 激活A列N行的单元格 ActiveCell.CurrentRegion.Select 选定单元格所在的当前区域 With Selection .Font.Size = 16 字体大小
6、 .Font.Bold = True 字体加粗 .HorizontalAlignment = *lCenter 水平方向居中 .VerticalAlignment = *lCenter 垂直方向居中 End WithEnd subEsy031.调用E*CEL的RAND和INT部函数，在A列的110行输入序号110，在B列的110行填入01之间的随机数，在C列的110行填入两位正整数，最后在C列的11行求出该列的最大数调用MA*函数。请参照程序上下文补充完整的语句Sub sy31() Dim k As Integer Dim a As String, b As String, c As Stri
7、ng For k = 1 To 10 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行填入两位正整数 Ne*t k Set myr = Worksheets(Sheet1).Range(C1:C10) Range(c11) = WorksheetFunction.Ma*(myr) 在C列的11行求出该列的最大数调用MA*函数End
8、SubEsy04输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并用Msgbo*函数输出结果。分析：用IF语句实现Sub pdzi() Dim strC As String 定义变量strC为字符型 strC = InputBo*(请输入字符) 第1空，利用InputBo*函数输入字符放到strC中 If UCase(strC) = A And UCase(strC) = 0 And strC = 90 第2空 ActiveCell = 优 Case Is = 80 ActiveCell = 良 Case Is = 70 ActiveCell = 中 Case Is = 60 Act
9、iveCell = 及格 Case Else 第3空 ActiveCell = 不及格 End SelectEnd Sub4：翻开E*cel工作簿EC404.*ls，在 A2，B2和C2单元格输入a, b, c 的值，单击最大值按钮，在D2显示这三个数的最大值。解题思路：假设三个数中的第一个数是最大值，用这个假定的最大值分别跟剩下的两个数比较，如果假定的最大值小于其它两个数，则最大值为较大的那个数。Sub ma*()Dim a As Double, b As Double, c As Double, ma* As Double a = Val(Cells(2, 1) b = Val(Cells(2, 2) c = Val(Cells(2, 3) ma* = a 第1空 If ma* b
