求2!+4!+6!+8!+10!的值用VB 程序怎么样编写啊?-ZOL问答

3个回答默认排序

默认排序

按时间排序

已采纳

Private Sub Form_click()
s = 0
For a = 2 To 10 Step 2
c = 1
For b = 1 To a
c = c * b
Next b
s = s + c
Next a
Print s

End Sub

取消评论

精品应用推荐

超值推荐

orxbneyikf

Private Sub Command1_Click()
he = 1
For a = 1 To 10
he = he * a
If a = 2 Then he1 = he
If a = 4 Then he2 = he
If a = 6 Then he3 = he
If a = 8 Then he4 = he
Next a
he = he + he1 + he2 + he3 + he4
Print he
End Sub

取消评论

zeq10

Private Sub Command1_Click()
Sum = 0
For i = 2 To 10 Step 2
Sum = Sum + Jiecheng(i)
Next i
Print Sum
End Sub

Private Function Jiecheng(ByVal n As Integer) As Double
Jiecheng = 1
For i = 1 To n
Jiecheng = Jiecheng * i
Next i
End Function

取消评论

3个回答默认排序

默认排序

按时间排序

精品应用推荐

最新回答更多>

产品比一比查看详情 >>

相关问答

热门手机排行

举报

举报成功

私信

删除

数码爱好者必备神器

中关村在线客户端

3个回答 默认排序 默认排序 按时间排序

精品应用推荐

最新回答 更多>

产品比一比查看详情 >>

相关问答

热门手机排行

举报

举报成功

私信

删除

3个回答默认排序

默认排序

按时间排序

最新回答更多>