计算机vb常用计算公式,计算机等级考试二级VB常用算法(1):累加

1、算法说明

累加形式:V=V+e

连乘形式:V=V*e

其中:V是变量,e是递增表达式。累加和连乘一般通过循环结构来实现。

注意:需在执行循环体前对变量V赋初值。一般的,累加时置初值0;连乘时置初值为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

应用举例

根据下列公式,求自然对数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

解题技巧

1) 由于这类题目往往是根据精度要求来求值,因此我们不能预知具体循环次数,所以这类题目一般用Do循环,很少用For循环。设定循环变量和通项变量,注意各变量的初值;

2) 分解通项表达式中各因子,并分别将各因子用循环变量表示;

3) 如果步骤2中有的因子比较复杂,难以直接用变量表示,此时可以考虑使用Function过程;

4) 根据步骤1、2、3,写出通项表达式;

5) 根据精度要求(往往是通项小于10负多少次方这样一个关系表达式),写出一条满足精度要求后跳出循环的语句。通常是用:if 通项表达式>10^(-N) then exit do ,注意这句话一般需放在累加或者连乘式之前。

实例说明

以2002年春上机试卷06编程题为例

根据X值计算

n=1,2,……

要求:n项绝对值小于等于10-6为止。

1、由于循环次数不确定,因此确定用Do循环结构并定义循环变量用n表示(初值1);用户输入的值用x表示;通项用dblCos表示;累加值用sum表示,初值为0;

2、分解通项式的组成

可以分解为三部分

可以表示为:(-1)^(n+1)

可以表示为:x^(2*(n-1))

比较复杂,难以直接表示

3、由于步骤2中复杂, 此时考虑使用过程。

于是定义过程,输入值是n,返回值是

于是有

以下是引用片段:

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

注意:由于是参数按地址传递,因此对于本题,实参的值不能在过程中被改变!(也是改错题常考的地方!!)

4、根据步骤1、2、3,写出通项dblCos的表达式

dblCos=(-1)^(n+1)* x^(2*(n-1))/comp(n)

5、根据精度要求知

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中断死循环,不需要重新启动机器。(或者Ctrl+Scroll Lock)

2、实战练习

1) 补充代码

本程序的功能是求下面数列前n项之和。

S(x,n)=x/2+2!*x^3/2*4+3!*x^5/2*4*6+……+n!*x^2n-1/2*4*6……2n

以下是引用片段:

Option Explicit

Private Sub Command1_Click()

Dim x As Single,s As Single

Dim n As Integer,i As Integer

x=InputBox("输入X:","求数列和",1)

n=InputBox("输入N:","求数列和",1)

For i=1 To n

s=s+fun(x,i)

Next i

Label1.Caption= _(1)_

Text1=s

End Sub

Private Function fun(x As Single,n As Integer)As Single

__(2)__

p=1

For i=1 To n

__(3)___

Next i

fun=x^(2*n-1)*p

End Function

2) 编程题

按下列公式编写求积分余弦函数值的程序。当通项绝对值小于10-5时停止计算。

  • 1
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值