1樓：念憶
private sub command1_click()dim i%, n%, s%
n = val(inputbox("n="))for i = 1 to n
if i mod 3 = 0 and i mod 7 <> 0 then s = s + i
next
在vb中，註釋有2種方式：
1、以rem關鍵字開頭，並且rem關鍵字與註釋內容之間要加一個空格。註釋可以是單獨的一行，也可以寫在其他語句行的後面。
2、使用一個撇號（'）來代替rem關鍵字。若使用撇號，則在其他語句行使用時不必加冒號。
2樓：匿名使用者
for i=1 to n
if i mod 3=0 and i mod 7<>0j=j+i
endif
next i
msgbox j
vb 編寫程式 計算100到200之間能被3整除但不能被7整除的所有整數的和 並把結婚果在訊息對話方塊中顯示出來
3樓：匿名使用者
private sub form_click()for i = 100 to 200
if i mod 3 = 0 and i mod 7 <> 0 then
s = s + i
end if
next
t = msgbox("結果是" & s, vbokonly, "你的答案")
end sub
4樓：順之則昌啊
就一個迴圈+一個判斷而已，你也太懶了吧
vb程式設計：求在[1~1000]區間中的所有整數中能被3整除的數的個數及能被7整除的數的個數，用迴圈語句；
5樓：
private sub command1_click()dim i,a,b
for i=1 to 1000
if i mod 3=0 then a=a+1if i mod 7=0 then b=b+1next
print "1~1000中能被3整除的數的個數=" & aprint "1~1000中能被7整除的數的個數=" & bend sub
用vb程式設計.求200到400間,能被3整除但不能被7整除的數的個數,
6樓：影者東昇
sub main()
dim i as integer
dim count as integer
for i = 200 to 400
if 0 = (i mod 3) and 0 <> i mod 7 then
count = count + 1
else
end if
next i
console.writeline("200到400間,能被3整除但不能被7整除的數的個數: " & count)
end sub
結果如下：
7樓：匿名使用者
新增一個text控制元件和一個command控制元件輸入**即可。
private sub command1_click()text1.text = 0
dim s
for s = 200 to 400
if s mod 3 = 0 and s mod 7 <> 0 then text1.text = text1.text + 1
next s
end sub
如果要把數字也顯示到窗體上
private sub command1_click() '注意窗體的大小！！！！
text1.text = 0
dim s
for s = 200 to 400
if s mod 3 = 0 and s mod 7 <> 0 then
text1.text = text1.text + 1print s
end if
next s
end sub
有什麼不懂可以追問
8樓：匿名使用者
private sub command1_click()dim i as integer, n as integerfor i = 200 to 400
if i mod 3 = 0 and i mod 7 <> 0 then
n = n + 1
end if
next
msgbox n
end sub
vb中，怎樣產生1 n之間的隨機整數
看看這個,你一定會懂的 rnd函式 返回 返回一個包含隨機數值的 single。語法rnd number 可選的 number 引數是 single 或任何有效的數值表示式。返回值如果 number 的值是 rnd 生成 小於 0 每次都使用 number 作為隨機數種子得到的相同結果。大於 0 序...
vb中怎樣實現計算1n的奇偶數之和n為自然數
及註釋如下 復 private sub mand1 click for i 1 to n i從1到n迴圈 if i mod 2 0 then 利用制mod函式來判bai斷i的值是偶du數還是奇zhi數 oushuhe oushuhe i 如果是偶數，就將其累加dao到oushuhe變數中else j...
數學題，怎麼求當n趨向於無窮大時1n
解題過程如下 令s n 1 n 1 1 n 2 1 n n n n 有s n s n 1 1 2n 1 1 2n 於是可構造另外一個序列 a n 1 2n 1 1 2n 其和也為s n 那麼s n a n 1 1 2 1 3 1 4 1 2n 1 1 2n n 時，這是一個無窮級數 設定義在 1,1...