二级vb编程题3很典型很有帮助—基本编程

三、基本编程

3.1. 编写程序，计算并输出下面数列前n（设n=45）项中所有偶数项的和。

1×2×3,2×3×4,3×4×5,……,n×(n+1)×(n+2),……

要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。Dim n As Integer

Private Sub Command1_Click()

Dim s As Long

n = Val(InputBox("输入n的值"))

For i = 2 To n Step 2

s = s + i * (i + 1) * (i + 2)

Next i

Print "数列中的偶数项和是："; s

End Sub

3.2. 编写程序,计算并输出下面数列前35项的和。

1×2×3,-2×3×4,3×4×5,-……,+(-1)^(n-1)×(n×(n+1)×(n+2))

（其中：(-1)^(n-1)表示-1的(n-1)次方）

要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。Dim n As Integer

Private Sub Command1_Click()

Dim s As Long

n = Val(InputBox("输入n的值"))

s=0

For i = 1 To n

s = s + (-1) ^ (i - 1) * i * (i + 1) * (i + 2)

Next i

Print "数列中前35项的和是："; s

End Sub

3.3. 编写程序，求下面数列前50项的和。结果取4位小数。

1,1/(3×3),1/(5×5),1/(7×7),……,1/((2n-1)×(2n-1)),……

要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。Dim n As Integer

Private Sub Command1_Click()

Dim s As Long

n = Val(InputBox("输入n的值"))

s=0

For i = 1 To n

s = s + 1/((2 * i-1)*(2 * i-1))

Next i

s =Int(s * 10000 + 0.5)/10000

Print "数列中的前50项和是："; s

End Sub

3.4. 编写程序，计算并输出下面数列中前n(设n=8)项的和。结果取4位小数。

1/1!,1/2!,1/3!,1/4!,……,1/n!,……（其中，! 表示求阶乘）

要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。

Dim n As Integer

Private Sub Command1_Click()

Dim s As Long, t As Double

s = 0

n = Val(InputBox("输入n 值"))

t = 1

For i = 1 To n

t = t * i

s = s + 1/t

Next i

Print "s="; s

End Sub

3.5. 编写程序，计算并输出下面数列前n项的和(设n=50，x=0.4)，要求结果保留4位小数。

sin(x)/2,sin(2x)/4,sin(3x)/6,……,sin(nx)/2n,……（其中，sin为正弦函数）

要求：在运行程序时，采用适当的方式进行输入（n、x）和输出（计算结果）。

Private Sub Command1_Click()

Dim n As Integer, i As Integer

Dim s As Single, x As Single, t As Single

s = 0

x = Val(InputBox("输入x 值"))

n = Val(InputBox("输入n 值"))

For i = 1 To n

t = Sin(2 * x) / (2 * i)

s = s + t

Next i

Print "s="; Int(s * 10000 + 0.5) / 10000

End Sub

3.6. 编写程序，计算出100到500之间所有满足下列条件的整数和：整数的每位数字的和能整除整数本身。要求：在运行程序时，采用适当的方式输出计算结果。

Private Sub Command1_Click()

Dim s1 As Integer, s2 As Integer

Dim s3 As Integer

For a = 100 To 500

s1 = a Mod 10

s2 = (a \ 10) Mod 10

s3 = a \ 100

If a Mod (s1 + s2 + s3) = 0 Then

List1.AddItem a

End If

Next a

End Sub

3.7编写程序，计算并输出下面数列中前n（设n=25）项的和。结果取4位小数。

1/(1×2),1/(2×3),1/(3×4),……,1/(n×(n+1)),……

要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。

Dim n As Integer

Private Sub Command1_Click()

Dim s As Long

n = Val(InputBox("输入n的值"))

s=0

For i = 1 To n

s = s + 1/(i * (i+1))

Next i

s =Int(s * 10000 + 0.5)/10000

Print "数列中的前50项和是："; s

End Sub

3.8. 编写程序，计算并输出下面数列前35项的和，结果取4位小数。

1/2,2/3,3/4,4/5,5/6,6/7,7/8, …… , n/(n+1),……

要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。

Dim n As Integer

Private Sub Command1_Click()

Dim s As Long

n = Val(InputBox("输入n的值"))

s=0

For i = 1 To n

s = s + i/(i+1))

Next i

s =Int(s * 10000 + 0.5)/10000

Print "数列中的前50项和是："; s

End Sub

3.9. 编写程序，计算出1000到5000之间能被3整除但不能被13整除的所有整数的平方根的和。保留4位小数。要求：在运行程序时，采用适当的方式输出计算结果。

Private Sub Command1_Click()

Dim s As Single

For a = 1000 To 5000

If a Mod 3 = 0 And a Mod 13 <> 0 Then

s = s + Sqr(a)

End If

Next a

s = Int(s * 1000 + 0.5) / 1000

Print "s="; s

End Sub

3.10. 编写程序，计算并输出下面数列前40项的和，结果取4位小数。

2/1,3/2,4/3,5/4,6/5,7/6,8/7, …… ,(n+1)/n,……

要求：在运行程序时，采用适当的方式进行输入（n）和输出（计算结果）。

(参看3.8)

3.11. 编写程序，求下面数列的和S，当某项（即1/n!）的值小于0.005时求和终止并输出s,该项参加求和。结果取4位小数。