3.(6分) 37 4.(7分) 5！=120 四、完善程序题（共10分） [1]"E:" [2]Drivel.Drive [3]Filel.Path Dir1.Path [4]Picture [5]FileName 五、编写程序题（共15分） 参考答案： Private Sub Commandl_Click() Dim x As Integer,tax As Single x Val(Text1.Text) If x<=800 Then tax =0 Elself x<=5000 Then tax=(x-800)*0.2 Else tax=(x-5000)米0.22+4200*0.2 End If Label3.Caption tax End Sub Private Sub Command2_Click() Unload Me End Sub 13843. (6分 ) 37 4.(7分) 5!=120 四、完善程序题(共 10分) 〔1]"E:” 仁2] Drivel. Drive [3] Filel. Path二 Dirl. Path 仁4] Picture [5] FileName 五、编写程序题(共 15分 ) 参考答案 : Private Sub Command l_Click() Dim x As Integer, tax As Single x二 Val(Textl. Text) If x< = 800 Then tax = 0 Elself x< = 5000 Then tax = (x 一 800) 二 0.2 Else tax= (x一 5000) 二 0.22+ 4200 * 0. 2 End If Label3. Caption= tax End Sub Private Sub Command2 Click() Unload M e End Sub 1384