下面一个VB程序的过程,但是有些看不懂,请大师细细讲解,并且讲述一下For ……= …… To ……怎样理解
PrivateSubC1_Click()Dimn,j,s,tAsIntegers=0Forn=1To6t=1Forj=1Tont=t*jNextjs=s+tNextt?"...
Private Sub C1_Click()
Dim n,j,s,t As Integer
s = 0
For n = 1 To 6
t = 1
For j = 1 To n
t = t * j
Next j
s = s + t
Next t
? "s=" & s
End Sub 展开
Dim n,j,s,t As Integer
s = 0
For n = 1 To 6
t = 1
For j = 1 To n
t = t * j
Next j
s = s + t
Next t
? "s=" & s
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询