求1000~9999之间的零巧数.

来源：学生作业帮编辑：灵鹊做题网作业帮分类：数学作业时间：2024/04/29 17:46:19

求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

(1) Shu(i)
(2) AddItem n
(3) k=0
(4) Mid(n,3,2)

求1000~9999之间的零巧数. 求1000~9999之间的奇数回文数的个数? 求1000到9999之间所有回文数的个数求“师生之间”的作文! 求1000到9999之间所有回文数的个数C#编程 c++编程：求1~1000之间的完全平方数求2到1000之间的所有同构数之和编写程序：找出四位整数（1000至9999）之间的所有素数,求这些素数的和, 编一个求素数的函数,求3-1000之间的所有孪生素数求1000到9999之间满足前两位数字相同,后两位数字也相同的完全平方数. 求动物与动物之间的感人故事急求大神写两首歌之间的串场词!