vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n

/>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