UC知道为什么运行不出结果?
来源：百度知道 编辑：UC知道 时间：2024/04/28 07:41:33
Function Gdc(ByVal x As Long, ByVal y As Long) As Long
Rem 求x,y的最大公约数
Dim xy%, R%
xy = x * y
If y <> 0 Then R = x Mod y
Do While R <> 0
x = y
y = R
R = x Mod y
Loop
Gdc = y
End Function
Private Sub Command6_Click()
Cls
Dim x&, y&, i&, j&, flag As Boolean
Print "公约数法求素数"
x = Val(InputBox("输入x", "求1---X的素数"))
j = 0
For i = 2 To x
y = 0: flag = True
Do While y < i And flag = True
y = y + 1: kk = i
If Gdc(kk, y) <> 1 Then
flag = False: Exit Do
End If
Loop
If flag = True Then
Print i;
j = j + 1
If j Mod 5 = 0 Then Print
End If
Next i
End Sub
Rem 求x,y的最大公约数
Dim xy%, R%
xy = x * y
If y <> 0 Then R = x Mod y
Do While R <> 0
x = y
y = R
R = x Mod y
Loop
Gdc = y
End Function
Private Sub Command6_Click()
Cls
Dim x&, y&, i&, j&, flag As Boolean
Print "公约数法求素数"
x = Val(InputBox("输入x", "求1---X的素数"))
j = 0
For i = 2 To x
y = 0: flag = True
Do While y < i And flag = True
y = y + 1: kk = i
If Gdc(kk, y) <> 1 Then
flag = False: Exit Do
End If
Loop
If flag = True Then
Print i;
j = j + 1
If j Mod 5 = 0 Then Print
End If
Next i
End Sub
用这个吧，呵呵，懒得看你那代码了，前段时间刚回答一个求最大公约数与最小倍数的vb代码，你看看吧
Private Sub Form_Click()
m1 = InputBox("输入m")
n1 = InputBox("输入n")
If m1 > n1 Then '为了求最小公倍数，增加m,n变量
m = m1: n = n1
Else
m = n1: n = m1
End If 'm>n
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print m1; ","; n1; "的最大约数为"; n
Print "最小公倍数=", m1 * n1 / n
End Sub