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

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

1、2010年（春）上机VisualBasic（VB01）答案一、改错【题目】本程序的功能是找出指定范围内，本身及其平方数均由不同数字组成的整数。OptionExplicitPrivateSubCommand1_Click()DimnAsLong,kAsLong,stAsString'errnAsIntegerForn=500To800k=n^2Ifvalidate(n)Andvalidate(k)Thenst=n&"^2="&kList1.AddItemstEndIfNextnEndSubPrivateFunctionvalidate(n

2、AsLong)AsBooleanDimpAsString,iAsInteger,a()AsInteger,jAsIntegerp=CStr(n)'errStr(n)ReDima(Len(p))Fori=1ToLen(p)a(i)=Mid(p,i,1)NextiFori=1ToUBound(a)-1Forj=i+1ToUBound(a)Ifa(i)=a(j)ThenExitFunction'errExitForNextNextivalidate=TrueEndFunction二、编程题【题目】某数列的前二项为2和7，其后继项根据当前最后两

3、项的乘积按下列规则生成：(1)若乘积为一位数，则该乘积即为数列的后继项；(2)若乘积为两位数，则该乘积的十位数和个位数依次作为数列的两个后继项。编写程序，生成该数列的前n项，并把它们显示在文本框中。OptionExplicitOptionBase1PrivateSubCommand1_Click()DimNAsInteger,A()AsInteger,iAsIntegerN=Text1ReDimA(N)A(1)=2:A(2)=7CallList(A)Fori=1ToNText2=Text2&Str(A(i))IfiMod10=0Then

4、Text2=Text2&vbCrLfNextiEndSubPrivateSubList(A()AsInteger)DimIdxAsInteger,TemAsInteger,UbAsIntegerUb=UBound(A)Idx=3DoWhileIdx<=UbTem=A(Idx-1)*A(Idx-2)IfTem<10ThenA(Idx)=TemElseA(Idx)=Tem10Idx=Idx+1IfIdx>UbThenExitDoA(Idx)=TemMod10EndIfIdx=Idx+1LoopEndSubPrivateSubCommand

5、2_Click()Text1="":Text2=""Text1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub