题型:填空题 题类:模拟题 难易度:困难
浙江省杭州市2015年高考模拟命题比赛信息技术(1)
第一步:设两数为a、b,且令a>b;
第二步:a÷b,令r为所得余数,若r=0,算法结束,b 即为最大公约数;若r>0则a←b,b←r,并返回第二步;
第三步: 即为 约分后的最简形式。
编写VB程序,程序运行界面如图1所示,请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母,r为最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
If b = 0 Then c = MsgBox("分母不能为0"): Exit Sub
'如果分母为0,则提示“分母不能为0”并退出该过程
r =
Text3.Text = Str(a / r)
Text4.Text = Str(b / r)
End Sub
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
'gys函数用于求最大公约数
Dim s As Integer
If m < n Then
t = m: m = n: n = t
End If
Do While n <> 0
s = m Mod n
m = n
n = s
Loop
End Function
试题篮