1. Private Sub CommandButton1_Click() - [未给定] 2. Dim i As Integer 3. ActiveSheet.Cells.Clear 4. For i = 1 To 10
5. Cells(i, 1) = Int(Rnd * 90) + 10 6. Next i 7. End Sub
Private Sub CommandButton2_Click()
- [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定]
8. Dim i As Integer, j As Integer 9. For i = 1 To 9
For j = i + 1 To 10
If Cells(i, 1) = Cells(j, 1) Then - [未给定] 10.
Cells(j, 1).Font.Color = vbRed 11. End If 12. Next j 13.
Next i End Sub 14.
- [未给定] - [未给定] - [未给定] - [未给定] 得 0 分，满分 20 分
问题 2
正确答案
Sub SumbyCol()
对当前工作表整个区域，按每一列求和，并把结果添加在每列的最后。
所选答案 [未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
1.
Dim Rng As Range
2.
For Each Rng In
3. ActiveSheet.UsedRange.Columns Rng.Cells(Rng.Cells.Count + 1) = 4. WorksheetFunction.Sum(Rng)
Next Rng
5.
End Sub
6.
问题 3
在工作表中显示九九乘法表。
得 0 分，满分 20 分
正确答案
1. Sub Table99()
所选答案 [未给- 定]
2. Range(\= Array(1, 2, 3, 4, 5, [未给
6, 7, 8, 9) - 定] 3. Range(\
[未给
- 定]
4. Range(\[未给
True - 定] 5. Application.CutCopyMode = False
[未给
- 定] [未给 - 定] [未给- 定]
6. For i = 1 To 9 7. For j = 1 To 9
8. Cells(i + 1, j + 1) = i & \[未给
* j - 定] 9. Next j
Next i
[未给
- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
10.
End Sub
11.
问题 4
正确答案 1. Sub a32()
在范围C1:H26的所有单元格中，显示各自的列号与行号。
所选答案 - [未给定] - [未给定]
2. Dim rng As Range
3. Set rng = ActiveSheet.Range(”C1:H26”) - [未给定] 4. With rng
- [未给定]
5. For i = 1 To .Columns.Count 6. For j = 1 To .Rows.Count
7. .Cells(j, i).Value = j & \ 8. Next j
Next i 9. End With
End Sub 10.
- [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定]
得 0 分，满分 20 分
问题 5
在工作表1上创建“窗体”按钮并建立与之相关的“宏”，编写代码完成：从
键盘输入一个整数n，输出如下图之图形。其中每个“*”要加粗，并在单元格中水平和垂直方向居中。
正确答案
Sub 按钮1_单击()
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
1. 2.
Worksheets(1).Activate 3. ActiveSheet.Cells.Clear
n = InputBox(\输入一个整数\
Dim n As Integer, i As Integer, j As Integer
For i = 1 To n
4.
For j = 1 To 2 * i - 1
5.
Cells(i, n - i + j) = \[未给6. Cells(i, n - i + j).Font.Bold = True - 定]
Cells(i, n - i + j).VerticalAlignment = xlCenter
Cells(i, n - i + j).HorizontalAlignment = xlCenter
Next j
7.
Next i
[未给- 定] [未给- 定]
8.
End Sub
9.
[未给- 定]
问题 1
正确答案
Sub RngCells()
得 0 分，满分 20 分
将单元格区域 A1:D10所有绝对值小于10的数字都设置为红色。
所选答案 [未- 给定] [未- 给定] [未- 给
定] [未- 给定] [未- 给定] [未- 给定]
得 0 分，满分 20 分
1.
Dim c As Range
2.
For Each c In
Worksheets(\ 3.
If Abs(c.Value) < 10 Then c.Font.ColorIndex = 3
4.
Next
5.
End Sub
6.
问题 2
正确答案
Sub Off() 1.
将相对于“C2”单元格偏移1行、3列的单元格加边框。
所选答案 - [未给定] - [未给定]
Cells(2, 3).Activate 2.
With ActiveCell.Offset(1, 3).Borders - [未给定] 3.
.LineStyle = xlContinuous 4.
.Weight = xlThin .ColorIndex = 5 End With 5.
End Sub 6.
- [未给定]
- [未给定] - [未给定] 得 0 分，满分 20 分
问题 3
在A列的1—10行填入两位随机正整数，最后在A列的11行求出该列的最大
数（不能调用MAX函数）。
正确答案
1. Sub maxint()
所选答案 [未给
- 定]
i As Integer, c As String, m As Integer [未给2. Dim
- 定]
3. For i = 1 To 10 4. c = \
Range(c) = Int(Rnd * 90) + 10
[未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
5. Next i
m = Range(\
6. For i = 2 To 10 7. c = \
8. If Range(c) > m Then m = Range(c) 9. Next i
Range(\
10.
End Sub
11.
问题 4
在范围C1:H26的所有单元格中，显示各自的列号与行号。