下面运行程序后，单击命令按钮，输出的结果是 【9】 。
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i)=i
Next
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun( a( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
Fun=t
End Function

在“观察水的沸腾”实验中：

(1) 如图所示，是小华同学用温度计测小烧杯中水的初温时的操作图。a是操作过程，b是读数过程，c是读取的温度；

①a图中操作的错误是                                     ；

②b图中读数的错误是                                      ；

③若操作正确无误，根据c图可知此时烧杯中水的实际温度是       ℃。

(2) 在“探究水沸腾”的实验中，观察到图(d)、(e)所示的两种情景，你认为______图是水沸腾时的情景；

(3) 实验中你还能观察到哪些实验现象(写出一条即可)；

(4) 小华同学在利用如图所示的装置做实验时，无论加热多长时间水始终不沸腾，请你帮助他找出可能存在的原因．(写出一条即可)