bb平台(vb日常测试)vba

《bb平台(vb日常测试)vba》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、问题1得0分，满分20分 将Sheet1中的一行复制到Sheet2上。 正确答案所选答案1.SubRowCopy()-[未给定]2.Worksheets("Sheet1").Rows(1).Copy-[未给定]3.Worksheets("Sheet2").Select-[未给定]4.Worksheets("Sheet2").Rows(1).Select-[未给定]5.Worksheets("Sheet2").Paste-[未给定]6.EndSub-[未给定]  问题2得0分，满分20分 将A1到C6中大于等于3的数依次放入E列。 正确答案所选答案1.Pri

2、vateSubCommandButton1_Click()-[未给定]2.DimiAsLong,iRngAsRange-[未给定]3.ForEachiRngInSheets(1).Range("A1:C6")-[未给定]4.IfiRng.Value>=3Then-[未给定]5.i=i+1-[未给定]6.Sheets(1).Range("E"&i).Value=iRng.Value-[未给定]7.EndIf-[未给定]8.Next-[未给定]9.EndSub-[未给定]  问题3得0分，满分20分 用工作表函数计算Sheet1上位于A1～A100单元格区域中

3、的、值大于等于10且小于等于20的单元格数目。 正确答案所选答案1.Suba1020()-[未给定]2.SetiRang=Worksheets("Sheet1").Range("A1:A100")-[未给定]3.WithApplication.WorksheetFunction-[未给定]4.result=.Countif(iRange,">=10”)-.Countif(iRange,">”&20)-[未给定]5.EndWith-[未给定]6.MsgBoxresultEndSub-[未给定]  问题4得0分，满分20分 在sheet1上存放了“文具采购表”

4、 （见下图），其中单价需从Sheet2中的“单价表”查询得到（见下图），并以此计算出合计金额。要求自编一个函数实现单价的查询。 正确答案所选答案1.PublicFunctionprice(xAsString)AsInteger-[未给定]2.DimiAsInteger-[未给定]3.WithWorksheets(2)-[未给定]4.Fori=2To6-[未给定]5.Ifx=.Cells(i,1)Then-[未给定]6.price=.Cells(i,2)-[未给定]7.ExitFor-[未给定]8.EndIf-[未给定]9.Nexti-[未给定]10.End

5、With-[未给定]11.EndFunction-[未给定]  问题5得0分，满分20分 使用Min工作表函数求出单元格区域“A1:C10”中的最小值并用MsgBox输出。 正确答案所选答案1.Subamin()-[未给定]2.DimanswerAsSingle,myRAsRange-[未给定]3.SetmyR=Worksheets("Sheet1").Range("A1:C10")-[未给定]4.answer=Application.WorksheetFunction.Min(myR)-[未给定]5.MsgBoxanswer-[未给定]6.EndSub-

6、[未给定] 问题1得0分，满分20分 使用Min工作表函数求出单元格区域“A1:C10”中的最小值并用MsgBox输出。 正确答案所选答案1.Subamin()-[未给定]2.DimanswerAsSingle,myRAsRange-[未给定]3.SetmyR=Worksheets("Sheet1").Range("A1:C10")-[未给定]4.answer=Application.WorksheetFunction.Min(myR)-[未给定]5.MsgBoxanswer-[未给定]6.EndSub-[未给定]  问题2得0分，满分20分 在工作表1上

7、创建“控件工具箱”命令按钮“产生数据”（CommandButton1）和“判断”（CommandButton2）。 单击“产生数据”按钮完成在A1：A10上产生两位随机正整数；单击“判断”按钮完成将其中重复数用红色标注。 正确答案所选答案1.PrivateSubCommandButton1_Click()-[未给定]2.DimiAsInteger-[未给定]3.ActiveSheet.Cells.Clear-[未给定]4.Fori=1To10-[未给定]5.Cells(i,1)=Int(Rnd*90)+10-[未给定]6.Nexti-[未给定]7.EndS

8、ubPrivateSubCommandButton2_Click(