其他典型算法之数值计算-专项训练浙江2022届选考专用教师版.docxVIP

其他典型算法之数值计算

【例1】现用VB程序实现上述功能，程序界面如下图所示，在文本框Textl和Text2中分别输入被加数和加数，单击求和按钮Commandl,在文本框Text3中显示和。

实现上述功能的VB程序如下。但加框处代码有错，请改正。

PrivateSubCommandl_CIick()DimtAsStringzTextl.Texty=Text2.Text

Textl.Texty=Text2.Text

Textl.Texty=Text2.TextIfLen(y)Len(x)Thent=x:x=y:y=t

Textl.Texty=Text2.Text

EndIfFori=1ToLen(y)-Len(x)x=x+〃0〃，①

Nextif=0Fori=Len(x)To1Step-1a=Val(Mid(x,i,1))b=Val(Mid(y,i,1))z=Str((a+b)Mod10)+z②f=(a+b)\10

NextIff=1Thenz=Str(f)+z

Text3.Text=zEndSub

答案：①x=〃0+x②z=Str((a+b+f)Mod10)+z解析:①高精度数相加前，首先在较小数前添加前芋0,使之与较大数的数字位数相等。

②计算第i位的数字的方法是：取出x、y的第i位数字a、b,把它们和来自低位的进位f相加，除以10所得的余数即为i位上的数字。

【例2】.求两个任意位数正整数的差。功能实现的VB自定义函数程序如下。但加框处代码有错，请改正。

Privatefunctionfx(xasString,yasString)asString参数x和y表示被减数和减数

DimtAsString,zAsString,aAsString,bAsString

DimiAsInteger,fasInteger,signasString

z二〃〃

sign二〃

IfLen(y)Len(x)Or(Len(x)=Len(y)Andxy)Thent=x:x=y:y=t:sign=-

EndIfFori=1ToLen(x)-Len(y)y二〃0〃+y

Nextif=0

Fori=Len(x)To1Step-1a=Vai(Mid(x,i,1))①

b=Vai(Mid(y,i,1))

IfabThenf=1Elsef=0z=Str(a-b)+z②

Nextfx=sign+z

Endfunction答案：?a二Vai(Mid(x,i,1))-f②z=Str(a+f*10-b)+z

解析：根据竖式相减的方法，从个位开始逐位相减，得出各位差值。程序中变量f表示是否有向高位借1,z保存差值,sign表示正员符号。if语句功能是把较大数值存入变量x。第一个for语句的功能是在较小数前添加前导0,使之与较大数位数相同。第二个for语句功能,是取出两个数的对应位数字a和b,其中被减数a须先减去借位(0或1),再确定本次减法是否要借位，最后两位数字相减值加入字符串z中。所以①处应填入a=Vai(Mid(x,i,1))-f,②处应填入z=Str(a+f*10~b)+zo【例3].用VB程序实现大数据加法功能，在文本框Textl和Text2中分别揄入位数不超过100的被加数和加数，单击求和按钮Command1,在文本框Text3中显示和。

实现上述功能的VB程序如下，请在划线,处填入合适代妈。

PrivateSubCommand1_CIick()Dima(100)asInteger,b(100)asInteger,c(100)asInteger

Dims1asString,s2asString,s3asStringDimn1asinteger,n2asInteger,n3asInteger,cfasInteger

,第1个数s1按位分解到数组as1=Text1.Text

n1=len(s1)Fori=1ton1

a(i)=vaI(mid(s1,n1~i+1,1))Nexti

,第2个数s2按位分解到数组bs2=Text2.Text

n2=len(s2)Fori=1to2

b(i)=val(mid(s2,n2-i+1,1))Nexti

Ifn1n2