找出所有4位数的升序数和回文数,使用函数实现回文数和升序数的判断.用VB编程,马上啊.1、单击“回文数”按钮,找出所有4位数中的回文数.2、单击“升序数”按钮,找出所有4位数中的升序数.3
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 11:55:18
![找出所有4位数的升序数和回文数,使用函数实现回文数和升序数的判断.用VB编程,马上啊.1、单击“回文数”按钮,找出所有4位数中的回文数.2、单击“升序数”按钮,找出所有4位数中的升序数.3](/uploads/image/z/2756144-56-4.jpg?t=%E6%89%BE%E5%87%BA%E6%89%80%E6%9C%894%E4%BD%8D%E6%95%B0%E7%9A%84%E5%8D%87%E5%BA%8F%E6%95%B0%E5%92%8C%E5%9B%9E%E6%96%87%E6%95%B0%2C%E4%BD%BF%E7%94%A8%E5%87%BD%E6%95%B0%E5%AE%9E%E7%8E%B0%E5%9B%9E%E6%96%87%E6%95%B0%E5%92%8C%E5%8D%87%E5%BA%8F%E6%95%B0%E7%9A%84%E5%88%A4%E6%96%AD.%E7%94%A8VB%E7%BC%96%E7%A8%8B%2C%E9%A9%AC%E4%B8%8A%E5%95%8A.1%E3%80%81%E5%8D%95%E5%87%BB%E2%80%9C%E5%9B%9E%E6%96%87%E6%95%B0%E2%80%9D%E6%8C%89%E9%92%AE%2C%E6%89%BE%E5%87%BA%E6%89%80%E6%9C%894%E4%BD%8D%E6%95%B0%E4%B8%AD%E7%9A%84%E5%9B%9E%E6%96%87%E6%95%B0.2%E3%80%81%E5%8D%95%E5%87%BB%E2%80%9C%E5%8D%87%E5%BA%8F%E6%95%B0%E2%80%9D%E6%8C%89%E9%92%AE%2C%E6%89%BE%E5%87%BA%E6%89%80%E6%9C%894%E4%BD%8D%E6%95%B0%E4%B8%AD%E7%9A%84%E5%8D%87%E5%BA%8F%E6%95%B0.3)
找出所有4位数的升序数和回文数,使用函数实现回文数和升序数的判断.用VB编程,马上啊.1、单击“回文数”按钮,找出所有4位数中的回文数.2、单击“升序数”按钮,找出所有4位数中的升序数.3
找出所有4位数的升序数和回文数,使用函数实现回文数和升序数的判断.用VB编程,马上啊.
1、单击“回文数”按钮,找出所有4位数中的回文数.
2、单击“升序数”按钮,找出所有4位数中的升序数.
3、使用函数实现回文数和升序数的判断.
找出所有4位数的升序数和回文数,使用函数实现回文数和升序数的判断.用VB编程,马上啊.1、单击“回文数”按钮,找出所有4位数中的回文数.2、单击“升序数”按钮,找出所有4位数中的升序数.3
VB6.0版本的可以吗?
我用的是构成法.
Option Explicit
Dim a, b, c, d, n
Private Sub Command1_Click()
For a = 1 To 9
For b = 0 To 9
n = a * 1000 + b * 100 + b * 10 + a
List1.AddItem n
Next
Next
End Sub
Private Sub Command2_Click()
For a = 1 To 6
For b = a + 1 To 7
For c = b + 1 To 8
For d = c + 1 To 9
n = a * 1000 + b * 100 + c * 10 + d
List2.AddItem n
Next
Next
Next
Next
End Sub
上面用的是构成法.
判断的:
Option Explicit
Dim s(4)
'回文数,用函数判断法
Private Sub Command1_Click()
Dim n As Integer
For n = 1001 To 9999
If (huiwenNun(n)) Then List1.AddItem n
Next
End Sub
'采用数字分离法
Function huiwenNun(n As Integer) As Boolean
Dim a, b, c, d
a = Int(n / 1000)
b = Int((n - a * 1000) / 100)
c = Int((n - a * 1000 - b * 100) / 10)
d = n - a * 1000 - b * 100 - c * 10
If a = d And b = c Then huiwenNun = True
End Function
'升序数,没有重复数字的
Private Sub Command2_Click()
Dim n As Integer
'For n = 1000 To 9999
For n = 1234 To 6789
If (sxNun(1234)) Then List2.AddItem n
Next
End Sub
'与上面不用的数字分离方法.还可以“按位”提取数字
Function sxNun(n As Integer) As Boolean
s(1) = Mid(n, 1, 1)
s(2) = Mid(n, 2, 1)
s(3) = Mid(n, 3, 1)
s(4) = Mid(n, 4, 1)
If s(1) < s(2) And s(2) < s(3) And s(3) < s(4) Then sxNun = True
End Function