扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Private Function gcd(n As Integer, m As Integer) As Integer
成都创新互联专注于湖南企业网站建设,成都响应式网站建设公司,商城开发。湖南网站建设公司,为湖南等地区提供建站服务。全流程按需策划设计，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务
Dim k As Integer, max As Integer, min As Integer '定义一个大数的变量max，一个小数的变量
If n m Then '如果n大，那么
max = n 'n是大数
min = m 'm是小数
Else
max = m
min = n
End If
k = max Mod min 'k为大数除小数的余数
If k = 0 Then
gcd = min
Else
gcd = gcd(min, k) '递归调用，参数应该是小数和余数
End If
End Function
Private Sub form_click()
Dim m As Integer, n As Integer
m = Val(InputBox("输入第1个数"))
n = Val(InputBox("输入第2个数"))
Print gcd(n, m) '这里gcd后面要加参数，你的没写
End Sub
是long类型声明字符
dim a as long 显示声明
a 隐式声明
a=1 代表给长整形变量a赋值1
不是和=为一体而是接与变量名后
======================以上为VB6
你这个是VB.NET的代码 = 是 累加的意思
再Label1.Text 原本内容的基础上 连接上 ("最小公倍数=" m1 * n1 / m) vbCrLf 这内容
最大公约数
do until a=b
if ab then
a=a-b
elseif ba then
b=b-a
end if
loop
msgbox (a)
最小公倍数
c = a
22:
If a Mod b = 0 Or b Mod a = 0 Then
If a b Then
MsgBox(a)
Else
MsgBox(b)
End If
Else
a = a + c
GoTo 22
End If
辗转相乘法是什么玩意？
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网