| タイトル | ： 回文の判定 |
| 記事No | ： 8428 |
| 投稿日 | ： 2008/11/18(Tue) 23:43 |
| 投稿者 | ： 京介 |
初めまして。京介と申します。
今VBでアルファベットのみで回文をチェックするプログラムを作っているのですがうまくできません。
できているところまでのコードを載せますのでその後のコードを教えていただけないでしょうか？
よろしくお願いします。
ちなみに回文とは前から読んでも後ろから読んでも同じ文章になる文章のことです
Private Sub buthantei_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buthantei.Click
Dim strA, strB As String
Dim intA, i, x As Integer
Dim chrA As Char
strA = txtA.Text
strA = LCase(strA)
intA = Len(strA)
For i = 1 To intA Step 1
chrA = Microsoft.VisualBasic.Mid(strA, i, 1)
If Char.IsLetter(chrA, 1) Then
strB = strB & chrA
End If
Next
|