Question

Vb作业 在线等

Answer 1

这个问题比较啰嗦。

首先你要制作一幅图片，就是计算e的那个公式，

制作好放到一个文件夹下，并命名好，例如放到e盘的根目录下，命名为e.jpg

然后，窗体界面上，放置一个图像框image1、两个按钮、一个标签

最后编写代码如下：

Private Sub Command1_Click()
    e = 1
    k = 1 '单项的值
    For i = 1 To 50
        k = k / i '这样可以防止阶乘溢出，也减少运算量
        e = e + k
    Next i
    Label1 = "e=" & e
End Sub

Private Sub Command2_Click()
    e = 1
    k = 1
    i = 1
    Do
        k = k / i
        e = e + k
        i = i + 1
    Loop Until k < 0.000001
    Label1 = "e=" & e
End Sub

Private Sub Form_Load()
    '将e的公式图片装入图像框
    Image1.Picture = LoadPicture("e:\\e.jpg")
    '扩展窗体宽度，适应图像框的大小
    Me.Width = Image1.Width + Image1.Left + Image1.Left
    '修改两个按钮的标题,初始化输出结果
    Command1.Caption = "For循环"
    Command2.Caption = "Do循环"
    Label1 = "e="
End Sub

运行初始情况是

点击两个按钮后情况分别为