文件名称: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