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

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/01 20:52:34

第一题: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按钮进行测试!

完成!

求 级数：4n/(n+1)(n+2) 敛散性.1题第一小题 2^n/n*(n+1) 证明不等式：(1/n)^n+(2/n)^n+(3/n)^n+.+(n/n)^n (n+2)!/(n+1)! [3n(n+1)+n(n+1)(2n+1)]/6+n(n+2)化简 [3n(n+1)+n(n+1)(2n+1)]/6+n(n+2)化简 化简n分之n-1+n分之n-2+n分之n-3+.+n分之1 化简n分之n-1+n分之n-2+n分之n-3+.+n分之1 f(x)=e^x-x 求证(1/n)^n+(2/n)^n+...+(n/n)^n 第一题应用归纳推理猜测根号{[(111…1)（2n个）]-[(222…2)（n个）]}的值（n?N+） 第二题设f(n)=n^2+n...第一题应用归纳推理猜测根号{[(111…1)（2n个）]-[(222…2)（n个）]}的值（n?N+） 第二题设f(n)=n^2+ 化简(n+1)(n+2)(n+3) n*【n+1】*【n+2】化简成什么? 2n/（n+1）n! n(n+1)(n+2)等于多少? n+(n-1)÷2×n 求化简 n(n+1)(n+2)什么意思 1^n+2^n+...+2013^n 当n为正偶数,求证n/(n-1)+n(n-2)/(n-1)(n-3)+...+n(n-2).2/(n-1)(n-3)...1=n