xs.frm

来自「职工管理系统」· FRM 代码 · 共 43 行

VERSION 5.00
Begin VB.Form xs 
   Caption         =   "显示"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List1 
      Height          =   960
      Left            =   600
      TabIndex        =   0
      Top             =   480
      Width           =   3375
   End
End
Attribute VB_Name = "xs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim i As Integer
Open "d:\rsk3.txt" For Random As #1 Len = Len(zgr1)
For n = 1 To LOF(1) / Len(zgr1)
    
    Get #1, n, zgr1
    If zgr1.zgxm <> "        " Then
    
        If zgr1.zgxb = 0 Then
            List1.AddItem Format(n, "000") + zgr1.zgxm + "男" + Str(zgr1.zggz) + Str(zgr1.zgbt)
        Else
            List1.AddItem Format(n, "000") + zgr1.zgxm + "女" + Str(zgr1.zggz) + Str(zgr1.zgbt)
        End If
    End If
    
Next n
Close #1
End Sub