求1000~9999之間的零巧數(shù).
零巧數(shù)：一個百位數(shù)字為0的四位數(shù),如果去掉這個零得到三位數(shù)的9倍等于原數(shù).
例如2025的百位數(shù)是0,去掉這個0,得到225.因?yàn)?25 * 9 =2025,所以2025是零巧數(shù).
函數(shù)Shu功能是判斷是否是零巧數(shù).其返回值：如果是零巧數(shù),則返回三位零巧數(shù)；否則返回-1.
列表框1顯示零巧數(shù),列表框2顯示對應(yīng)的三位數(shù).
Private Sub Command1_Click()
Dim i%,n%
For i = 1000 To 9999
n = (1)
If n > 0 Then '若是零巧數(shù),則添加
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) '獲取百位數(shù)
If (3) Then
m = Mid(n,1,1) & (4)
If m * 9 = n Then Shu = m
End If
End Function