VB语言-2010春VB02上机答案.doc

VB语言-2010春VB02上机答案.doc

ID:48691804

大小:53.30 KB

页数:2页

时间:2020-02-27

VB语言-2010春VB02上机答案.doc_第1页
VB语言-2010春VB02上机答案.doc_第2页
资源描述:

《VB语言-2010春VB02上机答案.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、2010年(春)上机VisualBasic(VB02)答案一、改错【题目】本程序的功能是:利用随机函数生成n个可被3整除,且至少包含一个8的三位整数。OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,a()AsInteger,iAsIntegerDimstAsStringn=InputBox("数据个数n:","查找",15)ReDima(n)Callfind(a)Fori=1TonIfiMod3<>0Then'errnMod3st=st&Str(a(i))Elsest=st&Str(a(i))&v

2、bCrLfEndIfNextiText1=stEndSubPrivateSubfind(a()AsInteger)DimubAsInteger,kAsInteger,pAsIntegerDimsAsStringRandomizeub=UBound(a)Dop=Int(Rnd*899)+100s=CStr(p)IfInStr(s,"8")<>0AndpMod3=0Then'errOrk=k+1a(k)=pEndIfLoopUntilk=ub'errk>ubEndSub二、编程题【题目】编写程序,求指定范围内的非素数整数的所有真因子(除1和自身以外的因子)。O

3、ptionExplicitPrivateSubCommand1_Click()DimxAsInteger,yAsInteger,a()AsIntegerDimnAsInteger,stAsString,jAsInteger,kAsIntegerx=Text1:y=Text2Forn=xToyk=0Callfa(n,a,k)st=n&":"Ifk<>0ThenForj=1ToUBound(a)st=st&a(j)&","NextjList1.AddItemLeft(st,Len(st)-1)ElseList1.AddItemstEndIfNextnEndSu

4、bPrivateSubfa(nAsInteger,a()AsInteger,kAsInteger)DimiAsIntegerFori=2Ton/2IfnModi=0Thenk=k+1ReDimPreservea(k)a(k)=iEndIfNextiEndSubPrivateSubCommand2_Click()Text1="":Text2=""List1.ClearText1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。