求1000~9999之间的零巧数.零巧数:一个百位数字为0的四位数,如果去掉这个零得到三位数的9倍等于原数.例如2025的百位数是0,去掉这个0,得到225.因为225 * 9 =2025,所以2025是零巧数.函数Shu功能是判
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 00:41:38
![求1000~9999之间的零巧数.零巧数:一个百位数字为0的四位数,如果去掉这个零得到三位数的9倍等于原数.例如2025的百位数是0,去掉这个0,得到225.因为225 * 9 =2025,所以2025是零巧数.函数Shu功能是判](/uploads/image/z/2633233-49-3.jpg?t=%E6%B1%821000%7E9999%E4%B9%8B%E9%97%B4%E7%9A%84%E9%9B%B6%E5%B7%A7%E6%95%B0.%E9%9B%B6%E5%B7%A7%E6%95%B0%EF%BC%9A%E4%B8%80%E4%B8%AA%E7%99%BE%E4%BD%8D%E6%95%B0%E5%AD%97%E4%B8%BA0%E7%9A%84%E5%9B%9B%E4%BD%8D%E6%95%B0%2C%E5%A6%82%E6%9E%9C%E5%8E%BB%E6%8E%89%E8%BF%99%E4%B8%AA%E9%9B%B6%E5%BE%97%E5%88%B0%E4%B8%89%E4%BD%8D%E6%95%B0%E7%9A%849%E5%80%8D%E7%AD%89%E4%BA%8E%E5%8E%9F%E6%95%B0.%E4%BE%8B%E5%A6%822025%E7%9A%84%E7%99%BE%E4%BD%8D%E6%95%B0%E6%98%AF0%2C%E5%8E%BB%E6%8E%89%E8%BF%99%E4%B8%AA0%2C%E5%BE%97%E5%88%B0225.%E5%9B%A0%E4%B8%BA225+%2A+9+%3D2025%2C%E6%89%80%E4%BB%A52025%E6%98%AF%E9%9B%B6%E5%B7%A7%E6%95%B0.%E5%87%BD%E6%95%B0Shu%E5%8A%9F%E8%83%BD%E6%98%AF%E5%88%A4)
求1000~9999之间的零巧数.零巧数:一个百位数字为0的四位数,如果去掉这个零得到三位数的9倍等于原数.例如2025的百位数是0,去掉这个0,得到225.因为225 * 9 =2025,所以2025是零巧数.函数Shu功能是判
求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
求1000~9999之间的零巧数.零巧数:一个百位数字为0的四位数,如果去掉这个零得到三位数的9倍等于原数.例如2025的百位数是0,去掉这个0,得到225.因为225 * 9 =2025,所以2025是零巧数.函数Shu功能是判
(1) Shu(i)
(2) AddItem n
(3) k=0
(4) Mid(n,3,2)