1樓：愛笑的無聊之氣
dim i as integer
for i = 201 to 300
if ((i mod 3)= 0 ) and ((i mod 7) = 0)
print (cstr(i))
sum=sum + i
end if
next
print sum
vb程式設計題：單擊窗體，在窗體上顯示1~200之間既能被5整除又能被7整除的數的和
2樓：匿名使用者
private sub form_click()dim i as long, a as longa = 0
for i = 1 to 200
if i mod 5 = 0 and i mod 7 = 0 then
print i
a = a + i
end if
next
print "以上是同時被5和7整除的數，和=" & aend sub
3樓：精樸電池
' 單擊窗體函式裡面的**：
dim i as integer ' 從1~200dim count as integer ' 儲存所求的和for i=1 to 200
if (i mod 5 = 0) and (i mod 7 = 0) then
count = count + i
end if
next i
4樓：
for迴圈1到200，執行除5為ture再除7 ，ture就壘加到變數裡。
**就不給了，很簡單。
用vb程式設計.求200到400間,能被3整除但不能被7整除的數的個數,
5樓：影者東昇
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
結果如下：
6樓：匿名使用者
新增一個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
有什麼不懂可以追問
7樓：匿名使用者
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程式設計，窗體中有命令按鈕。程式執行時，單擊“顯示”命令按鈕，在窗體上顯示1000以為個位數
均勻排列 如下 private sub command1 click dim i as integer dim j as integer dim k as integer dim a 5 as string i 5 k 0 for j 1 to 1000 i i 5 if i mod 3 0 and...
急求 VB程式設計題目,謝謝，求1道小學VB程式設計題目 謝謝
dim a 0 to 3 private sub command1 click index as integer list1.additem index end sub private sub command2 click dim n,m m 0 n 0 for i 0 to 3 for j 0 t...
vb程式設計裡，如何實現點選窗體中文字框出現日曆控制元件,然後可以選擇相應的日期,填入文字框,日曆控制元件消失
這個解答完全符合你的要求 首先在預設form1窗體上畫一個文字框text1 再畫一個日曆控制元件monthview1，記得是monthview1控制元件，你自己排列好它們兩個的位置即可，一切都按預設 不用改屬性 然後複製以下 到form1的 視窗裡執行即可看到結果啦 如圖 private sub f...