当前文件夹中的文件salary存放职工的工资和职称情况，每条记录由工号、工资、职称组成，之间用逗号分隔。

襄阳城

<p>当前文件夹中的文件salary存放职工的工资和职称情况，每条记录由工号、工资、职称组成，之间用逗号分隔。</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：0 -</p>
<p>解决时间：2010-6-28 09:52</p>
<p>当单击窗体时，对有职称的职工加工资，高级工程师加20%工程师加10%助理工程师加10%，其他人不加工资。把调整后数据保存到salary1.text文件中，同时数据成功保存后系统使用消息对话框给出提示：工资调整保存成功。</p>
<p>提问者： woshipt1105 - 一级</p>
<p>最佳答案</p>
<p>Option Explicit</p>
<p>Private Sub Form_Click()</p>
<p>Dim No As String</p>
<p>Dim Salary As Integer</p>
<p>Dim Level As String</p>
<p>Open "salary1.txt" For Input As #1</p>
<p>Open "salary2.txt" For Output As #2</p>
<p>While Not EOF(1)</p>
<p>Input #1， No， Salary， Level</p>
<p>Select Case Level</p>
<p>Case "高级工程师"</p>
<p>Salary = Salary * 1.2</p>
<p>Case "工程师"</p>
<p>Salary = Salary * 1.1</p>
<p>Case "助理工程师"</p>
<p>Salary = Salary * 1.05</p>
<p>End Select</p>
<p>Write #2， No， Salary， Level</p>
<p>Wend</p>
<p>Close #1</p>
<p>Close #2</p>
<p>Kill "salary1.txt"</p>
<p>FileCopy "salary2.txt"， "salary1.txt"</p>
<p>Kill "salary2.txt"</p>
<p>MsgBox "工资调整保存成功"， vbInformation</p>
<p>End Sub</p>
<p>0</p>
<p>回答者：</p>
<p>远风的梦想家 - 八级   2010-6-28 09:29</p>
<p>我来评论>></p>