4.19.frm

来自「VB6.0应用例题」· FRM 代码 · 共 57 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "调用通用过程示例"
   ClientHeight    =   2655
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2655
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "输出"
      Height          =   495
      Left            =   3120
      TabIndex        =   0
      Top             =   1920
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim Math%(5), Phy%(5), Chem%(5), I As Integer
    For I = 1 To 5
        Math(I) = Rnd * 41 + 60
        Phy(I) = Rnd * 41 + 60
        Chem(I) = Rnd * 41 + 60
    Next I
    Print_Line              '调用通用过程
    Print Tab(10); "数学"; Tab(20); "物理"; Tab(30); "化学"
    Print_Line              '调用通用过程
    For I = 1 To 5
        Print Tab(10); Math(I);
        Print Tab(20); Phy(I);
        Print Tab(30); Chem(I);
        Math(0) = Math(0) + Math(I)
        Phy(0) = Phy(0) + Phy(I)
        Chem(0) = Chem(0) + Chem(I)
    Next I
    Print_Line              '调用通用过程
    Print Tab(10); Math(0); Tab(20); Phy(0); Tab(30); Chem(0)
    Print_Line              '调用通用过程
End Sub
Private Sub Print_Line()        '用户自定义的调用通用过程
    Dim I As Integer
    Print Tab(10);
    For I = 1 To 25
        Print "-";
    Next I
    Print
End Sub