Next Rng
5.
End Sub
[未给- 定] [未给- 定]
得 0 分，满分 20 分
6.
问题 2
在工作表1上创建“控件工具箱”命令按钮“产生数据”（CommandButton1）和“判断”（CommandButton2）。 单击“产生数据”按钮完成在A1：A10上产生两位随机正整数；单击“判断”按钮完成将其中重复数用红色标注。
正确答案
所选答案
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.
- [未给定] - [未给定] - [未给定] - [未给定]
问题 3
利用工作表函数求和并用消息框输出。
得 0 分，满分 20 分
正确答案
所选答
案
Sub Arg2()
1.
Range(\
[未- 给定] [未- 给定] [未- 给定] [未- 给定]
得 0 分，满分 20 分
2.
MsgBox Prompt:= \
WorksheetFunction.Sum(Selection),Title:= \求3.
和\
End Sub
4.
问题 4
正确答案
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
[未
- 给定] [未- 给定]
得 0 分，满分 20 分
6.
问题 5
将Sheet1中的一行复制到 Sheet2 上。
正确答案
Sub RowCopy() 1.
Worksheets(\ 2.
Worksheets(\ 3.
所选答案 - [未给定] - [未给定] - [未给定]
Worksheets(\ - [未给定] 4.
Worksheets(\ 5.
End Sub 6.
- [未给定] - [未给定]
问题 1 得 0 分，满分 20 分
在Excel表中统计学生各区段的成绩（数据与结果如下图所示）。
正确答案
1. Private Sub CommandButton1_Click() 2. Dim c As Range
3. Range(\
所选答案 - [未给定] - [未给定] - [未给定]
4. For Each c In Range(\ - [未给定] 5. Select Case c
- [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定]
6. Case Is >= 90 7. col = 2
Case Is >= 80
8. col = 3
Case Is >= 70
9. col = 4
Case Is >= 60 col = 5 10.
Case Else 11.
col = 6 12.
End Select 13.
Cells(15, col) = Cells(15, col) + 1 14. Next 15.
End Sub 16.
- [未给定] - [未给定] - [未给定] - [未给定] 得 0 分，满分 20 分
问题 2
用Excel工作表制作一个会议签到单。当每个与会人员报道时，在其姓名右边的单元格单击鼠标，自动填入当前日期和时间。
正确答案
所选答案
Private Sub Worksheet_SelectionChange(ByVal [未给1. Target As Range) - 定]
Dim r As Integer, c As Integer
2.
[未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
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.
问题 3
编写程序，在工作表上打印九九乘法表如下。
正确答案
所选答案 [未给- 定] [未给- 定]
1. Sub print99()
2. Dim i As Integer, j As Integer
3. ActiveSheet.Cells.Clear 4. For i = 1 To 9 5. Cells(1, i + 1) = i
Cells(i + 1, 1) = i 6. Next i 7. For i = 1 To 9
For j = i To 9
8. Cells(i + 1, j + 1) = i * j 9. Next j
Next i
10. Range(\
Range(\xlCenter
Range(\
Range(\xlCenter
End Sub
[未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
11.
[未给- 定]
得 0 分，满分 20 分
问题 4
正确答案
Sub Run_it()
在Excel中实现定时提醒，在上午8点45分显示一个提醒信息。
所选答案 [未- 给定] [未 - 给定] [未- 给定]
1.
Application.OnTime
2. TimeValue(\
End Sub
3. Sub Show_me()