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、* 编写程序,计算并输出下面
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 00:47:17
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、* 编写程序,计算并输出下面
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元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?
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、* 编写程序,计算并输出下面
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 Sub