编程设定一个函数过程F(m),对一个四位数m判断：已知该整数m,逆向排列(如：1368逆向排列为8631)获得另一个4位数,是它自身的倍数(2倍以上).主调程序调用该函数,显示1000～9999中满足该条件的数.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/18 02:32:05
编程设定一个函数过程F(m),对一个四位数m判断：已知该整数m,逆向排列(如：1368逆向排列为8631)获得另一个4位数,是它自身的倍数(2倍以上).主调程序调用该函数,显示1000～9999中满足该条件的数.
编程设定一个函数过程F(m),对一个四位数m判断：已知该整数m,逆向排列(如：1368逆向排列为8631)获得另一个4位数,是它自身的倍数(2倍以上).主调程序调用该函数,显示1000～9999中满足该条件的数.
编程设定一个函数过程F(m),对一个四位数m判断：已知该整数m,逆向排列(如：1368逆向排列为8631)获得另一个4位数,是它自身的倍数(2倍以上).主调程序调用该函数,显示1000～9999中满足该条件的数.
他们都给了你好的答案,但我要给你一个可以让你电脑半天反应不过来的程序,得到的结果是一样的.但你放心,不会损坏你的电脑的,只是给你参考一下 最慢算法.
Private Sub Form_Click()
Dim i,j,k,l,N,U,M As Integer
If List1.ListCount = 0 Then
For N = 1000 To 9999
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
If N = i * 1000 + j * 100 + k * 10 + l Then
U = l * 1000 + k * 100 + j * 10 + i
If U > N * 2 Then
List1.AddItem (N & " " & U)
M = M + 1
End If
End If
Next
Next
Next
Next
Next
List1.AddItem ("共" & M & "组"),0
End If
End Sub