1樓：原創文章工作室
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的數"
2樓：匿名使用者
for i=1 to 1999
if i mod 3*7 =0 and i mod 10=3 then print i :n=n+1
next
print n & "個"
3樓：匿名使用者
private sub command1_click()for i = 1 to 1999
if i mod 21 = 0 and i mod 10 = 3 then t = t + 1: print i, t
next i
end sub
4樓：匿名使用者
private sub command1_click()dim a(1 to 200) as integer, x as integer
for i = 1 to 1999
if i mod 3 = 0 and i mod 7 = 0 then
x = x + 1
a(x) = i
end if
next i
text1.text = x
for i = 1 to x
if i < x then
text2.text = text2.text & a(i) & ", "
else
text2.text = text2.text & a(i)end if
next i
end sub
vb程式設計，找出所有三位數中，能同時被3和7整除。。。。。。。。。。
5樓：匿名使用者
這一類問題可以採用列舉的方法來實現：
列舉演算法的特點8個字，一一列舉，逐個檢驗：
往往外面用迴圈來實現一一列舉，在迴圈中巢狀選擇，來實現逐個檢驗；
dim i as integer
for i = 100 to 999
選擇結構實現檢驗
next i
檢驗實現如下：
a = i \ 100 '獲得該三位數的百位數字
b = (i \ 10) mod 10 '獲得該三位數的十位數字
c = i mod 10 '獲得該三位數的個位數字
if i mod 3 = 0 and i mod 7 = 0 and a+b+c=18 then
這個i就是滿足條件的三位數了
end if
整個程式**：
option explicit
private sub command1_click()
dim i as integer '三位數
dim a as integer '三位數的百位
dim b as integer '三位數的十位
dim c as integer '三位數的個位
dim n as integer '滿足條件的個數
n = 0
for i = 100 to 999
a = i \ 100 '獲得該三位數的百位數字
b = (i \ 10) mod 10 '獲得該三位數的十位數字
c = i mod 10 '獲得該三位數的個位數字
if i mod 3 = 0 and i mod 7 = 0 and a + b + c = 18 then
print i, '輸出1個找到的數，但是不換行（注意這個逗號就是不換行）
n = n + 1 '找到一個，就在n裡增加1
if n mod 5 = 0 then print '如果n是5的倍數，就換行
end if
next i
print "有：" & n & "個三位數滿足條件。"
end sub
vb 程式:計算1-100之間所有能被3整除的數之和
vb程式設計， 找出100到500以內所有能同時被3、5、7整除的正整數，並用變數n記錄有多少個數。
6樓：匿名使用者
private sub form_click()dim i as integer, n as integerfor i = 100 to 500
if i mod 3 = 0 and i mod 5 = 0 and i mod 7 = 0 then
print i; " ";
n = n + 1
end if
next i
print "共有" & n & "個"
end sub
VB程式找出101000以內的迴文數
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之間的所有迴文數,並按行輸出 private sub mand1 click...
vb求階乘程式問題，vb中求1到n階乘的和
程式呢，請補充一下吧 option explicit private sub command1 click dim a as integer a int val text1.text text2.text jiec a end sub private function jiec n as integ...
用VB程式將1到25的自然數依次賦值給5 5的二維陣列並且輸出陣列的下三角
如下 private sub mand1 click dim a 1 to 6,1 to 6 as integerfor i 1 to 5 for j 1 to 5 tmp 99 if i tmp then tmp i end if if j tmp then tmp j end if if 6 i...