标题五个字 - vb吧

level 1

豆沙白起楼主

请教大佬们这个用for循环怎么算啊

2024年10月02日 16点10分 1

level 8

tbzp666

用递归最好
Private Function jc(a As Integer) As Double
If a = 0 Or a = 1 Then
jc = 1
Else
jc = a * jc(a - 1)
End If
End Function

2024年10月03日 01点10分 2

tbzp666

print（jc(2))^2+（jc(3))^3+（jc(4))^4+（jc(5))^5+（jc(6))^6

2024年10月03日 01点10分

豆沙白起

感谢大佬

2024年10月03日 02点10分

初音✨七奈

用递归从来都不是“最好”的选择，只能说是更简单的选择；顺便这个题目的结果确实需要用Double表示，但是单纯论函数值，Integer都够了 [滑稽]

2024年10月03日 03点10分

level 15

初音✨七奈

Dim i As Integer, j As Integer, k As Double, s As Double
k = 1
For i = 2 To 6
For j = 2 To i
k = k * i * j
Next j
s = s + k
Next i
Print s

2024年10月03日 03点10分 3

吧务

level 12

sunruisunrui

代码 base64:
RnVuY3Rpb24gRmFjdG9yaWFsKG4gQXMgSW50ZWdlcikgQXMgTG9uZwogICAgRGltIHJlc3VsdCBBcyBMb25nCiAgICByZXN1bHQgPSAxCiAgICBGb3IgaSBBcyBJbnRlZ2VyID0gMiBUbyBuCiAgICAgICAgcmVzdWx0ID0gcmVzdWx0ICogaQogICAgTmV4dCBpCiAgICBGYWN0b3JpYWwgPSByZXN1bHQKRW5kIEZ1bmN0aW9u

2024年10月09日 06点10分 7

吧务

level 12

sunruisunrui

2024年10月09日 06点10分 8

level 3

spritelzlkkkkk

2024年10月16日 04点10分 9