form2change.frm

来自「结合实例用VB编程表达了一阶偏微分方程的数值解法」· FRM 代码 · 共 38 行

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   7245
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10605
   LinkTopic       =   "Form2"
   ScaleHeight     =   7245
   ScaleWidth      =   10605
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Paint()
Form2.Scale (-3, 10)-(25, -2)
Line (-3, 0)-(25, 0)
Line (0, 10)-(0, -2)
Line (0, 6)-(24, 6)
CurrentX = -0.5: CurrentY = 0: Print "0"
CurrentX = 24: CurrentY = 0.6: Print "T(s)"
CurrentX = -1.5: CurrentY = 9.5: Print "MPa"

For i = 1 To 24
CurrentY = 0.3: CurrentX = (1 * i): Print "|"
CurrentY = 0: CurrentX = (1 * i - 0.3): Print i * 10
CurrentX = 0: CurrentY = (1 * i + 0.13): Print "-"
CurrentX = -0.8: CurrentY = (1 * i): Print i
Next i

For i = 0 To 250
PSet (dt(i), p(i))
Next i
End Sub