3个回答
展开全部
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim a As Long
For i = 1 To 100
a = a + ss(i)
Next i
Print a
End Sub
Function ss(n As Integer)
Dim i As Integer
For i = 1 To n
ss = ss + n
Next i
End Function
vc要么?
Private Sub Command1_Click()
Dim i As Integer
Dim a As Long
For i = 1 To 100
a = a + ss(i)
Next i
Print a
End Sub
Function ss(n As Integer)
Dim i As Integer
For i = 1 To n
ss = ss + n
Next i
End Function
vc要么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询