欢迎来到天天文库
浏览记录
ID:25871978
大小:169.54 KB
页数:54页
时间:2018-11-23
《BB平台(VB日常测试)VBA.docx》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
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列。 正确答案所选答案
2、1.PrivateSubCommandButton1_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~
3、A100单元格区域中的、值大于等于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分 在sh
4、eet1上存放了“文具采购表” (见下图),其中单价需从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-[未给定
5、]9.Nexti-[未给定]10.EndWith-[未给定]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.Ms
6、gBoxanswer-[未给定]6.EndSub-[未给定] 问题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.End
7、Sub-[未给定] 问题2得0分,满分20分 在工作表1上创建“控件工具箱”命令按钮“产生数据”(CommandButton1)和“判断”(CommandButton2)。 单击“产生数据”按钮完成在A1:A10上产生两位随机正整数;单击“判断”按钮完成将其中重复数用红色标注。 正确答案所选答案1.PrivateSubCommandButton1_Click()-[未给定]2.DimiAsInteger-[未给定]3.ActiveSheet.Cells.Clear-[未给定]4.Fori=1To10-[未给定]5.Cells(i,1)=Int(
8、Rnd*90)+10-[未给定]6.Nexti-[未给定]7.EndSubPrivateSubCommandButton2_Click(
此文档下载收益归作者所有