算法的程序实现专题.pdfVIP

算法的程序实现

考点一解析算法及程序实现

1.2（018宁波市“十校联考”，16,3分）在VB的算术运算中，最大的实数类

Double有效位数也只有15位。为了实现除法运算保留任意位数,小明根据除法

原理,编写了如下程序,功能如下:在文本框Textl中输入被除数（正整数），在文

本框Texl2中输入除数（正整数），在文本框Texl3中输入保留小数位数,单击按钮

Command1,在标签Label1中显示除法运算的商。程序运行界面如图所示,但加框

处代码有错，请改正。

am度明去♦-也/但—

r

PriateSubCommandl_Click()

Dimx,yAsInteger

DimnAsInteger

DimsAsString

x=Vai(Textl.Text):y=Vai(Text2.Text)

n=Vai(Text3.Text)

s=s+Str(x\y)

〃〃

s=s+