求大神帮写一个vb代码，题目如下，就是下图中的第三题 A、B、C、D、E这5个人合伙夜间捕鱼，凌
发布网友
共4个回答
热心网友
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聊我
