●試題五

　　閱讀以下應用說明及Visual Basic程序代碼，將應填入(n)處的字句寫在答題紙的對應欄內。

　　【說明】

　　本應用程序的運行窗口如圖所示。

　　窗口中的3個文本框和兩個按鈕名稱分別為Txt_salary、Txt_base、Txt_tax、Cmd_compute和Cmd_quit。運行時，文本框Txt_base中存放的是免稅金額基數(應扣除的基本費用)。當用戶在文本框Txt_salary中輸入月收入(工資或薪金)并單擊"計算"按鈕Cmd_compute后，Txt_tax框中就顯示計算所得的應納稅額。文本框Txt_base和Txt_tax在運行時不接受用戶輸入，Txt_base的內容以灰色顯示。

　　個人工資(或薪金)所得稅是按照超額累進的稅率來征收的，方法是：以每月收入總額減去免稅金額基數后的余額作為該月的月應納稅所得額，再將應納稅所得額按相應級數采用相應的稅率進行累進計算。目前的免稅金額基數為800元，稅率如表1所示。

　　設一個人的月應納稅所得額為K(元)，用下面的公式計算其應繳納的個人所得稅額S(元);

　　若0

　　若500

　　若2000

　　若5000

　　…

　　例如，某人某月工資總額為4100元，減去800元后，應納稅所得額為3300元，其應繳納的個人所得稅額為500*5%+1500*10%+1300*15%=370元。

　　在開發過程中，需要編寫的程序代碼如下;

　　【程序】

　　Option Base 0

　　Private Sub Cmd_compute_Click()

　　Dim paylevel，taxPrate

　　paylevel=Array(0，500，2000，5000，20000，40000，60000，80000，100000，1000001)

　　taxPrate=Array(5，10，15，20，25，30，35，40，45)

　　K= (1)

　　S=0

　　If(K>0)Then

　　For j=1 To 9

　　If (2) Then

　　S=S+(paylevel(j)-paylevel(j-1))*taxPrate(j-1)/100

希望與其他軟考考生進行交流？點擊進入軟考論壇>>>

進入考試吧博客記錄下自己的備考歷程吧

更多信息請訪問：考試吧軟件水平考試欄目