1樓：硪丨曖戀
參考：private sub ***mand1_click()text1.text=trim(text1.
text)if isnumeric(text1.text) thenif text1.text = strreverse(text1.
text) then
msgbox text1.text & " 是迴文數。"
else
msgbox text1.text & " 不是迴文數。"
end if
else
msgbox text1.text & " 不是一個數字。"
end if
end sub
2樓：匿名使用者
最簡單的方法
是把數字轉化為字串r，在去掉前導r的空格後，檢查r是否和內strreverse(r)相等，如果容是，則是迴文數，否則不是。演算法：
n=12345
r=trim(str(n))
if r=strreverse(r) thenprint "是迴文數"
else
print "不是迴文數"
end if
急 求 vb判斷迴文數的**
3樓：匿名使用者
建一個text1,text2,***mand1。
text1,text2的multiline都設定為true。
**如下
內。＝＝
容＝＝＝＝＝＝＝＝＝＝
private sub ***mand1_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
4樓：匿名使用者
建一個text1,***mand1
private sub ***mand1_click()dim i
for i = 1 to fix(len(text1.text) / 2)
if mid(text1.text, i, 1) = mid(text1.text, (len(text1.text) - i) + 1, 1) then
if i = fix(len(text1.text) / 2) then
msgbox ("是
專")end if
else
msgbox ("不是
屬")exit for
end if
next i
end sub
vb在文字框1中輸入一串字元 在文字框2中判斷是否是迴文數
5樓：聽不清啊
private sub ***mand1_click()n = clng(text1)
n1 = n
while n > 0
m = m * 10 + n mod 10n = n \ 10
wend
text2 = iif(m = n1, "", "不抄")text2 = text2 & "是迴文數"
end sub
vb中編寫子過程對於已知正整數判斷該數是否為迴文數 30
6樓：
#include
#include
#include
using namespace std;
int main()
{while(1)
{string pre_str;
cin>>pre_str;
string rev_str=pre_str;
reverse(rev_str.begin(),rev_str.end());
rev_str==pre_str?cout<<"是回bai文
duzhi"<非回
dao文"<
VB程式找出101000以內的迴文數
for x 10 to 1000 if left x,1 right x,1 thenprint x if currentx scalewidth then print end if next vb程式設計求出100 999之間的所有迴文數,並按行輸出 private sub mand1 click...
判斷10000以內既是質數有是迴文數的數
program zhihuiwen var s string a array 1.4000 of longint i,j,k,n,r,l longint b boolean begin for i 2 to 10000 do begin for j 2 to trunc sqrt i dobegin...
VB中判斷數是否是整數的語句是什麼
dim a as double a inputbox 輸入一個整 數或小數 12.345 if fix a a then msgbox 是整數 else msgbox 不是整數 end if dim a as single a inputbox 輸入一個整數 或小數 55.345 if int a ...