第一题:2^1+.(2n)^(2n-1)第二题 :[20,80]..能被3整除或者能被5整除的数的和第三题:求n个随机的[20,100]的里面的数的偶数和来个高手速度解答,

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/26 18:01:24
第一题:2^1+.(2n)^(2n-1)第二题:[20,80]..能被3整除或者能被5整除的数的和第三题:求n个随机的[20,100]的里面的数的偶数和来个高手速度解答,第一题:2^1+.(2n)^(

第一题:2^1+.(2n)^(2n-1)第二题 :[20,80]..能被3整除或者能被5整除的数的和第三题:求n个随机的[20,100]的里面的数的偶数和来个高手速度解答,
第一题:2^1+.(2n)^(2n-1)第二题 :[20,80]..能被3整除或者能被5整除的数的和第三题:求n个随机的[20,100]的里面的数的偶数和来个高手速度解答,

第一题:2^1+.(2n)^(2n-1)第二题 :[20,80]..能被3整除或者能被5整除的数的和第三题:求n个随机的[20,100]的里面的数的偶数和来个高手速度解答,

速采纳,答题进行中!

Private Sub Command1_Click()
'第一题: 2^1+.(2n)^(2n-1)
    Dim i As Long, n As Integer
    Do While True
        n = InputBox("请输入一个整数,数值请小于5:")
        If IsNumeric(n) Then Exit Do
    Loop
    Dim Sum As Long
    For i = 1 To n
        Sum = Sum + (2 * i) ^ (2 * i - 1)
    Next
    Print Sum
End Sub


Private Sub Command2_Click()
'第二题 :[20,80]..能被5整除的数的和
    Dim i As Long
    Dim Sum As Long
    For i = 20 To 80
        If i Mod 5 = 0 Then Sum = Sum + i    '能被5整除的数的和
        'If i Mod 3 = 0 Then Sum = Sum + i   '能被3整除的数的和
    Next
    Print Sum
End Sub


Private Sub Command3_Click()
'第三题:求n个随机的[20,100]的里面的数的偶数和
    Dim i As Long, n As Integer, m As Integer
    Do While True
        n = InputBox("请输入一个整数,数值请小于5:")
        If IsNumeric(n) Then Exit Do
    Loop
    Randomize
    
    Dim Sum As Long
    For i = 1 To n
        m = Int(Rnd * 81 + 20)
        If m Mod 2 = 0 Then
            Print m;
            Sum = Sum + m
        End If
    Next
    Print
    Print Sum
End Sub

请在VB窗体中加入3个Command1,2,3按钮进行测试!

完成!