程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click()
Dim i As Integer
i=3
Call sub1(i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub

在一符合亨利的气液平衡系统中，溶质在气相中的摩尔浓度与其在液相中的摩尔浓度的差值为（）。

A.正值；

B.负值；

C.零；

D.不确定。