Dim sm(5)
Sub s()
i = 1
Do
p i, 5
i = i + 1
Loop
End Sub
Sub p(i, n)
sm(n) = i * 5 + 1
If n = 1 Then
For j = 1 To 5
Debug.Print sm(j),
Next
End
Else
If sm(n) Mod 4 = 0 Then p sm(n) / 4, n - 1
End If
End Sub
还有春温?百年漂洗，记忆
这题目看不懂啊
我可以帮你 需要si聊我
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024