module1.bas

一次仿真课上作的一个关于龙格库塔法解微分方程的一个VB程序

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Sub Main()
    Set fMainForm = New frmMain
    fMainForm.Show
    fMainForm.chuzhi.Enabled = False
    fMainForm.resetcmd.Enabled = True
    fMainForm.cmdOK.Enabled = False
    fMainForm.jieshu.Enabled = False
    fMainForm.jieshucmd.Enabled = False
    fMainForm.qujianc.Enabled = False
    fMainForm.qujiand.Enabled = False
    fMainForm.txtBC.Enabled = False
    fMainForm.txtJD.Enabled = False
    fMainForm.xishu.Enabled = False
    fMainForm.txtbxishu.Enabled = False
    fMainForm.suanfacom.Text = "四阶龙格库塔法"
End Sub