程序执行结果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

如图所示为“制造云和雨”的实验装置，在一只加少许湿沙子的大烧杯口盖一只盘子，盘里放入一些冰块，给烧杯加热。则该实验中发生的物态变化有_______ 、_______ 、 ______________ 。