顺序文件读写.frm

来自「蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 」· FRM 代码 · 共 76 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5025
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7995
   LinkTopic       =   "Form1"
   ScaleHeight     =   5025
   ScaleWidth      =   7995
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   4095
      Left            =   480
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   600
      Width           =   6855
   End
   Begin VB.Menu mnuin 
      Caption         =   "读入数据"
   End
   Begin VB.Menu mnucal 
      Caption         =   "计算并输出"
   End
   Begin VB.Menu mnusave 
      Caption         =   "存盘"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Base 1
Dim Arr(100) As Integer
Dim sum As Integer
Sub ReadData()
    Open App.Path & "\" & "datain1.txt" For Input As #1
    For i = 1 To 100
        Input #1, Arr(i)
    Next i
    Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
    Open App.Path & "\" & Filename For Output As #1
    Print #1, Num
    Close #1
End Sub

Private Sub Form_Load()
Text1.FontSize = 18
Form1.FontSize = 18
End Sub

Private Sub mnucal_Click()
sum = 0: Text1 = ""
For i = 1 To 100
   If Arr(i) >= 50 Then
      sum = sum + Arr(i)
      Text1.Text = Text1.Text & Arr(i) & Space(1)
   End If
Next i
Print sum

End Sub

Private Sub mnuin_Click()
ReadData
End Sub

Private Sub mnusave_Click()
WriteData "dataout.txt", sum
End Sub