1.VB遞回法求兩個自然數的最大公約數
2.逆序輸出字串
uj5u.com熱心網友回復：
伸手要作業，也不客氣點。題目一貼就等答案，推薦作業幫。
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
抱歉，下次一定注意啊，還有作業幫不是很準確，謝謝啊uj5u.com熱心網友回復：
謝謝你啊，拯救了我們寢室，十分感謝uj5u.com熱心網友回復：
再給你一個遞回翻轉字串的
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33359.html
標籤：VB基礎類
上一篇：求大神給一個VBA的簡易庫存系統