求1000~9999之间的零巧数.
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/08/24 11:04:48
求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
零巧数:一个百位数字为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)
(2) AddItem n
(3) k=0
(4) Mid(n,3,2)