1樓：
首先說明什麼是回文數：左右對稱的自然數稱回文數。如121，4224，13731等你所出的題目是求三位數以內的所有回文數，所以只要判斷第一位和第三位的數字是否一樣，一樣則為回文數。
**如下：private sub command1_click()
for i = 100 to 999 '100到999迴圈a$ = trim$(str(i)) '轉換成字串b = left$(a$, 1) '擷取左邊第一位d = right$(a$, 1) '擷取右邊第一位if b = d then '判斷左右是否相等,相等既是回文數.
t1.text = t1 + str(i)end if
next
end sub
2樓：聽不清啊
private sub command1_click()for i = 100 to 200
j = i
k = 0
while j > 0
k = k * 10 + j mod 10j = j \ 10
wend
if k = i then
if n > 0 then print "+";
n = n + 1
s = s + i
print i;
if n mod 5 = 0 then printend if
next i
print "="; s
end sub
vb程式,設計乙個過程,將100-200範圍內所有的回文數輸出出來 5
3樓：匿名使用者
private sub command1_click()dim j as long, x as longfor j = 100 to 200
if j mod 2 = 0 then
x = x + 1
if x = 6 then
print j
x = 0
else
print j;
end if
end if
next
end sub
ｖｂ程式設計求出１００～９９９之間的所有回文數，並按行輸出
4樓：匿名使用者
private sub command1_click()for i = 100 to 999 '從100到bai999迴圈if i = val(strreverse(str(i))) then 'strreverse()函式du是將字串zhi反序dao
print i '列印出符合版
條件權的數
end if
next i
end sub
5樓：匿名使用者
首先說明抄什麼是回文襲
數：左右對稱的自然數稱bai回文數。如du121，4224，13731等你所出的題目是
zhi求三位dao數以內的所有回文數，所以只要判斷第一位和第三位的數字是否一樣，一樣則為回文數。**如下：private sub command1_click()
for i = 100 to 999 '100到999迴圈a$ = trim$(str(i)) '轉換成字串b = left$(a$, 1) '擷取左邊第一位d = right$(a$, 1) '擷取右邊第一位if b = d then '判斷左右是否相等,相等既是回文數.
t1.text = t1 + str(i)end if
next
end sub
6樓：匿名使用者
private sub form_activate()dim i as integer, n as integerfor i = 100 to 999
if left(i, 1) = right(i, 1) thenprint i;
n = n + 1
if n mod 10 = 0 then printend if
next
end sub
編寫：輸出所有100 至200的範圍內回文數(編乙個程式，計算在100—200的範圍內回文數)
7樓：匿名使用者
這樣就可以了。只要判斷第百位跟各位是否一致就行了。
public staticvoid main()}console.writeline(sum);}
vb程式設計題隨機產生不重複的A Z之間的英文字母，按字母順序輸出，每行
給你個思路。首先，定義20個陣列。然後在過程里弄個for迴圈，比如for i 1 to 20利用隨機函式，生成65 90之間的函式，賦值到變數，比如 str int 90 65 1 rnd 65 再弄個for迴圈，比如for j 1 to i判斷是否重複 if 陣列名 j str thencall ...
夏天蘊含的哲理100 200字
夏，雖說既沒有春的盎然，也沒有秋的豐碩，更沒有冬的高潔。但我喜歡夏。它雖是乙個悶熱的季節，即使蟬熱得在樹上叫，狗熱得吐出舌頭，雞熱得拍打翅膀，但如果不是夏的赤誠，又何來秋的映照。我認為夏是誠實的，敢於面對的，太陽代表著它的誠意，蟬音代表著它的意志。相關說明 春生 夏長 秋收 冬藏，夏季是許多農作物旺...
用vb編寫利用隨機函式產生10 99之間（包括10和
dim n m,a 19 max max 0 for n 0 to 19 a n int rnd 90 10 生成20個10 99的隨機數 next n for n 0 to 18 for m n 1 to 19 if a n a m then swap a n a m 排序從小到大end if n...