问题 填空题

下列框图涉及的物质所含元素中,除一种元素外,其余均为1~18号元素。

已知:A、F为无色气体单质,B为具有刺激性气味的气体,C为黑色氧化物,E为红色金属单质(部分反应的产物未列出)。请回答下列问题:

(1)D的化学式为        ;F的结构式为      

(2)A与B反应的化学方程式为                    

(3)E与G的稀溶液反应的离子方程式为                 

(4)B和C反应的化学方程式为                       

(5)J、K是同种金属的不同氯化物,K为白色沉淀。写出SO2还原J生成K的离子方程式                             

答案

(1)NO    N≡N

(2)4NH3+5O24NO+6H2O

(3)3Cu+8H++2N3Cu2++2NO↑+4H2O

(4)3CuO+2NH33Cu+N2+3H2O

(5)2Cu2++2Cl-+SO2+2H2O2CuCl↓+4H++S

由已知E为红色金属单质可推知E为Cu,又因为C为黑色氧化物且与B反应生成E(Cu),则知C为CuO。B为具有刺激性气味的气体,则知B为NH3,与CuO可发生反应:3CuO+2NH33Cu+N2+3H2O,由此可知F为N2。根据流程图“F(N2D”可知A应为O2,D为NO,再结合流程图可顺利推得G为HNO3,H为Cu(NO32,I为Cu(OH)2,J为CuCl2,据此可解答(1)~(4)小题。(5)由于J、K是Cu的不同氯化物,而J为CuCl2,则K只能为CuCl,其反应的离子方程式为:2Cu2++2Cl-+SO2+2H2O2CuCl↓+4H++S

单项选择题
问答题

【说明】
在Visual Basic程序中,设计一个“个人所得税计算器”,其应用程序的运行窗口如图6-16所示。


窗口中的3个文本框和两个按钮的名称分别为Txt_salary、Txt_base、TxL_tax、Cmd_compute和 Cmd_quit。“个人所得税计算器”程序运行时,文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击【计算】按钮(Cmd_compute后,Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_tax在运行时不接受用户输入,Txt_base的内容以灰色显示。
个人工资(或薪金)所得税是按照超额累进的税率来征收的,其计算方法如下:以每月收入总额减去免税金额基数后的余额作为该月的月应纳税所得额,再将应纳税所得额按相应级数采用相应的税率进行累进计算。目前的免税金额基数为1 600元,税率如表6-15所示。
表6-15 个人所得税税率表(工资、薪金所得适用)

级 数 全月应纳税所得额 税率(%)
 1  不超过500元的  5
 2  超过500元至2000元的部分  10
 3  超过2000元至5000元的部分  15
 4  超过5000元至20000元的部分  20
 5  超过20000元至40000元的部分  25
 6  超过40000元至60000元的部分  30
 7  超过60000元至80000元的部分  35
 8  超过80000元至100000元的部分  40
 9  超过100000元的部分  45
(注:本表所称全月应纳税所得额是指依照本法第六条的规定,以每月收入额减除费用1600元后的余额或者减除附加减除费用后的余额)
设某个人的全月应纳税所得额为M(元),用下面的公式计算其应缴纳的个人所得税额S(元):
若0<M≤500,则S=M×5%;
若500<M≤2000,则S=500×5%+(M-500)×10%;
若2000<M≤5000,则S=500×5%+1500×10%+(M-2000)×15%;
若5000<M≤20000,则S=500×5%+1500×10%+3000×15%+(M-5000)×20%;
假设某程序员2008年5月份工资总额为4700元,减去1600元后,应纳税所得额为3100元,其应缴纳的个人所得税额为500×5%+1500×10%+1100×15%=340元。
在开发过程中,需要编写的程序代码如下。
【Visual Bask程序】
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)
M= (1)
S = 0
If (M>0) Then
For j =1 To 9
If (2) Then
s=s+(paylevel(j)-paylevel(j-1))*taxPrate(j-1)/100
Else
(3)
Exit For
End if
Next j
End if
(4) =Str$(S)
End Sub
Private Sub Cmd_quit_Click()
End
End Sub
Private Sub Form_Load()
Txt_tax.Text = " "
Txt_salary.Text = " "
Txt_base.Text = 1600
Txt_tax.Locked = True
Txt_base.Enabled = (5)
End Sub

【问题2】
若要求在图6-16窗口中,用户输入月工资(或薪金收入)后,直接按回车键或向下方向箭就能使焦点(当前光标)跳到应扣除的基本费用的输入文本框,而不用【Tab】键进行切换。请将以下文本框ht_salary的KeyDown(按键)事件过程中空缺的程序代码填写完整。
If KeyCode = 13 Or KeyCode = 40 Then
(6)
End If