VB txt 读取调用.doc_第1页
VB txt 读取调用.doc_第2页
VB txt 读取调用.doc_第3页
VB txt 读取调用.doc_第4页
VB txt 读取调用.doc_第5页
已阅读5页,还剩4页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

程序截图:菜单截图如上代码如下: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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论