vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 10:53:10
vb编程题,
1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)
1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……
2、* 编写程序,求500以内最大的10个能被13或17整除的自然数之和.
3、* 编写程序,计算并输出下面数列前n项的和.(设n=51)
1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),…… (其中,^ 表示幂运算)
4、* 有200元钱需要兑换成零钱,零钱有10元,5元,1元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?
1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)
1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……
2、* 编写程序,求500以内最大的10个能被13或17整除的自然数之和.
3、* 编写程序,计算并输出下面数列前n项的和.(设n=51)
1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),…… (其中,^ 表示幂运算)
4、* 有200元钱需要兑换成零钱,零钱有10元,5元,1元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?
/>Private Sub Form_Click()
'1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)
' 1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……
Dim sum&, i%, temp%, n%
n = Val(InputBox("n=", , 20))
For i = 1 To n
temp = i * (i + 1) * (i + 2)
sum = sum + temp
Next
Print sum
'2、* 编写程序,求500以内最大的10个能被13或17整除的自然数之和.
sum = 0
n = 500
i = 0
Do
If n Mod 13 = 0 Or n Mod 17 = 0 Then
sum = sum + n
i = i + 1
End If
n = n - 1
Loop Until i > 10
Print sum
'3、* 编写程序,计算并输出下面数列前n项的和.(设n=51)
' 1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),…… (其中,^ 表示幂运算)
sum = 0
n = Val(InputBox("n=", , 51))
For i = 1 To n
temp = (-1) ^ (i - 1) * i * (i + 1)
sum = sum + temp
Next
Print sum
'4、* 有200元钱需要兑换成零钱,零钱有10元,5元,1元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?
Dim j%
n = 0
For i = 1 To 20 Step 2
For j = 1 To (200 - 10 * i) / 5 Step 2
If (200 - i * 10 - j * 5) Mod 2 <> 0 Then n = n + 1 ':Print i; j; 200 - i * 10 - j * 5
Next j, i
Print n
End Su
'1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)
' 1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……
Dim sum&, i%, temp%, n%
n = Val(InputBox("n=", , 20))
For i = 1 To n
temp = i * (i + 1) * (i + 2)
sum = sum + temp
Next
Print sum
'2、* 编写程序,求500以内最大的10个能被13或17整除的自然数之和.
sum = 0
n = 500
i = 0
Do
If n Mod 13 = 0 Or n Mod 17 = 0 Then
sum = sum + n
i = i + 1
End If
n = n - 1
Loop Until i > 10
Print sum
'3、* 编写程序,计算并输出下面数列前n项的和.(设n=51)
' 1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),…… (其中,^ 表示幂运算)
sum = 0
n = Val(InputBox("n=", , 51))
For i = 1 To n
temp = (-1) ^ (i - 1) * i * (i + 1)
sum = sum + temp
Next
Print sum
'4、* 有200元钱需要兑换成零钱,零钱有10元,5元,1元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?
Dim j%
n = 0
For i = 1 To 20 Step 2
For j = 1 To (200 - 10 * i) / 5 Step 2
If (200 - i * 10 - j * 5) Mod 2 <> 0 Then n = n + 1 ':Print i; j; 200 - i * 10 - j * 5
Next j, i
Print n
End Su
vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n
编写程序,计算并输出下面级数中前n(设n=20)项的和1*2+2*3+3*4+4*5+……+n*(n+1)
VB编写程序,计算并输出下面级数前n项中(n=50)奇数项的和.1*2*3+2*3*4+3*4*5+……+n*(n+1)
C语言题求救!编写程序,计算并输出下面级数前n项(n=50)中奇数项的和.1*2+2*3+3*4+4*5+……+n*(n
编写程序,计算并输出下面数列中前n(设n=20)项的和.
编写程序,计算并输出下面级数前n项(n=50)中奇数项的和.1*2+2*3+3*4+4*5+……+n*(n+1)+…
用C语言编写程序,计算并输出下面级数前n项(n=50)中偶数项的和.1*2+2*3+3*4+4*5+……+n*(n+1)
编写程序,计算并输出下面级数前n项(n=50)中奇数的和.1*2*3+2*3*4+3*4*5+.+n*(n+1)*(n+
1、编写程序,计算并输出下列数列前35项的和.(1-2-3),(4-5-6),(7-8-9),…… ,(3n+1)-(3
编写程序,计算并输出下面级数前n项(n=10)的部分和:1/2++1/4+…+1/(2*n)+ ……
VB程序!,计算并输出下面数列中前N(设N=8)项的和 ,,,.,.表示求阶乘)
利用VB设计一个程序:输入一个大于10的正整数n,计算sum=1+3+5+…(2n+1),编写程序输出计算结果sum