Private Sub Judge_Click( )
Dim x As Integer, i As Integer
Dim y As Long, flag As Boolean
flag = False
x = Val(Text1.Text)
i = 10
Label2.Caption = "该数的平方是:" + Str(y)
Do While y \ i > 0 And flag = False
t1 = y \ i
t2 = y Mod i
If Then
flag = True
Label3.Caption = Str(t1) + "+" + Str(t2) + " = " + Str(x)"
End If
i =
Loop
If Not flag Then Label3.Caption = "该数不是卡普利加数"
End Sub