jigai.frm

实现了排队理论在数学中的使用方法

VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "actskin4.ocx"
Begin VB.Form JiGai 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "极限概率列表"
   ClientHeight    =   2715
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   2400
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2715
   ScaleWidth      =   2400
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   1140
      OleObjectBlob   =   "JiGai.frx":0000
      Top             =   840
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   255
      Left            =   660
      TabIndex        =   1
      Top             =   2340
      Width           =   915
   End
   Begin VB.ListBox JiGaiBiao1 
      BackColor       =   &H0080FF80&
      Height          =   2040
      ItemData        =   "JiGai.frx":0234
      Left            =   240
      List            =   "JiGai.frx":0236
      TabIndex        =   0
      Top             =   180
      Width           =   1935
   End
End
Attribute VB_Name = "JiGai"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
   Unload Me
End Sub

Private Sub Form_Load()
 Skin1.LoadSkin App.Path + "\Skins\Zhelezo.skn"
  Skin1.ApplySkin (Me.hWnd)
  Dim k As Double
  Dim i As Integer
  
  For i = 0 To FuNum
    k = CiFang(m, i) / JieCheng(i) * JiGaiN0
    JiGaiBiao1.AddItem "P" & i & ":" & Format(Round(k, 3), "0.000")
  Next
End Sub