VB,递归法

[9527007.]

1.VB递归法求两个自然数的最大公约数 2.逆序输出字符串

[milaoshu1020]

1.VB递归法求两个自然数的最大公约数

a = inputbox("输入第一个自然数")
b = inputbox("输入第二个自然数")
msgbox zuidagongyueshu(a,b)

Function zuidagongyueshu(ByVal a, ByVal b)
	t = a Mod b
	If t = 0 Then
		zuidagongyueshu = b
	Else
		zuidagongyueshu = zuidagongyueshu(b,t)
	End If
End Function

下载地址:
链接：https://pan.baidu.com/s/1GbRGhQJL_3fL4O_CGq34tg
提取码：cubu

2.逆序输出字符串

s = inputbox("请输入原字符串:")
For i = Len(s) To 1 Step -1
	r = r & Mid(s,i,1)
Next
msgbox r

下载地址:
链接：https://pan.baidu.com/s/1xosG09XzTityXHyfOD65Gw
提取码：s191

[9527007.]

抱歉，下次一定注意啊，还有作业帮不是很准确，谢谢啊

[9527007.]

谢谢你啊，拯救了我们寝室，十分感谢

[脆皮大雪糕]

伸手要作业，也不客气点。 题目一贴就等答案，推荐作业帮。

[threenewbee]

引用 4 楼 qq_44815320 的回复:

谢谢你啊，拯救了我们寝室，十分感谢

再给你一个递归翻转字符串的 Function RevStr(ByVal s As String) As String If Len(s) <= 1 Then RevStr = s Exit Function End If RevStr = Right(s, 1) & RevStr(Left(s, Len(s) - 1)) End Function