第一题:2^1+.(2n)^(2n-1)第二题 :[20,80]..能被3整除或者能被5整除的数的和第三题:求n个随机的
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/05/03 04:39:30
第一题: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按钮进行测试!完成!
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 Sum
End Sub请在VB窗体中加入3个Command1,2,3按钮进行测试!完成!
第一题:2^1+.(2n)^(2n-1)第二题 :[20,80]..能被3整除或者能被5整除的数的和第三题:求n个随机的
求使2的n次方+1能被3整除的一切自然数n
从1,2,3,4.,2009中取N个不同的数,取出的数中任意三个的和能被18整除.,N最大是多少?
要求2的n次方—1能被7整除,自然数n去哪些数.
已知2^n(n属于N+)能整除2007^2048 -1,求n的最大值
求最大自然数N,使得N的2次方+20能被N+10整除
b^2n能被a^(2n-1)整除 a^(2n+1)能被b^2n整除 n是正整数集里的任意数 求a=
从1,2..100这一百个数中,任取两个不同的数相乘,其中积能被5整除的有多少个?能被5整除但不能被5n(n(n≥2,n
n为任一整数,用含n的式子表示既能被3整除,又能被2整除的数
已知三个连续的自然数(n,n+1,n+2),它们都小于2006,其中n能被11整除,n+1能被13整除
从1、2、3...2007中取N个不同的数,取出的数中任意三个的和能被15 整除,N最大为多少
n为100以内的自然数,那么能令2n-1被7整除的n有多少个?