【文件属性】:
文件名称:vb常用算法
文件大小:322KB
文件格式:DOC
更新时间:2015-01-16 15:21:31
vb
有利于刚学习vb的新手来看看 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