2. 计算机
  3. 完善程序。 【要求】 1)打开“T盘”中“P1.vbp”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件｡ 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序数构成的随机数组｡所谓下面程序的功能是实现两个分数相加｡分数

完善程序。 【要求】 1)打开“T盘”中“P1.vbp”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件｡ 【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序数构成的随机数组｡所谓下面程序的功能是实现两个分数相加｡分数

admin2019-04-04  32
问题 完善程序。
【要求】
1)打开“T盘”中“P1.vbp”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件｡
【题目】本程序的功能是生成由n(n通过InputBox函数输入)个3位升序数构成的随机数组｡所谓下面程序的功能是实现两个分数相加｡分数相加的一般步骤是先通分，分子相加，再约分｡如果结果的分子大于分母，则将其化为带分数｡

OptionExplicit
PrivateSubCommand1_Click() ’计算
Dimfz1AsInteger，fz2AsInteger，fm1AsInteger，fm2AsIntegerDimzsAsInteger，js1AsString，js2AsString
DimgAsInteger，fzAsInteger，fmAsInteger
js1=Text1.Textjs2=Text2.Text
fz1=Left(js1，InStr(js1，"/")        -1)
fm1=Right(js1，Len(js1)         -InStr(js1，"/"))
fz2=Left(js2，InStr(js2，"/")        -1)
fm2=Right(js2，Len(js2)         -InStr(js2，"/"))
fm=lcd(fm1，fm2)
fz=fz1(fm\fm1)        +fz2(fm\fm2)
(1)
fm=fm/g ’约分
fz=fz/g
’化带分数
If (2) Thenzs=zs+(fz\fm)fz=fzModfmText3.Text=zs
EndIf
Text4.Text=fzText5.Text=fm
EndSub
PrivateFunctionlcd(aAsInteger，bAsInteger)AsIntegerDimnAsInteger
n=a
DoWhilenModb<>0
(3)
Loop
lcd=nEndFunction
PrivateFunctiongcd(ByValaAsInteger，ByValbAsInteger)AsIntegerDimrAsInteger
Do
r=aModba=b
b=r
LoopUntilr=0
(4)
EndFunction
选项
答案(1)g=gcd(fz，fm)或g=gcd(fm，fz) (2)fz>fm (3)n=n+a (4)gcd=a
解析
转载请注明原文地址:https://kaotiyun.com/show/BIhZ777K
0

全国高校计算机二级

相关试题推荐
随机试题
最新回复(0)