1樓:網海1書生
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之間的所有迴文數,並按行輸出
2樓:匿名使用者
private sub ***mand1_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
3樓:匿名使用者
首先說明抄什麼是迴文襲
數:左右對稱的自然數稱bai迴文數。如du121,4224,13731等你所出的題目是
zhi求三位dao數以內的所有迴文數,所以只要判斷第一位和第三位的數字是否一樣,一樣則為迴文數。**如下:private sub ***mand1_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
4樓:匿名使用者
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
編寫vb程式,找出給定範圍內所有的迴文數
5樓:匿名使用者
private sub ***mand1_click()dim a as string, n as integer, i as integer
a = text1.text
n = len(a)
for i = 1 to n
if mid(a, i, 1) <> mid(a, n - i + 1, 1) then exit for
next i
if i = n+1 then
print "是迴文數
"else
print "不是迴文數"
end if
end sub
6樓:劉師傅的一生
迴文?都不知道你在說什麼,我要舉報你
vb程式找出1到2019之間同時被3和7整除的，個位數3的數
dim i as integer,ii as integerfor i 1 to 1999 if i mod 3 0 and i mod 7 0 and right i,1 3 then ii ii 1 end if next print 總共有 ii 個同時被3和7整除，並個位數為3的數 for ...
VB程式中的問題，VB程式中的一個問題
1 我建議你好好看看書，這是很基礎的 2 a 定義的是一個陣列 3 0 代表的是a 陣列中的第一元素，也可以說是陣列中第一個變數 這樣說不太準確，可以這麼理解吧 4 每一個陣列a x 後面只要是寫等號，就是給這個陣列進行賦值的 例如你提問的 a 0 1 意思就是把1這個數賦值給a 0 因為你前面已經...
vb題 程式設計計算100以內素數的和
private sub command1 click dim i as integer,j as integer,k as integer for i 2 to 100 for j 2 to i if i mod j 0 then exit for end if next if i j then k...