form1.frm

应该是不错的源码 望朋友们分享 应该是不错的源码 望朋友们分享

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4815
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6465
   LinkTopic       =   "Form1"
   ScaleHeight     =   4815
   ScaleWidth      =   6465
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "查看"
      Height          =   615
      Left            =   4200
      TabIndex        =   1
      Top             =   1920
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "输入学生成绩"
      Height          =   855
      Left            =   4200
      TabIndex        =   0
      Top             =   600
      Width           =   1575
   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()
Open "e:/wangruiqing/vb/student.txt" For Output As #1
For i = 1 To 2
no = InputBox("请输入第" & i & "个学生的学号")
nam = InputBox("请输入第" & i & "个学生的姓名")
vbscore = InputBox("请输入第" & i & "个学生的vb成绩")
Write #1, no, nam, vbscore
Next
Close #1
End Sub

Private Sub Command2_Click()
'Dim vbscore As Integer
Open "e:/wangruiqing/vb/student.txt" For Input As #1
Open "e:/wangruiqing/vb/nopass.txt" For Output As #2
For i = 1 To 2
Input #1, no, nam, vbscore
Print no, nam, vbscore
If vbscore < 60 Then
Write #2, no, nam, vbscore
End If
Next
Close #1
Close #2
End Sub