急求用vb求1！+3！+5！+.......+(2n-1)! 的代码
来自： 更新日期：早些时候
VB用·For next语句求1^2+3^2+5^2+(2N-1)^2=的代码~
Dim a, sum, n As Integer
Private Sub Form_Click()
a = 1
sum = 1
n = InputBox("输入N")
For i = 3 To 2 * n - 1 Step 2
a = a * (i - 1) * i
sum = sum + a
Next i
Print sum
End Sub
Dim a, sum
Dim n%
a = 1
sum = 1
n = InputBox("输入N")
For i = 3 To 2 * n - 1 Step 2
a = a * (i - 1) * i
sum = sum + a
Next i
Print sum
急求用vb求1！+3！+5！+.......+(2n-1)! 的代码视频
相关评论：15862722817：急求用vb求1!+3!+5!+...+(2n-1)! 的代码
连詹须a = 1 sum = 1 n = InputBox("输入N")For i = 3 To 2 * n - 1 Step 2 a = a * (i - 1) * i sum = sum + a Next i Print sum End Sub
15862722817：用VB求数列1,2,3,5,16,231...的前20项
连詹须Dim n As Integer Dim m As Integer Dim i As Integer Dim j As Integer Dim a(30) As Integer '确定数组的范围（）里的数即为最大可储存数+1 Private Sub Command1_Click()m = 3 '定一变量，指定输入的排序数 如这为20 If (n < m) Then If (Text1.Text = "") Then '判定输入...
15862722817：vb编程 用递归函数求数列1,1,2,3,5,8,13,21...的第N项
连詹须include <stdio.h> #include <math.h> main(void) { int n,i; printf("请输入n的值\\n"); scanf("%d",&n); int sum1=1,sum2=2,sum; for(i=3;i<=n;i++) { sum=sum1+sum2; sum1=sum2; sum2=sum; } if(n<3) { if(n==1) sum=sum1; else sum=sum2; } printf(...
15862722817：用vb语言编写程序实现1!+3!+5!+...+n! 求过程
连詹须Private Sub Command1_Click()Clsb = 0n = Val(Text1.Text)For i = 1 To n Step 2a = 1For j = 1 To i Step 1a = a * jNext jb = b + aNext iPrint bEnd Sub望采纳。。。
15862722817：用VB怎样求1~10的阶乘
连詹须在VB中求阶乘的部分代码：Private Function fact(m As Integer) As Long Dim i As Integer fact = 1 For i = 1 To m fact = fact * i Next i End Function Private Sub Command1_Click()Dim n As Integer, sum As Long Dim i As Integer n = Val(Text1.Text)For i = 1 To ...
15862722817：vb程序编写求1!+3!+5!+7!+……n!
连詹须Private Sub Command1_Click()Dim n, k As Integer k = 1 n = InputBox("请输入n的值")For i = 1 To n k = k * i Next Print k End Sub
15862722817：vb求阶乘 求1!+3!+5!+···99!
连詹须计算1!+3!+...99! 即100以内所有奇数的阶乘 结果为 9.33358357530259E+155 算法代码:Private Sub Command1_Click()For i = 1 To 99 Step 2 p = 1 For j = 1 To i p = p * j Next s = s + p Next MsgBox s End Sub ...
15862722817：用vb 程序求p =1!+3!+5!+7!+9!的值
连詹须===代码=== Private Sub Command1_Click()For i = 1 To 9 Step 2 sum = sum + G(i)Next MsgBox sum End Sub Public Function G(ByVal v) As Long If v > 1 Then G = v * G(v - 1) Else G = 1 End Function
15862722817：在VB6.0中,求1!+3!+5!+7!+9!+...+n!阶乘的和,n利用InpuBos输入。_百度...
连詹须已改:Private Sub Command1_Click()Dim n, i, k, s, sum sum = 0 n = CInt(InputBox("Please input a value", ""))For i = 1 To n Step 2 s = 1 For k = 1 To i Step 1 s = s * k Next k MsgBox s sum = sum + s Next i MsgBox sum End Sub ...
15862722817：利用vb中do...loop循环的五种形式求1!+2!+3!+4!+5!
连詹须Do While i <= 5 sum = sum + k i = i + 1 k = k * i Loop Print sum i = 0: sum = 0 k = 1: i = 1 Do Until i > 5 sum = sum + k i = i + 1 k = k * i Loop Print sum i = 0: sum = 0 k = 1: i = 1 Do sum = sum + k i = i + 1 k...
Private Sub Form_Activate() Dim i, sum, N N = 10 For i = 1 To N sum = sum + (2 * i - 1) ^ 2 Next Print sumEnd Sub
Private Sub Form_click()
Dim a As Integer
Dim i As Integer
Dim n As Integer
n = InputBox("n=")
For i = 1 To n
a = a + 2 * i - 1 //这里应该是i而不是n，否则你求出来的答案就是2n-1 + 2n-1 + ... + 2n-1了
Next i
Print "n="; n, "a="; a
End Sub
Dim a, sum, n As Integer
Private Sub Form_Click()
a = 1
sum = 1
n = InputBox("输入N")
For i = 3 To 2 * n - 1 Step 2
a = a * (i - 1) * i
sum = sum + a
Next i
Print sum
End Sub
Dim a, sum
Dim n%
a = 1
sum = 1
n = InputBox("输入N")
For i = 3 To 2 * n - 1 Step 2
a = a * (i - 1) * i
sum = sum + a
Next i
Print sum
急求用vb求1！+3！+5！+.......+(2n-1)! 的代码视频
相关评论：
连詹须a = 1 sum = 1 n = InputBox("输入N")For i = 3 To 2 * n - 1 Step 2 a = a * (i - 1) * i sum = sum + a Next i Print sum End Sub
连詹须Dim n As Integer Dim m As Integer Dim i As Integer Dim j As Integer Dim a(30) As Integer '确定数组的范围（）里的数即为最大可储存数+1 Private Sub Command1_Click()m = 3 '定一变量，指定输入的排序数 如这为20 If (n < m) Then If (Text1.Text = "") Then '判定输入...
连詹须include <stdio.h> #include <math.h> main(void) { int n,i; printf("请输入n的值\\n"); scanf("%d",&n); int sum1=1,sum2=2,sum; for(i=3;i<=n;i++) { sum=sum1+sum2; sum1=sum2; sum2=sum; } if(n<3) { if(n==1) sum=sum1; else sum=sum2; } printf(...
连詹须Private Sub Command1_Click()Clsb = 0n = Val(Text1.Text)For i = 1 To n Step 2a = 1For j = 1 To i Step 1a = a * jNext jb = b + aNext iPrint bEnd Sub望采纳。。。
连詹须在VB中求阶乘的部分代码：Private Function fact(m As Integer) As Long Dim i As Integer fact = 1 For i = 1 To m fact = fact * i Next i End Function Private Sub Command1_Click()Dim n As Integer, sum As Long Dim i As Integer n = Val(Text1.Text)For i = 1 To ...
连詹须Private Sub Command1_Click()Dim n, k As Integer k = 1 n = InputBox("请输入n的值")For i = 1 To n k = k * i Next Print k End Sub
连詹须计算1!+3!+...99! 即100以内所有奇数的阶乘 结果为 9.33358357530259E+155 算法代码:Private Sub Command1_Click()For i = 1 To 99 Step 2 p = 1 For j = 1 To i p = p * j Next s = s + p Next MsgBox s End Sub ...
连詹须===代码=== Private Sub Command1_Click()For i = 1 To 9 Step 2 sum = sum + G(i)Next MsgBox sum End Sub Public Function G(ByVal v) As Long If v > 1 Then G = v * G(v - 1) Else G = 1 End Function
连詹须已改:Private Sub Command1_Click()Dim n, i, k, s, sum sum = 0 n = CInt(InputBox("Please input a value", ""))For i = 1 To n Step 2 s = 1 For k = 1 To i Step 1 s = s * k Next k MsgBox s sum = sum + s Next i MsgBox sum End Sub ...
连詹须Do While i <= 5 sum = sum + k i = i + 1 k = k * i Loop Print sum i = 0: sum = 0 k = 1: i = 1 Do Until i > 5 sum = sum + k i = i + 1 k = k * i Loop Print sum i = 0: sum = 0 k = 1: i = 1 Do sum = sum + k i = i + 1 k...
