VB txt 读取调用.doc

程序截图:

菜单截图如上

代码如下:
Private Sub head1_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As String
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "英语" & " " & "数学" & " " & "计算机" & " " & "历史" & " " & "体育" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & c(i) & " " & d(i) & " " & e(i) & " " & f(i) & " " & g(i) & vbCrLf
Loop
Close #1
End Sub

Private Sub jsj_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As String
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "计算机" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & e(i) & vbCrLf
Loop
Close #1
End Sub

Private Sub ls_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As String
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "历史" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & f(i) & vbCrLf
Loop
Close #1
End Sub

Private Sub shx_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As String
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "数学" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & d(i) & vbCrLf
Loop
Close #1
End Sub

Private Sub ty_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As String
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "体育" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & g(i) & vbCrLf
Loop
Close #1
End Sub

Private Sub yy_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As String
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "英语" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & c(i) & vbCrLf
Loop
Close #1
End Sub

Private Sub zch_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As Integer
Dim n(30) As Integer
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "总成绩" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
m(i) = c(i) + d(i) + e(i) + f(i) + g(i)
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & m(i) & vbCrLf
Loop
Close #1

End Sub

Private Sub zhpm_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim z(30) As Integer
Dim fu(30) As Integer
Dim h As Integer
Dim m(30) As Integer
Dim k As Integer

h = InputBox(" 请输入考试加分比例", "提示", "0", 5000, 5000)
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1

Text1.Text = " " & "学号" & " " & "姓名" & " " & "综合成绩" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
m(i) = c(i) + d(i) + e(i) + f(i) + g(i)
Loop
For i = 1 To 30
fu(i) = InputBox(" 请输入第" & i & "名同学考试附加分", "提示", "0", 5000, 5000)
z(i) = m(i) / 5 * (100 - h) / 100 + fu(i)
Next i

For j = 1 To 30
For i = 30 To j Step -1
If z(i) > z(j) Then
t = z(i): z(i) = z(j): z(j) = t
t = a(i): a(i) = a(j): a(j) = t
t = b(i): b(i) = b(j): b(j) = t

End If
Next i
Next j
For i = 1 To 30
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & z(i) & vbCrLf
Next i

Close #1

End Sub

Private Sub zczcj_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim z(30) As Integer
Dim fu(30) As Integer
Dim h As Integer
Dim m(30) As Integer
Dim k As Integer

h = InputBox(" 请输入考试加分比例", "提示", "0", 5000, 5000)
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1

Text1.Text = " " & "学号" & " " & "姓名" & " " & "综合成绩" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
m(i) = c(i) + d(i) + e(i) + f(i) + g(i)
Loop
For i = 1 To 30
fu(i) = InputBox(" 请输入第" & i & "名同学考试附加分", "提示", "0", 5000, 5000)
z(i) = m(i) / 5 * (100 - h) / 100 + fu(i)
Next i
For i = 1 To 30
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & z(i) & vbCrLf
Next i

Close #1

End Sub

Private Sub zpai_Click()
Dim a(30) As Integer
Dim b(30) As String
Dim c(30) As Integer
Dim d(30) As Integer
Dim e(30) As Integer
Dim f(30) As Integer
Dim g(30) As Integer
Dim m(30) As Integer
Dim n(30) As Integer
Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1
Text1.Text = " " & "学号" & " " & "姓名" & " " & "总成绩" & vbCrLf

Do While Not EOF(1)
i = i + 1
Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)
m(i) = c(i) + d(i) + e(i) + f(i) + g(i)
Loop
For j = 1 To 30
For i = 30 To j Step -1
If m(i) > m(j) Then
t = m(i): m(i) = m(j): m(j) = t
t = a(i): a(i) = a(j): a(j) = t
t = b(i): b(i) = b(j): b(j) = t

End If
Next i
Next j
For i = 1 To 30
Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & m(i) & vbCrLf
Next i

Close #1

End Sub