




已阅读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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 陕西省医疗保障局直属事业单位招聘考试真题2025
- 2025数控编程试题题库及答案
- 解析卷人教版八年级物理上册第6章质量与密度-密度专项攻克试卷
- 2025年煤矿企业主要负责人安管能力考试强化训练试题及答案
- 难点解析-人教版八年级物理上册第6章质量与密度-质量章节训练试题(含详细解析)
- 2025年房地产开发与管理专业试卷及答案
- 2025年金属冶炼单位主要负责人考试(金属冶炼黑色金属铸造)全真模拟试题及答案四
- 2025年数控操作员理论题及答案
- 2025年道路运输企业主要负责人和安全生产管理人员考试(安全生产管理人员)测试题及答案
- 2024年省燃气经营企业从业人员考试(汽车加气站操作工)经典试题及答案四
- 正大杯全国大学生市场调查与分析大赛(试题340道含答案)
- 大学物业管理知识培训课程课件
- 假体周围骨折课件
- 建筑工程施工安全与技术管理相关知识试卷
- 2025年高等教育工学类自考-02382管理信息系统历年参考题库含答案解析(5套典型题)
- 2025年人教版新教材数学三年级上册教学计划(含进度表)
- 医院移动护理系统
- 初中道德与法治名师讲座
- 急性胆源性胰腺炎护理查房
- 《血管内导管相关性血流感染预防与诊治指南(2025)》解读 4
- 法布里病护理查房
评论
0/150
提交评论