问题 1
将Sheet1中的一行复制到 Sheet2 上。
得 0 分，满分 20 分
正确答案
Sub RowCopy() 1.
Worksheets(\ 2.
所选答案 - [未给定] - [未给定] - [未给定]
Worksheets(\ 3.
Worksheets(\ - [未给定] 4.
Worksheets(\ 5.
End Sub 6.
- [未给定] - [未给定]
得 0 分，满分 20 分
问题 2
将A1到C6中大于等于3的数依次放入E列。
正确答案
Private Sub CommandButton1_Click()
所选答案 [未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
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.
问题 3
用工作表函数计算Sheet1上位于A1～A100单元格区域中的、值大于等于10
且小于等于20的单元格数目。
正确答案
Sub a1020()
所选答案 [未- 给定] [未- 给定] [未- 给
定]
1.
Set iRang =
Worksheets(\ 2.
With Application.WorksheetFunction
3.
result = .Countif(iRange, \- .Countif [未(iRange, \ 4. - 给
定]
End With
5.
MsgBox result End Sub 6.
[未
- 给定] [未- 给定]
得 0 分，满分 20 分
问题 4
在sheet1上存放了“文具采购表” （见下图），其中单价需从Sheet2中的“单价表”查询得到（见下图），并以此计算出合计金额。要求自编一个函数实现单价的查询。
正确答案
1. Public Function price(x As String) As
Integer 2. Dim i As Integer 3. With Worksheets(2) 4. For i = 2 To 6
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定]
5. If x = .Cells(i, 1) Then 6. price = .Cells(i, 2) 7. Exit For 8. End If 9. Next i
End With
[未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
10.
End Function
11.
问题 5
使用 Min 工作表函数求出单元格区域“A1:C10”中的最小值并用MsgBox输
出。
正确答案
Sub amin()
所选答案 [未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
1.
Dim answer As Single, myR As Range
2.
Set myR =
3. Worksheets(\ answer =
4. Application.WorksheetFunction.Min(myR)
MsgBox answer
5.
End Sub
6.
问题 1 得 0 分，满分 20 分
使用 Min 工作表函数求出单元格区域“A1:C10”中的最小值并用MsgBox输
出。
正确答案
Sub amin()
所选答案 [未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
1.
Dim answer As Single, myR As Range
2.
Set myR =
3. Worksheets(\ answer =
4. Application.WorksheetFunction.Min(myR)
MsgBox answer
5.
End Sub
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 分
随机产生10个6—100之间的偶数，对每个数进行哥德巴赫猜想（Goldbach
Conjecture）验证。其中判断一个整数是否为素数用以下Prime函数。 Function Prime(x As Integer) As Boolean Dim i As Integer Prime = True For i = 2 To x - 1 If x Mod i = 0 Then
Prime = False Exit For
End If Next i
End Function
正确答案
1. Sub Goldbach()
i As Integer, a As Integer, b As Integer 2. Dim
所选答案 [未给
- 定] [未给- 定]
[未给
3. ActiveSheet.Cells.Clear