form1.frm

来自「蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 」· FRM 代码 · 共 38 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Dim n As Integer, x As Single, y As Single, sign As Integer
Dim Factor As Integer, Xpower As Single
x = InputBox("请输入x：")
n = InputBox("请输入n：")
y = x                    '多项式的第1项作为初值
sign = 1                 '设符号变量初值为+1
For i = 2 To n           '外循环从第2项开始累加，一直累加到第n项
Factor = 1             '积的初值设为1（用于求分母）
Xpower = 1             '积的初值设为1（用于求分子）
For j = 1 To 2 * i - 1 '内循环计算出多项式第i项的分子和分母
Factor = Factor * j  '计算第i项的分母
Xpower = Xpower * x  '计算第i项的分子
Next j
sign = -sign           '改变符号
y = y + sign * Xpower / Factor '外循环每执行一次累加一项
Next i
Print "Sinx="; y
End Sub