1樓:匿名使用者
private sub ***mand1_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
編寫vb程式,找出給定範圍內所有的迴文數
2樓:匿名使用者
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
3樓:劉師傅的一生
迴文?都不知道你在說什麼,我要舉報你
vb程式設計求出100~999之間的所有迴文數,並按行輸出
4樓:匿名使用者
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
5樓:匿名使用者
首先說明抄什麼是迴文襲
數:左右對稱的自然數稱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
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
設計C 程式，設計一個C 程式
可能你的疑問是 和 這兩個運算子不是很瞭解吧？如果是這兩個運算子不瞭解的話 我給你舉個例子好了假設有個student類 student 運算子的用法 student stu1 stu1.id 100 cout stu1.id 的用法是 student stuptr stuptr id 100 cou...
用VB設計程式中遇到的問題，用VB設計程式中遇到的一個問題
哦，這樣的話應該先畫一個按鈕。預設命名command1。這裡舉例x y x y 然後 sub command1 click dim a as long 宣告a變數 a x y x y 記住不要加 if a 某值 then msgbox 等於這個值 else msgbox 不等於這個值 end if ...
vb設計檢測密碼程式，vb設計一個檢測密碼程式
你在自己寫的方法裡 加個static 關鍵字。這樣就可以直接通過 類名來呼叫了。也就是像呼叫系統函式那樣，不用new直接通過類名就可以呼叫了。完整 如下,初始化都已經做好啦,新增控制元件試試吧 dim ncount as integerprivate sub form load 初始化控制元件資訊 ...