1樓：
'求500以內最大的10個能被13或17整除的自然數之和private sub form_click()dim a(1 to 10), i, j as integerfor i = 1 to 500
if (i mod 13 = 0) or (i mod 17 = 0) then a(1) = a(2): a(2) = a(3): a(3) = a(4):
a(4) = a(5): a(5) = a(6): a(6) = a(7):
a(7) = a(8): a(8) = a(9): a(9) = a(10):
a(10) = i
next i
for i = 1 to 10
print a(i)
j = j + a(i)
next i
msgbox j
end sub
2樓：
dim a(1 to 10), i, j as integer,sum
'求10個能被13或17整除的數,存入陣列j=10
for i=500 to 1 step -1if i mod 13=0 or i mod 17=0 thena(j)=i
j=j-1
end if
if j=0 then exit for
next i
'求和for j=1 to 10
sum=sum+a(j)
next j
求vb題目解答，急急急！！！
3樓：匿名使用者
迴圈結構1
第一個問號 ch<>"?"
第二個問號 "a" to "z"
第三個問號 loop
程式設計題
private sub form_click()dim sum as integer
sum = 0
for i = 200 to 300
if i mod 3 = 0 and i mod 7 = 0 then sum = sum + i
next i
print sum
end sub
vb題目，希望有儘可能詳細的解釋，急急急！！！！！謝謝了 4.執行下面程式,單擊按鈕cmdrun,
4樓：然後去遠足
第一空 dccd
第二空 2
第三空 c
**不復雜，哪一行**不理解？請追問
vb大神求幫忙，急急急急急急！！！！！！
5樓：己曼寒
for i = 1 to len(s)
a=asc(mid(s,i,1))
if a>=65 and a<=90 thenj=j+1
end if
next
fun=j
6樓：匿名使用者
dim i as integer
fun = 0
for i = 1 to len(text1.text)if asc(mid(text1.text, i, 1)) >= 65 and asc(mid(text1.
text, i, 1)) <= 90 then
fun = fun + 1
end if
next
vb問題 高分 急急急急急急急急急！！！！！回答的好加高分！！！！！！**等！！！！！
7樓：匿名使用者
----------------------------------------------
dim o as integer = 1, j as integer = 1
textbox2.text = ""
for each i in split(textbox1.text, vbcrlf)
doif o = 5 then
j = j + 1
o = 0
end if
if o = 1 then textbox2.text = textbox2.text & "----這是第" & j & "頁----" & vbcrlf
textbox2.text = textbox2.text & left(i, 5) & vbcrlf
i = mid(i, 6)
o = o + 1
loop while len(i) > 0
next
8樓：匿名使用者
我覺得你的描述還是不清楚，到底要達到什麼效果。
vb問題 高分 急急急急急急急急急！！！！！回答的好加高分！！！！！！**等！！！！！
9樓：匿名使用者
將string進行分割是可以做到的。只是你說的「頁」是什麼概念，請明示。
張志晨：分成了你所說的頁，然後要怎樣？
第二個問題的敘述，沒明白意思。是想全看見？還是想把沒看見的部分告訴使用者？
10樓：匿名使用者
能，用picturebox或textbox都可以
11樓：
e dddddd
求解這道vb題的**。急急急急！！！！！！！！！！
12樓：匿名使用者
dim a(1 to 10)%
private sub form_load()for i =1 to 10
a(i)=int(rnd*91+10)
list1.additem a(i)
next i
end sub
private sub command1_click()for i =1 to 9
for j =1 to 9-i
if a(j) next j next i for i =1 to 10 list2.additen a(i) next i end sub private sub command4_click()unload me end sub 查詢你自己再想想 13樓： 自己看書去吧，這個題不難，，，，不過這個想法很好 給你回答第一個問題，後面的2個問題相對來說簡單多了 private sub mand1 click dim arr 1 to 4 as long,a as long,b as long,i as long,j as long arr 1 inputbox 輸入第一個數分子 arr 2 inputbo... 比如草坪上面愛惜小草的牌子，寫著 請讓我們的腰桿永遠挺直 生動形象，讓人看到就不忍心踩下去，起到了宣傳作用，這就是語言的魅力。罵人不帶章髒字 謝謝採納 演講，丘吉爾的，很有殺傷力的 反面正用的 希特勒 還有 國王的演講 這部電影 願你好運！話說多使人煩，會說 你的牙齒不冷嗎？語文題目，急急急急急急急... 簡單啊這個 不用說明原因的話可以只要考慮車子執行的環境。比如火星 溫度 溫差大，選用材質要耐低溫高溫 自重 火星引力和地球不同 光照 火星沒有水不會下雨，沒有雨天 自己動動腦筋再想想自己知道的，漫畫上看到的，新聞裡聽的，比如月球 海王星 幫我解一下這道題，謝謝，急急急 5 這位同學不是在練打字吧？這...vb求解答急！！急！！急！！急！！急！！急！！急！！急！！急！！急！！急
語文題目，急急急急急急急急急急，語文題目，急急急急急急急急急急
這道題目不會，急急急,這道題目不會，急急急