原创力文档- 1、本文档共2页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
2010年（秋）上机 VisualBasic（VB04）答案
一、改错
【题目】本程序的功能是找出给定范围内，由不同数字组成的完全平方数。所谓完全平方数是指其平方根为正整数的整数。
OptionExplicit
PrivateSubCmdFind_Click()DimnAsLong,iAsIntegerForn=10000To60000
IfInt(Sqr(n))=Sqr(n)Andvalidate(n)ThenList1.AddItemn==Sqr(n)^2
EndIfNextn
IfList1.ListCount=0ThenList1.AddItem无符合要求的数
EndSub
PrivateFunctionvalidate(ByValnAsLong)AsBooleanerr无ByValDimkAsInteger,num()AsInteger
DimiAsInteger,jAsIntegerDo
k=k+1
ReDimPreservenum(k) err无Preservenum(k)=nMod10
n=n\10
LoopUntiln=0 errUntiln0Fori=1ToUBound(num)-1
Forj=i+1ToUBound(num)
Ifnum(i)=num(j)ThenExitFunctionNextj
Nexti
validate=TrueEndFunction
二、编程题
【题目】编写程序，生成试验数据的茎叶图，并显示不同区间数据的个数。
设试验数据取值在30～99之间（见图），其中在30～39之间有6个数31、39、39、31、39、31，则可表示为3|199291；在40～49之间有2个数43、49,则可表示为4|39；依次类推，由此得到的图形就称为数据的“茎叶图”。
OptionExplicitOptionBase1
PrivateSubCmdRun_Click()
Dimsc(20)AsInteger,iAsIntegerRandomize
Fori=1To20
sc(i)=Int(Rnd*70)+30
Text1=Text1Str(sc(i))
IfiMod10=0ThenText1=Text1vbCrLfNexti
Calljyt(sc)EndSub
PrivateSubjyt(a()AsInteger)
DimiAsInteger,jAsInteger,pAsStringDimstAsString,kAsInteger
Fori=3To9
k=0
st=i|
Forj=1ToUBound(a)p=CStr(a(j))
IfLeft(p,1)=iThenk=k+1
st=stRight(p,1)EndIf
NextjList1.AddItemst
Text2=Text2kvbCrLfNexti
EndSub
PrivateSubCmdClear_Click()Text1=:Text2=List1.Clear
EndSub
PrivateSubCmdExit_Click()End
EndSub
文档评论（0）