VB常考题型归纳分析
一、累加和连乘
1、 算法说明
累加形式：V=V+e 连乘形式：V=V*e
其中：V是变量，e是递增表达式。累加和连乘一般通过循环结构来实现。
注意：需在执行循环体前对变量V赋初值。一般的，累加时置初值0；连乘时置初值为1.
2、 应用实例
（1）求N！的结果。
Private Sub Command1_Click（）
Dim n%， i%， s&
n = Val（InputBox（"输入n"））
s = 1
For i = 1 To n
s = s * i
Next i
Print s
End Sub
错误的写法：
Private Sub Command1_Click（）
Dim n%， i%， s&
n = Val（InputBox（"输入n"））
For i = 1 To n
s = 1 ‘赋初值语句位置不对！
s = s * i
Next i
Print s ‘输出s的值为n，而不是n！
End Sub
（2）根据下列公式，求自然对数e的的近似值。
， 要求：误差小于0.00001
Private Sub Command1_Click（）
Dim i%, n&, t!, e!
e = 2
i = 1
t = 1
Do While t > 0.00001
i = i + 1
t = t / i
e = e + t
Loop
Print "计算了"; i; "项目和是："; e
Print Exp（1） ‘与上句输出值进行对比以证明算法的正确性
End Sub
（3）根据X值计算：
n＝1，2，…… 。要求：n项绝对值小于等于10-6为止。
分析：
● 由于循环次数不确定，因此确定用Do循环结构并定义循环变量用n表示（初值1）；用户输入的值用x表示；通项用dblCos表示；累加值用sum表示，初值为0；
● 分解通项式的组成 可以分解为三部分：
①可以表示为：（－1）^（n+1）；
②可以表示为：x^（2*（n-1））；
③[2(n-1)]!比较复杂，难以直接表示，此时考虑使用过程。 于是定义过程，输入值是n ，返回值是[2(n-1)]! 代码为：
Private Function comp（n as long）as long
dim I as long
dim result as long
result=1 ‘此处注意，由于是连乘，初值为1
for I=1 to 2*（n-1）
result=result*I
next I
comp=result
End Function
注意：由于是参数按地址传递，因此对于本题，实参的值不能在过程中被改变！（也是改错题常考的地方！！）
● 根据以上步骤，写出通项dblCos的表达式：
dblCos=(-1)^(n+1)* x ^(2*(n-1))/comp(n)
● 根据精度要求知：
If Abs(dblCos)<=10^(-6) Then Exit Do
最后程序为：
Private Sub Command1_Click()
Dim n As Long， dblCos As Double， x As Double
x = Val(Text1.Text)
n = 1
Do
dblCos =(-1) ^ (n + 1) * x ^ (2 * (n – 1)) / comp(n)
If Abs (dblCos) <= 10 ^ (-6) Then Exit Do
Sum = Sum + dblCos
n = n + 1
Loop
Print Sum
End Sub
Private Function comp (n As Long) As Long
Dim I As Long
Dim result As Long
result = 1 '此处注意，由于是连乘，初值为1
For I = 1 To 2 *(n – 1)
result = result * I
Next I
comp = result
End Function
注意：如果调试运行时死循环，可以按Ctrl＋Break中断死循环，不需要重新启动机器。
3、 解题技巧
（1） 由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，所以这类题目一般用Do循环，很少用For循环。设定循环变量和通项变量，注意各变量的初值；
（2） 分解通项表达式中各因子，并分别将各因子用循环变量表示；
（3） 如果步骤2中有的因子比较复杂，难以直接用变量表示，此时可以考虑使用Function过程；
（4） 根据步骤1、2、3，写出通项表达式；
（5） 根据精度要求（往往是通项小于10负多少次方这样一个关系表达式），写出一条满足精度要求后跳出循环的语句。通常是用：If 通项表达式<10^（-N） Then Exit Do ，注意这句话一般需放在累加或者连乘式之前。
4、 实战练习
（1） 补充代码（2003秋二（7））
本程序的功能是求下面数列前n项之和。
S(x,n)=x/2+2!*x^3/2*4+3!*x^5/2*4*6+…+n!*x^(2*n-1)/2*4*6…2*n
Option Explicit
Private Sub Command1_Click()
Dim x As Single, s As Single
Dim n As Integer, i As Integer
x=InputBox(“输入Ｘ：”, “求数列和”,１)
n=InputBox(“输入Ｎ：”, “求数列和”,１)
For i=1 To n
s=s+fun(x,i)
Next i
Label1.Caption= "s("& x &","& n &")="
Text1=s
End Sub
Private Function fun(x As Single,n As Integer)As Single
＿Dim p As Single, i As Integer＿
p=1
For i=1 To n
＿＿p=p*n/(2*n) ____
Next i
fun=x^（2*n-1）*p
End Function
（2） 编程题（2003春上机试卷03）
按下列公式编写求积分余弦函数值的程序。当通项绝对值小于10-5时停止计算。
x>0
参考程序：
Option Explicit
Private Function JC(N As Integer) As Double
If N <= 1 Then
JC = 1
Else
JC = N * JC(N - 1)
End If
End Function
Private Sub Command1_Click()
运行参考画面
二级VB Dim K As Integer, X As Single, Y As Single Dim An As Single
X = Text1
If X <= 0 Then
MsgBox "数据错误！X应大于0", vbExclamation, "提示信息"
Call Command2_Click
Exit Sub
End If
Y = Log(X)
K = 1
Do
An = (-1) ^ K * X ^ (2 * K) / (2 * K * JC(2 * K))
If Abs(An) <= 0.00001 Then Exit Do
Y = Y + An
K = K + 1
Loop
Text2 = Y
End Sub
二、最值问题
1、算法说明
在若干数中求最大值，一般先取第一个数为最大值的初值（即假设第一个数为最大值），然后，在循环体内将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值，直到循环结束；求最小值的方法类同；求若干数平均值，实质上就是先求和，再除以这些数的个数。
2、应用举例
（1）随机产生n个1－100（包括1和100）的数，求它们的最大值、最小值和平均值。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, , s As Integer
Dim min As Integer, max As Integer, aver As Single
n = Val(InputBox("输入个数:"))
s = Int(Rnd * 100) + 1
max = s
min = s
aver = s
Print "第1个数是：" & s
For i = 2 To n
s = Int(Rnd * 100) + 1
Print "第" & i & "个数是：" & s
If s > max Then max = s
If s < min Then min = s
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论