正确答案 1. Sub a32() 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
用Excel工作表制作一个会议签到单。当每个与会人员报道时，在其姓名右
边的单元格单击鼠标，自动填入当前日期和时间。
正确答案
所选答案
Private Sub Worksheet_SelectionChange(ByVal [未给1. Target As Range) - 定]
Dim r As Integer, c As Integer
2.
[未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
r = Target.Row ’获取行号 3. c = Target.Column ’获取列号
If c = 2 And r > 1 Then
4.
Target.Value = Format(Now, \5. hh:mm:ss\
End If
6.
End Sub
7.
问题 1
利用工作表函数求和并用消息框输出。
得 0 分，满分 20 分
正确答案
Sub Arg2()
所选答案 [未- 给定] [未- 给
定]
1.
Range(\
2.
MsgBox Prompt:= \
[未
WorksheetFunction.Sum(Selection),Title:= \求和\ 3. - 给
定]
End Sub
4.
[未- 给定]
得 0 分，满分 20 分
问题 2
在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
[未给- 定] [未给- 定] [未给- 定]
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(\
[未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
10.
End Sub
11.
问题 3
模仿Excel的条件格式设置，对工作表Sheet1的所有单元格，凡数值小于
60的用红颜色显示。
正确答案
Private Sub Cond_Format() 1.
所选答
案 [未- 给定] [未- 给定] [未- 给
定] [未- 给定] [未- 给定] [未- 给定] [未
Dim i As Long, j As Long 2.
For i = Sheet1.UsedRange.Row To 3.
Sheet1.UsedRange.Row +
Sheet1.UsedRange.Rows.Count - 1 For j = Sheet1.UsedRange.Column To 4.
Sheet1.UsedRange.Column +
Sheet1.UsedRange.Columns.Count - 1 If Cells(i,j).Value < 60 Then 5.
Cells(i,j).Font.Color = GRB(255, 0, 0) 6.
End If 7.
- 给定]
Next j 8.
[未
- 给定] [未- 给定] [未- 给定]
得 0 分，满分 20 分
Next i 9.
End Sub
10.
问题 4
本例在Sheet1上的单元格区域 A1:D10中进行循环。如果这些单元格中的
值小于0.001，则将其值替换为0（零）。
正确答案
Sub Zero1()
所选答案 [未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
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.
问题 5
将A1到C6中大于等于3的数依次放入E列。
正确答案 所选答案
Private Sub CommandButton1_Click()
1.
Dim i As Long, iRng As Range
[未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
2. 3.
If iRng.Value >= 3 Then
For Each iRng In Sheets(1).Range(\
4.
i = i + 1
5.
Sheets(1).Range(\6. iRng.Value
End If
7.
Next
8.
End Sub
9.
问题 1
正确答案
Sub RngCells()
得 0 分，满分 20 分
将单元格区域 A1:D10所有绝对值小于10的数字都设置为红色。
所选答案 [未- 给定] [未- 给定] [未- 给
1.
Dim c As Range
2.
For Each c In
Worksheets(\ 3.