BB平台(VB日常测试)VBA.docx

问题 1 得 0 分，满分 20 分 将Sheet1中的一行复制到 Sheet2 上。 正确答案所选答案1. Sub RowCopy() -未给定 2. Worksheets(Sheet1).Rows(1).Copy -未给定 3. Worksheets(Sheet2).Select -未给定 4. Worksheets(Sheet2).Rows(1).Select -未给定 5. Worksheets(Sheet2).Paste -未给定 6. End Sub -未给定 问题 2 得 0 分，满分 20 分 将A1到C6中大于等于3的数依次放入E列。 正确答案所选答案1. Private Sub CommandButton1_Click() -未给定 2. Dim i As Long, iRng As Range -未给定 3. For Each iRng In Sheets(1).Range(A1:C6) -未给定 4. If iRng.Value = 3 Then -未给定 5. i = i + 1 -未给定 6. Sheets(1).Range(E & i).Value = iRng.Value -未给定 7. End If -未给定 8. Next -未给定 9. End Sub -未给定 问题 3 得 0 分，满分 20 分 用工作表函数计算Sheet1上位于A1A100单元格区域中的、值大于等于10且小于等于20的单元格数目。 正确答案所选答案1. Sub a1020() -未给定 2. Set iRang = Worksheets(Sheet1).Range(A1:A100) -未给定 3. With Application.WorksheetFunction -未给定 4. result = .Countif(iRange, =10”)- .Countif (iRange, ”&20) -未给定 5. End With -未给定 6. MsgBox resultEnd Sub-未给定 问题 4 得 0 分，满分 20 分 在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 -未给定 10. End With -未给定 11. End Function -未给定 问题 5 得 0 分，满分 20 分 使用 Min 工作表函数求出单元格区域“A1:C10”中的最小值并用MsgBox输出。 正确答案所选答案1. Sub amin() -未给定 2. Dim answer As Single, myR As Range -未给定 3. Set myR = Worksheets(Sheet1).Range(A1:C10) -未给定 4. answer = Application.WorksheetFunction.Min(myR) -未给定 5. MsgBox answer -未给定 6. End Sub -未给定 问题 1 得 0 分，满分 20 分 使用 Min 工作表函数求出单元格区域“A1:C10”中的最小值并用MsgBox输出。 正确答案所选答案1. Sub amin() -未给定 2. Dim answer As Single, myR As Range -未给定 3. Set myR = Worksheets(Sheet1).Range(A1:C10) -未给定 4. answer = Application.WorksheetFunction.Min(myR) -未给定 5. MsgBox answer -未给定 6. End Sub -未给定 问题 2 得 0 分，满分 20 分 在工作表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 SubPrivate Sub CommandButton2_Click()-未给定 8. Dim i As Integer, j As Integer -未给定 9. For i = 1 To 9For j = i + 1 To 10-未给定 10. If Cells(i, 1) = Cells(j, 1) Then -未给定 11. Cells(j, 1).Font.Color = vbRed -未给定 12. End If -未给定 13. Next jNext i-未给定 14. End Sub -未给定 问题 3 得 0 分，满分 20 分 随机产生10个6100之间的偶数，对每个数进行哥德巴赫猜想（Goldbach Conjecture）验证。其中判断一个整数是否为素数用以下Prime函数。Function Prime(x As Integer) As BooleanDim i As IntegerPrime = TrueFor i = 2 To x - 1If x Mod i = 0 ThenPrime = FalseExit ForEnd IfNext iEnd Function 正确答案所选答案1. Sub Goldbach() -未给定 2. Dim i As Integer, a As Integer, b As Integer-未给定 3. ActiveSheet.Cells.ClearCells(1, 1) = 6的偶数Cells(1, 2) = 第一个素数Cells(1, 3) = 第二个素数-未给定 4. For i = 1 To 10Cells(i + 1, 1) = (Int(Rnd * 48) + 3) * 2-未给定 5. Next i -未给定 6. For i = 2 To 11 -未给定 7. For a = 3 To Cells(i, 1) / 2 -未给定 8. If Prime(a) And Prime(Cells(i, 1) - a) Then -未给定 9. Cells(i, 2) = aCells(i, 3) = Cells(i, 1) - a-未给定 10. Exit For -未给定 11. End If -未给定 12. Next aNext i-未给定 13. End Sub -未给定 问题 4 得 0 分，满分 20 分 在范围C1:H26的所有单元格中，显示各自的列号与行号。 正确答案所选答案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 & & i -未给定 8. Next jNext i-未给定 9. End With -未给定 10. End Sub -未给定 问题 5 得 0 分，满分 20 分 将单元格区域 A1:D10所有绝对值小于10的数字都设置为红色。 正确答案所选答案1. Sub RngCells() -未给定 2. Dim c As Range -未给定 3. For Each c In Worksheets(Sheet1).Range(A1:D10).Cells -未给定 4. If Abs(c.Value) 10 Then c.Font.ColorIndex = 3 -未给定 5. Next -未给定 6. End Sub -未给定 问题 1 得 0 分，满分 20 分 在A1：A10输入相同的字，如“ZUCC”，编写程序设置它们的字体大小，A1设置为10磅，以后每个加2磅。 正确答案所选答案1. Sub 改变字体大小() -未给定 2. Dim k As Integer, c As String -未给定 3. For k = 1 To 10 -未给定 4. c = A & k -未给定 5. Range(c).Select -未给定 6. With Selection.Font -未给定 7. .Size = 10 + 2 * k -未给定 8. End With -未给定 9. Next k -未给定 10. End Sub -未给定 问题 2 得 0 分，满分 20 分 假设单元格“B100”为合计数所在的单元格，要求工作簿关闭前，必须填入合计数，否则不允许关闭。 正确答案所选答案1. Sub WorkBook_BeforeClose(Cancel as Boolean) -未给定 2. If Range(B100).Value = Then -未给定 3. Cancel = True -未给定 4. MsgBox 合计数不能为空，不允许关闭! -未给定 5. EndIf -未给定 6. End Sub -未给定 问题 3 得 0 分，满分 20 分 在工作表1上创建“窗体”按钮并建立与之相关的“宏”，编写代码完成：从键盘输入一个整数n，输出如下图之图形。其中每个“*”要加粗，并在单元格中水平和垂直方向居中。 正确答案所选答案1. Sub 按钮1_单击() -未给定 2. Dim n As Integer, i As Integer, j As Integer -未给定 3. Worksheets(1).ActivateActiveSheet.Cells.Clearn = InputBox(输入一个整数)-未给定 4. For i = 1 To n -未给定 5. For j = 1 To 2 * i - 1 -未给定 6. Cells(i, n - i + j) = *Cells(i, n - i + j).Font.Bold = TrueCells(i, n - i + j).VerticalAlignment = xlCenterCells(i, n - i + j).HorizontalAlignment = xlCenter-未给定 7. Next j -未给定 8. Next i -未给定 9. End Sub -未给定 问题 4 得 0 分，满分 20 分 在范围C1:H26的所有单元格中，显示各自的列号与行号。 正确答案所选答案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 & & i -未给定 8. Next jNext i-未给定 9. End With -未给定 10. End Sub -未给定 问题 5 得 0 分，满分 20 分 本例在Sheet1上的单元格区域 A1:D10中进行循环。如果这些单元格中的值小于0.001，则将其值替换为0（零）。 正确答案所选答案1. Sub Zero1() -未给定 2. Dim c As Range -未给定 3. For Each c in Worksheets(Sheet1).Range(A1:D10) -未给定 4. If c.Value .001 Then -未给定 5. c.Value = 0 -未给定 6. End If -未给定 7. Next c -未给定 8. End Sub -未给定 问题 1 得 0 分，满分 20 分 在工作表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 SubPrivate Sub CommandButton2_Click()-未给定 8. Dim i As Integer, j As Integer -未给定 9. For i = 1 To 9For j = i + 1 To 10-未给定 10. If Cells(i, 1) = Cells(j, 1) Then -未给定 11. Cells(j, 1).Font.Color = vbRed -未给定 12. End If -未给定 13. Next jNext i-未给定 14. End Sub -未给定 问题 2 得 0 分，满分 20 分 对当前工作表整个区域，按每一列求和，并把结果添加在每列的最后。 正确答案所选答案1. Sub SumbyCol() -未给定 2. Dim Rng As Range -未给定 3. For Each Rng In ActiveSheet.UsedRange.Columns -未给定 4. Rng.Cells(Rng.Cells.Count + 1) = WorksheetFunction.Sum(Rng) -未给定 5. Next Rng -未给定 6. End Sub -未给定 问题 3 得 0 分，满分 20 分 在工作表中显示九九乘法表。 正确答案所选答案1. Sub Table99() -未给定 2. Range(B1:J1).Value = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) -未给定 3. Range(B1:J1).Copy -未给定 4. Range(A2:A10).PasteSpecial Transpose:= 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 & = & i * j -未给定 9. Next j -未给定 10. Next i -未给定 11. End Sub -未给定 问题 4 得 0 分，满分 20 分 在范围C1:H26的所有单元格中，显示各自的列号与行号。 正确答案所选答案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 & & i -未给定 8. Next jNext i-未给定 9. End With -未给定 10. End Sub -未给定 问题 5 得 0 分，满分 20 分 在工作表1上创建“窗体”按钮并建立与之相关的“宏”，编写代码完成：从键盘输入一个整数n，输出如下图之图形。其中每个“*”要加粗，并在单元格中水平和垂直方向居中。 正确答案所选答案1. Sub 按钮1_单击() -未给定 2. Dim n As Integer, i As Integer, j As Integer -未给定 3. Worksheets(1).ActivateActiveSheet.Cells.Clearn = InputBox(输入一个整数)-未给定 4. For i = 1 To n -未给定 5. For j = 1 To 2 * i - 1 -未给定 6. Cells(i, n - i + j) = *Cells(i, n - i + j).Font.Bold = TrueCells(i, n - i + j).VerticalAlignment = xlCenterCells(i, n - i + j).HorizontalAlignment = xlCenter-未给定 7. Next j -未给定 8. Next i -未给定 9. End Sub -未给定 问题 1 得 0 分，满分 20 分 将单元格区域 A1:D10所有绝对值小于10的数字都设置为红色。 正确答案所选答案1. Sub RngCells() -未给定 2. Dim c As Range -未给定 3. For Each c In Worksheets(Sheet1).Range(A1:D10).Cells -未给定 4. If Abs(c.Value) m Then m = Range(c) -未给定 9. Next i -未给定 10. Range(A11) = m -未给定 11. End Sub -未给定 问题 4 得 0 分，满分 20 分 在范围C1:H26的所有单元格中，显示各自的列号与行号。 正确答案所选答案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 & & i -未给定 8. Next jNext i-未给定 9. End With -未给定 10. End Sub -未给定 问题 5 得 0 分，满分 20 分 用Excel工作表制作一个会议签到单。当每个与会人员报道时，在其姓名右边的单元格单击鼠标，自动填入当前日期和时间。 正确答案所选答案1. Private Sub Worksheet_SelectionChange(ByVal Target As Range) -未给定 2. Dim r As Integer, c As Integer -未给定 3. r = Target.Row获取行号c = Target.Column获取列号-未给定 4. If c = 2 And r 1 Then -未给定 5. Target.Value = Format(Now, yyyy-mm-dd hh:mm:ss) -未给定 6. End If -未给定 7. End Sub -未给定 问题 1 得 0 分，满分 20 分 利用工作表函数求和并用消息框输出。 正确答案所选答案1. Sub Arg2() -未给定 2. Range(A1:C10).Select -未给定 3. MsgBox Prompt:= Sum= & WorksheetFunction.Sum(Selection),Title:= 求和 -未给定 4. End Sub -未给定 问题 2 得 0 分，满分 20 分 在A列的110行填入两位随机正整数，最后在A列的11行求出该列的最大数（不能调用MAX函数）。 正确答案所选答案1. Sub maxint() -未给定 2. Dim i As Integer, c As String, m As Integer -未给定 3. For i = 1 To 10 -未给定 4. c = A & iRange(c) = Int(Rnd * 90) + 10-未给定 5. Next im = Range(A1)-未给定 6. For i = 2 To 10 -未给定 7. c = A & i -未给定 8. If Range(c) m Then m = Range(c) -未给定 9. Next i -未给定 10. Range(A11) = m -未给定 11. End Sub -未给定 问题 3 得 0 分，满分 20 分 模仿Excel的条件格式设置，对工作表Sheet1的所有单元格，凡数值小于60的用红颜色显示。 正确答案所选答案1. Private Sub Cond_Format() -未给定 2. Dim i As Long, j As Long -未给定 3. For i = Sheet1.UsedRange.Row To Sheet1.UsedRange.Row + Sheet1.UsedRange.Rows.Count - 1 -未给定 4. For j = Sheet1.UsedRange.Column To Sheet1.UsedRange.Column + Sheet1.UsedRange.Columns.Count - 1 -未给定 5. If Cells(i,j).Value 60 Then -未给定 6. Cells(i,j).Font.Color = GRB(255, 0, 0) -未给定 7. End If -未给定 8. Next j -未给定 9. Next i -未给定 10. End Sub -未给定 问题 4 得 0 分，满分 20 分 本例在Sheet1上的单元格区域 A1:D10中进行循环。如果这些单元格中的值小于0.001，则将其值替换为0（零）。 正确答案所选答案1. Sub Zero1() -未给定 2. Dim c As Range -未给定 3. For Each c in Worksheets(Sheet1).Range(A1:D10) -未给定 4. If c.Value = 3 Then -未给定 5. i = i + 1 -未给定 6. Sheets(1).Range(E & i).Value = iRng.Value -未给定 7. End If -未给定 8. Next -未给定 9. End Sub -未给定 问题 1 得 0 分，满分 20 分 将单元格区域 A1:D10所有绝对值小于10的数字都设置为红色。 正确答案所选答案1. Sub RngCells() -未给定 2. Dim c As Range -未给定 3. For Each c In Worksheets(Sheet1).Range(A1:D10).Cells -未给定 4. If Abs(c.Value) =10”)- .Countif (iRange, ”&20) -未给定 5. End With -未给定 6. MsgBox resultEnd Sub-未给定 问题 4 得 0 分，满分 20 分 对当前工作表整个区域，按每一列求和，并把结果添加在每列的最后。 正确答案所选答案1. Sub SumbyCol() -未给定 2. Dim Rng As Range -未给定 3. For Each Rng In ActiveSheet.UsedRange.Columns -未给定 4. Rng.Cells(Rng.Cells.Count + 1) = WorksheetFunction.Sum(Rng) -未给定 5. Next Rng -未给定 6. End Sub -未给定 问题 5 得 0 分，满分 20 分 在Excel中创建一个设置单元格字体和字号大小的过程。 正确答案所选答案1. PublicSub myfs() -未给定 2. With Selection.Font -未给定 3. .Name = Arial.FontStyle = Regular.Size = 16-未给定 4. End With -未给定 5. End sub -未给定 问题 1 得 0 分，满分 20 分 本例在Sheet1上的单元格区域 A1:D10中进行循环。如果这些单元格中的值小于0.001，则将其值替换为0（零）。 正确答案所选答案1. Sub Zero1() -未给定 2. Dim c As Range -未给定 3. For Each c in Worksheets(Sheet1).Range(A1:D10) -未给定 4. If c.Value =10”)- .Countif (iRange, ”&20) -未给定 5. End With -未给定 6. MsgBox resultEnd Sub-未给定 问题 5 得 0 分，满分 20 分 对当前工作表整个区域，按每一列求和，并把结果添加在每列的最后。 正确答案所选答案1. Sub SumbyCol() -未给定 2. Dim Rng As Range -未给定 3. For Each Rng In ActiveSheet.UsedRan