vb点虐 最大公约数 求最大公约数伪代码
vb递归求最大公约数
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
vb中语句的&=和=的有什么区别,&=表示什么意思? 求高人指点!
是long类型声明字符
dim a as long 显示声明
a 隐式声明
a=1 代表给长整形变量a赋值1
不是和=为一体而是接与变量名后
======================以上为VB6
你这个是VB.NET的代码 = 是 累加的意思
再Label1.Text 原本内容的基础上 连接上 ("最小公倍数=" m1 * n1 / m) vbCrLf 这内容
vb点虐 求两个自然数的最大公约数和最小公倍数 辗转相乘法。
最大公约数
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
辗转相乘法是什么玩意?
网站栏目:vb点虐 最大公约数 求最大公约数伪代码
新闻来源:http://pwwzsj.com/article/ddesicc.html