Cells(1, 1) = \的偶数\Cells(1, 2) = \第一个素数\ Cells(1, 3) = \第二个素数\
- 定]
4. For i = 1 To 10 5. Next i
[未给
Cells(i + 1, 1) = (Int(Rnd * 48) + 3) * 2 - 定]
[未给- 定] [未给- 定] [未给- 定]
6. For i = 2 To 11
7. For a = 3 To Cells(i, 1) / 2
Prime(a) And Prime(Cells(i, 1) - a) Then [未给8. If
- 定]
9. Cells(i, 2) = a
Cells(i, 3) = Cells(i, 1) - a Exit For
[未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
10.
End If
11.
Next a 12. Next i
End Sub
13.
问题 4
正确答案 1. Sub a32() 2. Dim rng As Range
在范围C1:H26的所有单元格中，显示各自的列号与行号。
所选答案 - [未给定] - [未给定]
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
正确答案
Sub RngCells()
将单元格区域 A1:D10所有绝对值小于10的数字都设置为红色。
所选答
案 [未- 给定] [未- 给定]
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.
问题 1
设置为10磅，以后每个加2磅。
得 0 分，满分 20 分
在A1：A10输入相同的字，如“ZUCC”，编写程序设置它们的字体大小，A1
正确答案 所选答案
1. Sub 改变字体大小() - [未给定]
2. Dim k As Integer, c As String - [未给定] 3. For k = 1 To 10 4. c = \ 5. Range(c).Select 6. With Selection.Font 7. .Size = 10 + 2 * k 8. End With 9. Next k
End Sub 10.
- [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定]
得 0 分，满分 20 分
问题 2
假设单元格“B100”为合计数所在的单元格，要求工作簿关闭前，必须填入
合计数，否则不允许关闭。
正确答案
Sub WorkBook_BeforeClose(Cancel as
1. Boolean)
If Range(\
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
2.
Cancel = True
3.
MsgBox \合计数不能为空，不允许关闭! \
4.
EndIf
5.
End Sub
6.
问题 3
在工作表1上创建“窗体”按钮并建立与之相关的“宏”，编写代码完成：从键盘输入一个整数n，输出如下图之图形。其中每个“*”要加粗，并在单元格中水平和垂直方向居中。
正确答案
Sub 按钮1_单击()
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
1. 2.
Worksheets(1).Activate 3. ActiveSheet.Cells.Clear
n = InputBox(\输入一个整数\ For i = 1 To n
Dim n As Integer, i As Integer, j As Integer
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
[未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
8.
End Sub
9.
问题 4
正确答案 1. Sub a32() 2. Dim rng As Range
在范围C1:H26的所有单元格中，显示各自的列号与行号。
所选答案 - [未给定] - [未给定]
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
本例在Sheet1上的单元格区域 A1:D10中进行循环。如果这些单元格中的
值小于0.001，则将其值替换为0（零）。
正确答案
Sub Zero1()
所选答案 [未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
1.
Dim c As Range
2.
For Each c in
3. Worksheets(\
If c.Value < .001 Then
4.
c.Value = 0
5.
End If
6.
Next c
7.
End Sub
8.
问题 1 得 0 分，满分 20 分
在工作表1上创建“控件工具箱”命令按钮“产生数据”（CommandButton1）和“判断”（CommandButton2）。 单击“产生数据”按钮完成在A1：A10上产生两位随机正整数；单击“判断”按钮完成将其中重复数用红色标注。
正确答案
所选答案