vb常用算法

时间:2015-01-16 15:21:31
【文件属性】:

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


网友评论