アーティクル

#99 Article 1077 Posted at 1995/12/25 19:31:33 by 夢中ゆわ (MAP2717) [SAHOU.5]

Subject: Re: Re: プログラミング作法・５：回文の判定 /1072 /1063

'VisualBasic
Sub Command1_Click ()
Dim A As String, B As String * 1, C As String, I As Integer, D As Integer
A = text1.Text
For I = 1 To LenB(A)                      '英文字のみにする
 B = MidB$(A, I, 1) : D = Asc(B)
 If (&H41 <= D And D <= &H5A) Or (&H61 <= D And D <= &H7A) Then
  C = C + UCase$(B)
 End If
Next
I = 0 : J = Len(C) + 1
Do While I < J
 I = I + 1
 J = J - 1
 If MidB$(C, I, 1) <> MidB$(C, J, 1) Then '回文判定する
  J = 0
 End If
Loop
If J Then
 text2.Text = A
End If
End Sub

アルファベット判定が半分近くに(笑)

＃ＭＡＰ２７１７　夢中ゆわ