下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=1³+5³+3³。
Option Explicit
Private Sub Form_Click()
Dim x1 As Integer,x2 As Integer,x3 As Integer
【9】
For i=100 To 999
x=i
x1= 【10】 个位数字
x2=x\10 Mod 10
x3=x\100
If 【11】 Then
Print i
End If
Next i
End Sub

空压机发生哪些情况会报警并自动停机？