vb常用算法

【文件属性】：

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