1樓：
private sub command1_click()dim n as integer, sum as longn = cint(text1.text)
if n > 1000 or n < 1 thenmsgbox "輸入數值超範圍"
exit sub
end if
for i = 0 to n step 3sum = sum + i
next
label1.caption = cstr(sum)end sub
2樓：一碑電影
在你的控制元件的單擊事件裡寫以下**：
dim n
dim sum
if trim(text1.text)>1000 or trim(text1.text)<1 then
msgbox "輸入數值超範圍"
exit sub
end if
sum=0
for n=1 to val(text1.text)if n mod 3 =0 then
sum=sum+n
end if
next n
label1.caption=sum
3樓：
private sub command1_click()dim tem as integer
dim num as integer
dim i as integer
tem = val(text1.text)if tem < 1 or tem > 1000 thenlabel1.caption = "數值超出範圍！"
else
for i = 1 to tem
if i mod 3 = 0 then
num = num + i
end if
next i
label1.caption = num
end if
end sub
4樓：匿名使用者
他們的這個方法我看了,都是可行的,可是效率沒達到最高,試試我的.還有我新增了一個功能就是能自己設定整除數
private sub command1_click()dim term as integer
dim term2 as integer
dim i as integer
dim n as integer
dim m as integer
term = val(text1.text)term2=val(text2.text)label2.caption="輸出整出數"
if term < 1 or term > 1000 thenlabel1.caption = "輸入數值超出範圍！"
else
for i = 1 to term
while (i mod term! = 0)do(i++)
m=term/term2
for n=1 to m
i=i+term2
next n
label1.caption = i
end if
end sub
5樓：司徒驚月
if val(text1.text) < 1 or val(text1.text) > 1000 then label1.
caption = "數值超出範圍！" : exit sub
for n = 3 to val(text1.text) step 3
s = s + n
next
label1.caption="和為:" & s
22、vb中的算術運算子*(乘)、/(除)、\(整除)、mod(取餘數)的運算優先順序相同。 錯
6樓：托馬斯高陽
先執行*(乘)、/(除)、\(整除)，再執行mod(取餘數)
vb6.0中整除（\）取餘（mod）是什麼意思？有何作用？
7樓：匿名使用者
1樓的回答有誤，
10\3=3, 這個是求整的意思，因為10除以3為3.33333，省掉小數即為3
10 mod 3=1，這個意思是取餘，因為10除以3等於3，餘數1。
希望能幫上你！
8樓：因特兒
舉個例子：
抄10\3=3
10mod3=1
mod可用來判斷能否整除，比如顯示1——100之間的偶數可以寫為：
for i=1 to 100
if i mod 2=0 then
print i
end if
next i
9樓：劉騰
算出的精確值下取整
mod是取餘數
10樓：匿名使用者
(1)"\":取商
例：7\5 結果：1
(2)"mod"：取餘數
例：7 mod 5 結果：2
vb裡的除 整除 mod是什麼
11樓：du錯錯錯
mod是求餘數，也叫取模運算子
是雙目運算子，具有右結合性
例如 msgbox (5 mod 2)
結果顯示的是1
這個如同c語言中的「/」運算子
12樓：
除：如10/3=3.3333333...，在資料型別允許的範圍內儘量保持小數點右側的數字；
整除：如10\3=3，只保留商的整數部分；
mod：只保留除後的餘數，如10 mod 3=1。
13樓：育知同創教育
mod是取餘
比如4mod3結果是1
vb整除問題，vb裡的除 整除 mod是什麼
private sub command1 click dim a as long a 19.5 print a a 18.5 print a a 4.5 print a end sub 摘自msdn 運算子 用來對兩個數作除法並返回一個整數。語法result number1 number2 運算子的...
整數與整除問題，數學問題，關於整數與整除的。
1 63 91 130 26 258是n的整數倍，分解為2 3 43，3個餘數和是26，平均每個餘數是，除數必定大於餘數，也就是說n 8,所以n 43或86或129，代入可得43符合條件。2 被11整除的數如果是兩位數，則各位數字之和為2,4,6,8,10，18，如果是三位數，則為121,132,1...
VB問題求助，Vb問題求助
看了半天你的 頭疼.看明白了,兩個do while檢查不嚴格,改成下面就可以了.do while cstr n cstr chr 10 and cstr n cstr chr 13 and cstr n do while cstr n cstr chr 10 and cstr n cstr chr ...