育才学习网1. VB判断回文数程序怎么打
建一个Text1,Text2,Command1。
Text1,Text2的Multiline都设置为True。代码如下。
Private Sub Command1_Click()Text2.Text = ""Dim a, i As Integer, n, s As Stringa = Split(Text1.Text, vbCrLf)For Each n In as = s & nIf n = StrReverse(n) Then s = s & "★"s = s & vbCrLfNextText2.Text = sEnd Sub。
2. VB判断回文数程序怎么打
建一个Text1,Text2,Command1。
Text1,Text2的Multiline都设置为True。
代码如下。
Private Sub Command1_Click()
Text2.Text = ""
Dim a, i As Integer, n, s As String
a = Split(Text1.Text, vbCrLf)
For Each n In a
s = s & n
If n = StrReverse(n) Then s = s & "★"
s = s & vbCrLf
Next
Text2.Text = s
End Sub
3. 帮我编程一个回文数的vb程序
Private Sub Command1_Click()
Dim I As Integer, J As Integer, S As Integer, T As Integer
For I = 100 To 900
T = (I Mod 10) * 100 + (I \ 10 Mod 10) * 10 + I \ 100
If T = I And I Mod 3 = 0 Then Print I
Next
End Sub
4. vb 小于100000的回文数怎么写
Dim k, i, m, n, l As Integer
Private Sub Command1_Click()
For k = 10 To 999 Step 1
l = Len(k)
For i = 1 To l
m = Mid(k, i, 1)
n = Mid(k, l - i + 1, 1)
If m n Then Exit For
Next i
If i > l Then Print k
Next k
End Sub
5. 编写vb程序,找出给定范围内所有的回文数
Private Sub Command1_Click()
Dim a As String, n As Integer, i As Integer
a = Text1.Text
n = Len(a)
For i = 1 To n
If Mid(a, i, 1) <> Mid(a, n - i + 1, 1) Then Exit For
Next i
If i = n+1 Then
Print "是回文数"
Else
Print "不是回文数"
End If
End Sub
转载请注明出处育才学习网 » vb回文数程序怎么写