vb语言-春vb01上机
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
3页vb语言-春vb01上机答案3页页脚内容(""=(=)===(=,(=0))(&=(:)=(中框示它,数生序。继的为依个位的乘位积)(项数为乘数为)则下积项后根后为前数程'=(,,()((=,)(=^)=00,(数整字同均方本围范是能本改答)()能是本字0^)(,=程为后积则为数)位个依序生示=&),(==""内内答机0言答言言答机00页脚内容vb语言-春vb01上机答案3页页脚内容VB语言-2010春VB01上机答案2010年(春)上机VisualBasic(VB01)答案一、改错【
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
目】本程序的功能是找出指定范围内,本身及其平方数均由不同数字组成的整数。OptionExplicitPrivateSubCommand1_Click()DimnAsLong,kAsLong,stAsString'errnAsIntegerForn=500To800k=n^2Ifvalidate(n)Andvalidate(k)Thenst=n&"^2="&kList1.AddItemstEndIfNextnEndSubPrivateFunctionvalidate(nAsLong)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,其后继项根据当前最后两项的乘积按下列规则生成:(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=0ThenText2=Text2&vbCrLfNextiEndSubPrivateSubList(A()AsInteger)DimIdxAsInteger,TemAsInteger,UbAsIntegerUb=UBound(A)Idx=3DoWhileIdx<=UbTem=A(Idx-1)*A(Idx-2)IfTem<10ThenA(Idx)=TemElseA(Idx)=Tem\10Idx=Idx+1IfIdx>UbThenExitDoA(Idx)=TemMod10EndIfIdx=Idx+1LoopEndSubPrivateSubCommand2_Click()Text1="":Text2=""Text1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub