6.
- 定]
问题 1
正确答案
Sub Rannum()
得 0 分，满分 20 分
在Sheet1的A列上产生100个随机整数（小于100）。
所选答案 [未给- 定] [未给- 定]
1.
For i = 1 To 100
2.
Sheets(1).Cells(i, 1).Value = Int( 100 * [未给3. Rnd ) - 定]
Next
4.
End Sub
[未给
- 定] [未给- 定]
得 0 分，满分 20 分
5.
问题 2
在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.
问题 3
创建一个计算折扣率的函数，产品总值1至500元的折扣为0%，500至1000
元的折扣为10%，1000至2000元的折扣为20%，2000元以上的折扣为30%。
正确答案
1. Public Function zk(x As Integer) As
Single 2. If x <= 500 Then 3. zk = 0
ElseIf x <= 1000 Then
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
[未给
4. zk = 0.1
5. ElseIf x <= 2000 Then 6. zk = 0.2 7. Else 8. zk = 0.3 9. EndIf
- 定]
End Function
10.
[未给- 定]
得 0 分，满分 20 分
问题 4
正确答案
Sub Font_Set()
将工作表Sheet1中单元格区域 A1:D5 的字体设置为楷体并加粗。
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
1.
Dim rg As Range
2.
Set rg = Sheets(”Sheet1”).Range(”A1:D5”)
3.
rg.Font.Name = ”楷体_GB2312” 4. rg.Font.Bold = True
End Sub
5.
问题 5
在工作表中显示九九乘法表。
正确答案
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
[未给
- 定] [未给- 定] [未给- 定]
10.
End Sub
11.
问题 1 得 0 分，满分 20 分
参见下图中的学生成绩表，遍历5门课的所有成绩，凡是低于60分的，用红色显示（不能用条件格式，只能用程序实现）。
正确答案
1. Sub markred()
所选答案 - [未给定]
2. Dim i As Integer, j As Integer - [未给定] 3. Worksheets(1).Activate
- [未给定] - [未给定] - [未给定] - [未给定]
4. For j = 5 To 9 5. For i = 3 To 24
6. If Cells(i, j) < 60 Then
7. Cells(i, j).Font.Color = vbRed - [未给定] 8. End If 9. Next j
Next i
End Sub 10.
- [未给定] - [未给定] - [未给定]
得 0 分，满分 20 分
问题 2
用MsgBox输出（遍历）工作簿的所有工作表名。
正确答案 所选答案
Sub tra() 1.
Dim ws As Worksheet 2.
For Each ws In Worksheets 3.
- [未给定] - [未给定] - [未给定]
MsgBox \工作表名是：\ - [未给定] 4. Next 5.
End Sub 6.
- [未给定] - [未给定]
得 0 分，满分 20 分
问题 3
创建一个计算折扣率的函数，产品总值1至500元的折扣为0%，500至1000
元的折扣为10%，1000至2000元的折扣为20%，2000元以上的折扣为30%。
正确答案
1. Public Function zk(x As Integer) As
Single 2. If x <= 500 Then 3. zk = 0
ElseIf x <= 1000 Then
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
4. zk = 0.1
5. ElseIf x <= 2000 Then 6. zk = 0.2 7. Else 8. zk = 0.3 9. EndIf
End Function
10.
问题 4
本例在Sheet1上的单元格区域 A1:D10中进行循环。如果这些单元格中的
值小于0.001，则将其值替换为0（零）。