Text1.Text Dirl.Path End Sub Private Sub Filel_click() Picturel.[4] LoadPicture(Filel.Path +"\"Filel.FileName) FileName Filel.Path +"\"Filel.FileName Textl.Text =[5] End Sub 得 分 评卷人 五、编写程序题（共15分） 按下述规定，编写一征收所得税程序。 (1)收入在800元以内，不纳税： (2)收人超过800元以上的部分，纳税20%： (3)当收人达到5000元或超过时，5000元以上的部分，纳税22%。 程序运行界面如图2所示： 。纳税程序 000 图2 1382Textl. Text“ Dirl. Path End Sub Private Sub Filel_click() Picturel. [4] = LoadPicture(File1. Path+ ”\，，+ Filel. FileName) FileName= Filel. Path+ ”\”+ Filel. FileName Textl. Text=[5] End Sub 得 分 评卷人 五、编写程序题 (共 15分) 按下述规定 ，编写一征收所得税程序。 (1)收人在800元以内，不纳税; (2)收人超过 800元以上的部分，纳税 20纬; (3)当收人达到 5000元或超过时，5000元以上的部分，纳税 22%, 程序运行界面如图 2所示: 1382