取10g硝酸钾和氯化钾的固体混合物，加水充分溶解，溶液中滴入足量的硝酸银溶液，产生白色沉淀0.01mol．计算：固体混合物中硝酸钾的质量．（写出计算过程）．

有如下函数过程：
Function Fun(ByVal x As Integer, ByVal y As Integer)As Integer
Do While y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是( )。
Private Sub Command1_Click()
Dima As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,B)
Print X
End Sub

A) 0
B) 25
C) 50
D) 100