VB期末考试大题答案2.doc
文本预览下载声明
1用两种循环结构输出101~500之间的所有奇数并输出它们的和。
Private Sub Command1_Click()
Dim i%, n%, sum!
i = 101: sum = 0: n = 0
Do Until i 500
sum = sum + i
n = n + 1
i = i + 2
Loop
Text1.Text = sum
Text2.Text = n
End Sub
Private Sub Command2_Click()
Dim i%, n%, sum!
sum = 0: n = 0
For i = 101 To 500 Step 2
sum = sum + i
n = n + 1
Next i
Text1.Text = sum
Text2.Text = n
End Sub
2 S=1 + 1 X 2 + 1 X 2 X 3 +...+ 1 X 2 X 3 X ... X n，任意输入n的值，求S的值。Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim ss As Variant Dim sum As Variant n = Val(Text1) ss = 1 For i = 1 To n ss = ss * i sum = sum + ss Next i Text2 = Str(sum) End Sub
3 S=1 X 2 X 3 X ... X n，求S不大于10000时，最大的n的数值。
利用下述公式计算 的值（直到最后一项小于为止）。
Private Sub Command1_Click()
Dim i%, n#, t#, e#, x!, t1#
e = 0 存放累加和结果
i = 0 计数器
n = 1 存放阶乘的值
t = 1 级数第i项值
t1 = 1 存放x的幂
x = InputBox(输入x的值：)
Do While t 0.00001
e = e + t
i = i + 1
n = n * i
t1 = t1 * x
t = t1 / n
Loop
Print 计算了 ; i; 项; e的^x的值是 ; e
End Sub
5设计程序，求s=1*（1+2）*（1+2+3）*….*（1+2+3+4+。。。+n）的值，编程求s不大于20000时最大的n值。
Private Sub Command1_Click()
Dim i!, n!, sum!
i = 1: sum = 1: n = 1
Do Until sum 20000
sum = sum * i
n = n + 1
i = i + n
Loop
Text1.Text = sum
Text2.Text = n - 1
End Sub
6 求300~400之间（包括300和400）所有能被3整除的数之和s，并在窗体上打印出s值。
Private Sub Command1_Click()
s = 0
For i = 300 To 400
If i Mod 3 = 0 Then
num7 = num7 + 1
s = s + i
End If
Next i
Print 100-400之间能被3整除的数字和为：; s
End Sub
7 编程求1到100自然数中被7整除的数据的个数及它们的和。Private Sub Command1_Click()
num = 0
num7 = 0
For i = 1 To 100
If i Mod 7 = 0 Then
num7 = num7 + 1
num = num + i
End If
Next i
Text1.Text = Str(num)
Text2.Text = Str(num7) 个
End Sub
8 求S=1!/2 + 2!/3 + 3!/4 + ... + n!/(n+1)，n是从键盘输入的正整数。Private Sub Command1_Click()
Dim s!, f!, n%
n = InputBox(请输入n的值)
s = 0: f = 1
For i = 1 To n
f = f * i
s = s + f / (i
显示全部