1、①在Form1窗体中的适当位置画出2个Label框、1个Text框,以及1个Command按钮(预先对Caption等属性进行设置,方便直观)。
2、②双击“运算”按钮,在弹出的代码框中键入如下代码(复制注意分行):Private Sub Command1_Click(像粜杵泳)Dim n As Integern = Val(Text1.Text)t = 1For i = 1 To n t = i * t s = s + t / iNext iLabel3.Caption = sEnd Sub
3、③最后点击运行试试吧(不相信结果的话就拿稿纸慢慢验证哦)!