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

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

1、2010年（春）上机VisualBasic（VB03）答案一、改错【题目】本程序的功能是：找出指定数值范围内所有其平方数为升序数的整数。所谓升序数是指从最高位到最低位的数字依次递增的整数。例如1369就是一个升序平方数。OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,kAsIntegerForn=20To180k=n^2Ifsx(k)ThenList1.AddItemn&"^2="&kEndIfNextnIfList1.ListCount=0ThenList

2、1.AddItem"无升序平方数"'errList1.ListCount<>0EndSubPrivateFunctionsx(ByValnAsInteger)AsBooleanDimnum()AsInteger,kAsInteger,pAsIntegerDimiAsIntegerDop=nMod10k=k+1ReDimPreservenum(k)num(k)=pn=n10LoopUntiln=0'errUntiln<0Fori=2ToUBound(num)Ifnum(i)>=num(i-1)ThenExitFunc

3、tion'errnum(i)>num(i-1)Nextisx=TrueEndFunction二、编程题【题目】编写程序，将字符串中重复的字符删除，且不改变原有字符的排列顺序，并给出每个字符在原字符串中出现的次数。OptionExplicitPrivateSubCommand1_Click()Dimst1AsString,kAsIntegerDimpAsString*1,iAsInteger,jAsIntegerst1=Text1i=1Dop=Mid(st1,i,1)k=1j=i+1DoIfMid(st1,j,1)=p

4、Thenk=k+1Calldel(st1,j)j=j-1EndIfj=j+1LoopUntilj>Len(st1)List1.AddItemp&"--"&ki=i+1LoopWhilei<=Len(st1)Text2=st1EndSubPrivateSubdel(sAsString,kAsInteger)DimiAsIntegerFori=kToLen(s)-1Mid(s,i,1)=Mid(s,i+1,1)Nextis=Left(s,Len(s)-1)EndSubPrivateSubCommand2_Click()T

5、ext1="":Text2=""List1.ClearText1.SetFocusEndSub