VB课程设-20-.docVIP

职工医药费报销管理设计报告 学院 班级 学号 117 姓名 成绩 一、设计思路 1.要达到的目的 ①培养学生综合利用语言进行程序设计的能力 三、部分程序关键源代码及注释 Private gl(44) As Integer, sy(44) As Single, bh(44) As String, bl!(44), bx!(44), n As Integer 定义工龄 实用医药费 和工号数组 报销比例，报销金额 Private Sub Command1_Click(Index As Integer) Command2.Enabled = True Dim x As String, i% n = 0 cd1.ShowOpen 以“打开”方式显示对话框 cd1.Filter = 文本文档 (*.txt) | *.txt 设定对话框的文件过滤选项 Text1.Text = 职工编号 工龄 实用医药费 报销比例 报销金额 vbCrLf Open cd1.FileName For Input As #1 打开输入文件 Do While Not EOF(1) 循环制文件尾 Line Input #1, x 读取数据变量 bh(n) = Mid(x, 2, 5): gl(n) = Val(Mid(x, 11, 2)): sy(n) = Val(Mid(x, 14, 6)) n = n + 1 Loop For i = 0 To n - 1 Text1.Text = Text1.Text + bh(i) Format(gl(i), 00) Format(sy(i), 000.00) vbCrLf Next i Close #1 关闭文件 End Sub Private Sub Command3_Click() Dim i% Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True For i = 0 To n - 1 bx(i) = sy(i) * bl(i) Next i Text1.Text = 职工编号 工龄 实用医药费 报销比例 报销金额 vbCrLf For i = 0 To n - 1 Text1.Text = Text1.Text + bh(i) Format(gl(i), 00) Format(sy(i), 000.00) Format(bl(i), 0.00) Format(bx(i), 000.00) vbCrLf Next i End Sub 四、设计方案的完善及目前存在的问题 1．设计方案要完善的地方 ①背景颜色的设置 ③设计出的界面进行美观设计。 2. 目前存在的问题 ①创新还不足 ②界面不够美观 ③背景颜色设置还有错误 五、本次设计的收获及心得体会 由于平时对VB基础课程学的不太好，所以在课程设计期间我好好看了一遍课本，又查了与自己的设计题目有关的知识，经过这次课程设计，加深了对VB的认识，也为期末考试做了准备。 六、对该题目和VB设计的意见和建议 1. 对该题目的意见和建议 题目中用到的基础知识在课堂上学过，但在基础上又加深了，有些知识得自学，就是希望在题目中多添加基础知识，对处学者是比较好。 2．对本次设计的意见和建议 实践课可以锻炼我们的自己独立思考的能力，让我们接触课堂外的一些知识，拓宽我们的知识面。希望各位老师能够是题目的种类更多，这样同学们可以有更多的选择，做一些自己感兴趣的题目。还有就是 我觉得在设计过程中，老师应在机房里面进行指导，这样对于本