vb计算1!+3!+*****+(2n+1)!的代码Private Sub Command1_Click()Dim n As Integer, i As Integer, j As Integern = Val(InputBox("请输入N值"))m = 1: Sum = 0For i = 1 To 2 * n + 1 Step (2)For j = 1 To im = m * jNext jSum = Sum + mNext iPrint SumEn
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 05:53:05
![vb计算1!+3!+*****+(2n+1)!的代码Private Sub Command1_Click()Dim n As Integer, i As Integer, j As Integern = Val(InputBox(](/uploads/image/z/6843772-28-2.jpg?t=vb%E8%AE%A1%E7%AE%971%21%2B3%21%2B%2A%2A%2A%2A%2A%2B%EF%BC%882n%2B1%EF%BC%89%21%E7%9A%84%E4%BB%A3%E7%A0%81Private+Sub+Command1_Click%28%29Dim+n+As+Integer%2C+i+As+Integer%2C+j+As+Integern+%3D+Val%28InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5N%E5%80%BC%22%29%29m+%3D+1%3A+Sum+%3D+0For+i+%3D+1+To+2+%2A+n+%2B+1+Step+%282%29For+j+%3D+1+To+im+%3D+m+%2A+jNext+jSum+%3D+Sum+%2B+mNext+iPrint+SumEn)
vb计算1!+3!+*****+(2n+1)!的代码Private Sub Command1_Click()Dim n As Integer, i As Integer, j As Integern = Val(InputBox("请输入N值"))m = 1: Sum = 0For i = 1 To 2 * n + 1 Step (2)For j = 1 To im = m * jNext jSum = Sum + mNext iPrint SumEn
vb计算1!+3!+*****+(2n+1)!的代码
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer
n = Val(InputBox("请输入N值"))
m = 1: Sum = 0
For i = 1 To 2 * n + 1 Step (2)
For j = 1 To i
m = m * j
Next j
Sum = Sum + m
Next i
Print Sum
End Sub
这是我编的,但算出来不对,求高手帮忙指错
vb计算1!+3!+*****+(2n+1)!的代码Private Sub Command1_Click()Dim n As Integer, i As Integer, j As Integern = Val(InputBox("请输入N值"))m = 1: Sum = 0For i = 1 To 2 * n + 1 Step (2)For j = 1 To im = m * jNext jSum = Sum + mNext iPrint SumEn
Private Sub Command1_Click()
Dim n As Integer,i As Integer,j As Integer,Sum&,m&
n = Val(InputBox("请输入N值"))
Sum = 0
For i = 1 To 2 * n + 1 Step 2
m = 1 '这儿要加上此句
For j = 1 To i
m = m * j
Next j
Sum = Sum + m
Next i
Print Sum
End Sub