VB程序编程s=1*¹*2²*3³*…*n的n次方

VB程序编程s=1*¹*2²*3³*…*n的n次方

Private Sub Command1_Click()
Dim i As Integer, j As Integer

Dim n As Integer, s As Double
s = 1

n = 5

For i = 1 To n

s = s * i ^ i

Next

Print s
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息