form2.frm

来自「用VB语言编写的解决运筹学0-1规划的程序」· FRM 代码 · 共 36 行

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "结果输出 "
   ClientHeight    =   2850
   ClientLeft      =   4140
   ClientTop       =   1485
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":0000
   ScaleHeight     =   2850
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Activate()
    Dim i As Integer, j As Integer
    For i = 1 To 5
        Print
    Next i
    Print Tab(5); "最优值为："; Spc(5); max
    For i = 1 To result_num
        Print Tab(10); "X=";
        For j = 1 To n
            Print ; result(j, i); Spc(5);
            If j = n Then Print
        Next j
    Next i
End Sub