把7克含杂质的锌片（杂质不与盐酸反应）投入100克足量的稀盐酸里，反应停止后所得混合物的总质量为106.8克。计算：

（1）反应后生成氢气的质量；

（2）不纯的锌片中单质锌的质量分数。（计算结果精确到0.1%）

单击命令按钮，下列程序的执行结果为　　Private Sub Commandl_Click()　　　　Dim x As Integer，y As Integer　　　　x=32：y=42　　　　Call PCS(x，y)　　　　Print x；y　　End Sub　　Public Sub PCS(Byval n As Integer，ByVal m As Integer)　　　　n=n Mod 10+1　　　　m=m Mood 10+1　　End Sub

A．32 42

B．2 32

C．2 3

D．12 3