江苏省高校等考(CCT)二级(VF)模拟试卷1
试卷名称:江苏省高校等考(CCT)二级(VB)模拟试卷1
 
                    
                    
                 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(fmfm1)        +fz2(fmfm2)
 (1)
fm=fm/g ’约分
fz=fz/g
’化带分数
If (2) Thenzs=zs+(fzfm)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
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(fmfm1)        +fz2(fmfm2)
 (1)
fm=fm/g ’约分
fz=fz/g
’化带分数
If (2) Thenzs=zs+(fzfm)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  
                        您可能感兴趣的题目
相关试卷
江苏省高校等考(CCT)二级(VF)模拟试卷1
江苏省高校等考(CCT)二级(C语言)模拟试卷1
江苏省高校等考(CCT)二级(C++)模拟试卷1
江苏省高校等考(CCT)二级(VB)模拟试卷1
江苏省高校等考(CCT)二级(Office 高级应用)模拟试卷1
江苏省高校等考(CCT)二级(FORTRAN90程序设计)模拟试卷1
高校等考(二级)模拟试卷3
高校等考(二级)模拟试卷2
高校等考(二级)模拟试卷1