VB选考高精计算专题练习.doc

《VB选考高精计算专题练习.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB选考高精计算专题练习学号姓名班级第1题VB程序中，长整型变量存储的数值位数最多10位，而且最高位不大于2，要处理位数更多的整数需要通过设计高精度算法解决。小利实现高精度加法运算，基本思想是用字符串类型变量存储数据，然后按顺序处理到中，再模拟加法计算过程。在文本框text1和text2中输入两个数，单击“加法”,在label1上显示计算结果。程序运行后如图所示，请在划线处填写合适的代码。Dima(0To100)AsInteger,b(0To100)AsInteger,ans(1To200)AsIntegerDimlaAsInteger,lbAsInteger,lengthAsInteger

2、,lmaxAsIntegerDimsAsStringPrivateSubCommand1_Click()Dima1AsString,b1AsStringDimiAsInteger,jAsInteger,tAsIntegera1=Text1.Text:b1=Text2.Textla=Len(a1):lb=Len(b1)Fori=1ToLen(a1)a(i)=Mid(a1,Len(a1)-i+1,1)NextiFori=1ToLen(b1)b(i)=Mid(b1,Len(b1)-i+1,1)Nexti4/4Ifla>lbThenlmax=laElse①Fori=1Tolmaxans(i)=ans

3、(i)可删除+a(i)+b(i)NextiFori=1Tolmaxans(i+1)=②ans(i)=③NextiIfans(i)=1Thens="1"+sFori=lmaxTo1Step-1s=s+Str(ans(i))NextiLabel1.Caption=sEndSub第2题高精度减法运算：（1）请在划线处填入合适的代码。PrivateSubCommand1_Click()Dims1AsString,s2AsString,ansAsString,fhAsStringDimtAsInteger,fAsBoolean,tmpAsString,jwAsIntegers1=Text1.Text:

4、s2=Text2.Text:fh=""IfLen(s1)>Len(s2)遗漏长度相等的情况处理如长度相等比较值大小后交换ThenFori=1ToLen(s1)-Len(s2)s2="0"+s2NextiElse4/4Fori=1ToLen(s2)-Len(s1)s1="0"+s1Nextitmp=s1:s1=s2:s2=tmp①ElseIfLen(s1)

5、"-"EndIft=0:jw=0:ans=""Fori=Len(s1)To1Step-1t=Val(Mid(s1,i,1))-Val(Mid(s2,i,1))+②jw=1-t10ans=CStr(tMod10)&ansNextii=1DoWhileMid(ans,i,1)="0"③LoopLabel1.Caption=fh&Mid(ans,i)EndSub第3题高精度除法运算。请在划线处填入合适的代码。PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,nAsInteger,sAsStringDimkAsDoublex=Val(Text1.

6、Text)y=Val(Text2.Text)4/4n=Val(Text3.Text)s=s+Str(xy)s=s+"."k=xModyi=1DoWhilei<=nk=k*10①k=kModyi=i+1LoopLabel3.Caption="商为："+sEndSubPrivateSubCommand2_Click()Dimxhj(1To100)AsIntegerDimaAsDouble,bAsDoubleDimnAsInteger,iAsIntegerDimlsAsString,sAsStringa=Val(Text1.Text)b=Val(Text2.Text)m=Val(Text3.Te

7、xt)ls=Str(ab)+"."DoWhilen<=m②xhj(n)=aModba=xhj(n)*10ls=ls+CStr(ab)Fori=1Ton-1If③ThenText4.Text="第"&CStr(i)&"位小数"&CStr(ab)&"开始重复循环"n=m+1EndIfNextiLoopLabel3.Caption=lsEndSub4/4