VB,递归法

9527007. 2019-05-12 09:49:59
1.VB递归法求两个自然数的最大公约数 2.逆序输出字符串
...全文
142 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
threenewbee 2019-05-14
  • 打赏
  • 举报
回复
引用 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
脆皮大雪糕 2019-05-13
  • 打赏
  • 举报
回复
伸手要作业,也不客气点。 题目一贴就等答案,推荐作业帮。
9527007. 2019-05-13
  • 打赏
  • 举报
回复
谢谢你啊,拯救了我们寝室,十分感谢
9527007. 2019-05-13
  • 打赏
  • 举报
回复
抱歉,下次一定注意啊,还有作业帮不是很准确,谢谢啊
milaoshu1020 2019-05-13
  • 打赏
  • 举报
回复
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

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧