form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      BackColor       =   &H80000000&
      Caption         =   "方法绘制积分面积图"
      ClientHeight    =   2490
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   4140
      FillColor       =   &H00FF0000&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      ScaleHeight     =   2490
      ScaleWidth      =   4140
      StartUpPosition =   2  '屏幕中心
      Begin VB.PictureBox Picture1
         Height          =   2295
         Left            =   120
         ScaleHeight     =   2235
         ScaleWidth      =   2595
         TabIndex        =   3
         Top             =   120
         Width           =   2655
      End
      Begin VB.TextBox Text2
         BeginProperty Font
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   3000
         TabIndex        =   2
         Top             =   1020
         Width           =   855
      End
      Begin VB.TextBox Text1
         BeginProperty Font
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   3000
         TabIndex        =   1
         Top             =   480
         Width           =   855
      End
      Begin VB.CommandButton Command1
         Caption         =   "绘图"
         Height          =   375
         Left            =   3000
         TabIndex        =   0
         Top             =   2040
         Width           =   975
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    Dim a, b
    a = Val(Text1): b = Val(Text2)
    Picture1.Scale (a - 1, b * b + 1)-(b + 1, -1)
    Picture1.Cls
    Picture1.Line (a - 1, 0)-(b + 1, 0)
    Picture1.Line (0, -1)-(0, b * b + 1)
    For i = a To b Step 0.01
        Picture1.Line (i, 0)-(i, i * i)
    Next i
End Sub