下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim arr1()
Dim Min As Integer,i As Integer
arr1＝Array(12,435,76,-24,78,54,866,43)
Min＝______
For i＝2 To 8
If arr l(i)＜Min Then______
Next i
Text1＝Min
End Sub

如图是一个电热毯电路原理图。是R₀是电热毯中的电阻丝，R是与电热毯电阻丝串联的电阻，电热毯上标有“220V 100W”字样，S是控制电热毯处于加热状态或保温状态的开关。

（1）用学过的公式推理说明开关S断开时，电热毯是处于加热状态还是保温状态？

（2）若要求在保温时电流通过电阻丝R₀每秒钟有1J的电能转化为内能，电阻R的阻值应是多大？