3.10.frm

来自「VB6.0应用例题」· FRM 代码 · 共 35 行

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
  '----------------------------------------------------------
  'A、B为积分区间的下、上限，N为区间的等分数
  'H、X、Y、Sum依次为小矩形的宽度、曲线上某点的X、Y值与面积和
  '----------------------------------------------------------
Private Sub Form_Click()
  Dim A As Integer, B As Integer, N As Integer
  Dim H As Single, Sum As Single, X As Single, Y As Single
  A = 0: B = 4
  N = 1000
  H = (B - A) / N
  Sum = 0
  For X = A To B - H Step H
    Y = Sqr(4 - (X - 2) ^ 2)
    Sum = Sum + Y * H
  Next X
  MsgBox Sum
End Sub