求1000~9999之间的零巧数.
零巧数：一个百位数字为0的四位数,如果去掉这个零得到三位数的9倍等于原数.
例如2025的百位数是0,去掉这个0,得到225.因为225 * 9 =2025,所以2025是零巧数.
函数Shu功能是判断是否是零巧数.其返回值：如果是零巧数,则返回三位零巧数；否则返回-1.
列表框1显示零巧数,列表框2显示对应的三位数.
Private Sub Command1_Click()
Dim i%,n%
For i = 1000 To 9999
n = (1)
If n > 0 Then '若是零巧数,则添加
List1.AddItem i
List2.(2)
End If
Next i
End Sub
Function Shu(n%) As Integer
Dim k%,m%
Shu = -1
k = Mid(n,2,1) '获取百位数
If (3) Then
m = Mid(n,1,1) & (4)
If m * 9 = n Then Shu = m
End If
End Function