编写函数求出1到10的和 并在主函数输出
答案:1 悬赏:80 手机版
解决时间 2021-11-26 08:13
- 提问者网友：呐年旧曙光
- 2021-11-25 07:18
编写函数求出1到10的和 并在主函数输出
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-11-25 08:58
参考代码：
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Sum = Sum + jc(i)
Next
MsgBox Sum
End Sub
Function jc(a As Integer)
jc = 1
For i = 1 To a
jc = jc * i
Next
End Function
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Sum = Sum + jc(i)
Next
MsgBox Sum
End Sub
Function jc(a As Integer)
jc = 1
For i = 1 To a
jc = jc * i
Next
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯