代码搜索结果
找到约 10,000 项符合
I 的代码
i
modMethod = 144, 235, 652, 621, C
frmNorm = 48, -6, 556, 380, , 22, 29, 623, 415, C
modCall = 44, 58, 574, 391,
i
Attribute VB_Name = "modMethod"
Option Explicit
'求正态分布的分位数
'Q：上侧概率
'x：分位数
Public Sub PNorm(Q, x)
Dim p As Double, y As Double, z As Double
Dim b0 As Double, b1 As Double, b2 As Double
i
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
Module=modMethod; 正态分布分位数M.bas
Module=modCall; 正态分布分位数M1.bas
Startup="Sub Main"
C
i
Attribute VB_Name = "modCall"
Option Explicit
'调用求分位数的过程
Sub main()
Dim x As Double, dblI As Double
For dblI = 0.05 To 0.45 Step 0.05
PNorm dblI, x
Debug.Print "上侧概率="
i
modMethod = 44, 58, 574, 391, C
modCall = 66, 87, 596, 420,
i
Attribute VB_Name = "modMethod"
Option Explicit
'计算正态分布函数
'x：正态偏离点
'F：下侧概率
Public Sub Norm(x, F)
Dim y As Double, ER As Double, Q As Double
Dim A
Const a1 As Double = 0.0705230784
i
Attribute VB_Name = "modCall"
Option Explicit
'调用计算正态分布函数的子程序
Sub Main()
Dim x, F
For x = 1 To 5
Norm x, F '调用计算正态分布函数的子程序
Debug.Print "正态偏离点 x =", x, "下侧概率 F =", F
i
VERSION 5.00
Begin VB.Form frmNorm
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "正态分布"
ClientHeight = 2250
ClientLeft = 60
Cli
i
modMethod = 89, 68, 597, 454,
frmNorm = 48, -6, 556, 380, , 22, 29, 623, 415, C
modCall = 44, 58, 574, 391,
i
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
Module=modMethod; 正态分布M.bas
Form=正态分布F.frm
Module=modCall; 正态分布M1.bas
Startup="frmN