<p class="MsoNormal" style="text-indent: -21pt; margin: 0cm 0cm 0pt 21pt; mso-char-indent-count: -1.5;"><span style="font-family: 宋體; font-size: 14pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">判斷回文。如果一個(gè)字符串正反讀字符順序都相同，稱之為回文，例如，</span><span style="font-size: 14pt;"><span style="font-family: Times New Roman;">level,madam</span></span><span style="font-family: 宋體; font-size: 14pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman';">。編制一個(gè)程序，輸入任意一個(gè)字符串，判斷它是否為回文字符串。</span><span style="font-size: 14pt;"></span></p>
2 回答
呼喚遠(yuǎn)方
TA貢獻(xiàn)1856條經(jīng)驗(yàn) 獲得超11個(gè)贊
Function Check(ByVal str As String) As Boolean
Dim re As Boolean = True
Dim length As Integer
length = str.Length
Dim mid As Integer
mid = Math.Floor(length / 2)
Dim i As Integer = 0
Dim j As Integer = 0
Dim k As Integer = 0
Dim firstStr As String
Dim lastStr As String
If length Mod 2 <> 0 Then
For i = 0 To mid
j = i
k = mid * 2 - i
firstStr = str(j)
lastStr = str(k)
If firstStr <> lastStr Then
re = False
Exit For
End If
Next
Else
re = False
End If
Return re
End Function
繁花不似錦
TA貢獻(xiàn)1851條經(jīng)驗(yàn) 獲得超4個(gè)贊
vb的語法忘了，我用.net些吧
char[] ch=str.ToChar();
bool b=false;
if(ch.length\2!=0)
{
for(int i=0;i<=(ch.length-1)/2;i++)
{
if(ch[i]==ch[ch.length-1-i])
{
b=true;
continue;
}
else
{
b=false;
break;
}
}
return b;
}
- 2 回答
- 0 關(guān)注
- 415 瀏覽
添加回答
舉報(bào)
0/150
提交
取消