vb 编程问题
求回文数 编码如下 哪里错了 Public Class Form1 Function ishui(ByVal x As Integer) As Boolean ishui = True Dim i As Integer For i = 1 To Len(x) / 2 If Mid(x, i, 1) <> Mid(x, Len(x) + 1 - i, 1) Then ishui = False Exit For End If Next End Function Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer n = TextBox1.Text If ishui(n) = True Then Label3.Text &= n & "★" + vbCrLf
答案：Public Class Form1 Function ishui(ByVal x As Integer) As Boolean ishui = True
Dim i As Integer
For i = 1 To Len(x) div 2
If Mid(x, i, 1) <> Mid(x, Len(x) + 1 - i, 1) Then
ishui = False
Exit For
End If
Next
End Function
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Label2.Click
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim n As Integer
n = TextBox1.Text
If ishui(n) = True Then Label3.Text &= n & "★" + vbCrLf
end sub
上一个：VB编程问题
下一个：VB 编程求助
