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

问题 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上位于A1～A100单元格区域中的、值大于等于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输出。?