List1.[1]Textl.Text '将文本框中的内容添加到列表框中 Textl.Text="" Else MsgBox"请在文本框中输人信息！" End If End Sub Private Sub Command2_Click() List1.RemoveItem [2] '删除选定的项目 End Sub Private Sub Command3_Click() If Command3.Caption="修改"Then Text1.Text=[3] Text1.SetFocus Command1.Enabled=False Command2.Enabled=False Command3.Caption="修改确认” Else [4] =Text1.Text Commandl.Enabled=True Command2.Enabled=True Text1.Text=[5] Command3.Caption="修改" End If End Sub 五、编写程序题（共15分）】 3l.编写简单的工资计算程序，要求在Textl、Text2、Text3中分别输人基本工资、奖金、 扣款，单击“计算”按钮(Commandl)后，首先计算“应发工资”(Text4),然后根据“应发工资”计 算个人所得税(Text5),最后计算出实发工资(Text6)。 (1)应发工资=基本工资十奖金一扣款 (2)个人所得税的计算规则假设为： ①当应发工资在1000元以内部分（含1000元），不扣所得税。 1075List1. [lJ Textl. Text '将文本框中的内容添加到列表框中 Textl. Text="" Else MsgBox" 本框 入信 End If End Sub Private Sub Command2_ClickO Listl. RemoveItem [2J '删除选定的项目 End Sub Private Sub CommandLClickO If Command3. Caption=" 改"Then Textl. Text= [3J Textl. SetFocus Command!. Enabled=False Command2. Enabled=False Command3. Caption=" 改确 Else [4J =Textl. Text Command!. Enabled= True Command2. Enabled= True Text!. Text= [5J Command3. Caption="修改 End If End Sub 五、编写程序题{共 5分} 1. 写简 要求在Text1 、Text2 、Text3 基本工 奖金 '扣款，单击"计算"按钮 nd )后，首先计算"应发工资气 t的，然后根据"应发工资"计 算个人所得税 t日，最后计算出实发工资 t的。 (1)应发工资=基本工资+奖金一扣款 (2) 个人所得税 算规 ①当应发工资在 0 0 0元以内部分(含 0 0 0元) ，不扣所得税。 1075