正态分布图f1.frm

来自「数理统计程序集」· FRM 代码 · 共 83 行

VERSION 5.00
Begin VB.Form frmPicture 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "正态分布概率密度图"
   ClientHeight    =   5595
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7470
   LinkTopic       =   "Form1"
   ScaleHeight     =   5595
   ScaleWidth      =   7470
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "退  出"
      Height          =   495
      Left            =   5520
      TabIndex        =   2
      Top             =   4920
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "绘  图"
      Height          =   495
      Left            =   3840
      TabIndex        =   1
      Top             =   4920
      Width           =   1455
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   4455
      Left            =   240
      ScaleHeight     =   7.805
      ScaleMode       =   0  'User
      ScaleWidth      =   12.25
      TabIndex        =   0
      Top             =   240
      Width           =   6975
   End
End
Attribute VB_Name = "frmPicture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim I As Double, P As Double
Dim I1 As Double, P1 As Double
Dim I2 As Double, P2 As Double
Dim K As Integer
Private Sub Command1_Click()
    Picture1.Line (-8, 0)-(8, 0)
    Picture1.Line (0, -9)-(0, 1)
    K = 0
    For I = -4 To 4 Step 0.1
        I1 = I: I2 = I + 0.1
        Norm I1, P1
        Norm I2, P2
        P = (Abs(P1 - P2) / 0.1) * 20
        If K = 0 Then
            Picture1.CurrentX = 2 * I1
            Picture1.CurrentY = -P
        Else
            Picture1.Line -(2 * I1, -P)
        End If
        K = K + 1
    Next I
    
End Sub

Private Sub Command2_Click()
    Unload Me
    End
End Sub

Private Sub Form_Load()
    Picture1.Scale (-15, -10)-(15, 5)
    
End Sub