VB txt 读取调用.doc

程序截图:菜单截图如上代码如下:Private Sub head1_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 英语 & & 数学 & & 计算机 & & 历史 & & 体育 & vbCrLfDo While Not EOF(1)i = i + 1Input #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) & vbCrLfLoopClose #1End SubPrivate Sub jsj_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 计算机 & vbCrLfDo While Not EOF(1)i = i + 1Input #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) & vbCrLfLoopClose #1End SubPrivate Sub ls_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 历史 & vbCrLfDo While Not EOF(1)i = i + 1Input #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) & vbCrLfLoopClose #1End SubPrivate Sub shx_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 数学 & vbCrLfDo While Not EOF(1)i = i + 1Input #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) & vbCrLfLoopClose #1End SubPrivate Sub ty_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 体育 & vbCrLfDo While Not EOF(1)i = i + 1Input #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) & vbCrLfLoopClose #1End Sub Private Sub yy_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 英语 & vbCrLfDo While Not EOF(1)i = i + 1Input #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) & vbCrLfLoopClose #1 End SubPrivate Sub zch_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As IntegerDim n(30) As IntegerOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 总成绩 & vbCrLfDo While Not EOF(1)i = i + 1Input #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) & vbCrLfLoopClose #1End SubPrivate Sub zhpm_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim z(30) As IntegerDim fu(30) As IntegerDim h As IntegerDim m(30) As IntegerDim k As Integerh = InputBox( 请输入考试加分比例, 提示, 0, 5000, 5000)Open C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 综合成绩 & vbCrLfDo While Not EOF(1)i = i + 1Input #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)LoopFor i = 1 To 30fu(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 jFor i = 1 To 30Text1.Text = Text1 & vbCrLf & & a(i) & & b(i) & & z(i) & vbCrLfNext iClose #1End SubPrivate Sub zczcj_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim z(30) As IntegerDim fu(30) As IntegerDim h As IntegerDim m(30) As IntegerDim k As Integerh = InputBox( 请输入考试加分比例, 提示, 0, 5000, 5000)Open C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 综合成绩 & vbCrLfDo While Not EOF(1)i = i + 1Input #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)LoopFor i = 1 To 30fu(i) = InputBox( 请输入第 & i & 名同学考试附加分, 提示, 0, 5000, 5000) z(i) = m(i) / 5 * (100 - h) / 100 + fu(i) Next i For i = 1 To 30Text1.Text = Text1 & vbCrLf & & a(i) & & b(i) & & z(i) & vbCrLfNext iClose #1 End SubPrivate Sub zpai_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As IntegerDim n(30) As IntegerOpen C:Documents and SettingsAdministrator桌面vbxscj.txt For Input As #1Text1.Text = & 学号 & & 姓名 & & 总成绩 & vbCrLfDo While Not EOF(1)i = i + 1Input #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