乙個vb作業 不知道哪錯了 謝謝
1樓：網友
幹什麼用的？
整個程式都是錯的。
for i = 1 to 6
for j = 1 to 10
x = int(rnd * 101 + 100)a(i, j) = x
a(i, j);
next j
next i
之後i=7,j=11陣列溢位。
m = 0: n = 0
if a(i, j) mod 2 = 0 thenn = n + 1
q(n) = a(i, j)
else m = m + 1
b(m) = a(i, j)
end if
b陣列根本沒初始化就賦值，m
for i = 1 to n - 1
for j = i + 1 to n
if q(i) >q(j) then
c = q(i): q(i) = q(j): q(j) = cend if
next j
next i
q陣列也沒初始化，就賦值。
2樓：網友
dim i%, j%, k%, c%, x%, a%(6, 10), q(1 to 60) as integer, b(1 to 60) as integer
private sub command1_click()for i = 1 to 6
for j = 1 to 10
x = int(rnd * 101 + 100)a(i, j) = x
a(i, j);
next j
next i
m = 0: n = 0
for i = 1 to 6
for j = 1 to 10
if a(i, j) mod 2 = 0 thenn = n + 1
q(n) = a(i, j)
elsem = m + 1
b(m) = a(i, j)
end if
next j
next i
for i = 1 to n - 1
for j = i + 1 to n
if q(i) >q(j) then
c = q(i): q(i) = q(j): q(j) = cend if
next j
next i
j = 0for i = 1 to m - 1for j = i + 1 to m
if q(i) c = q(i): q(i) = q(j): q(j) = cend if
next j
next i
for i = 1 to 10
str$(q(n))
j = j + 1
if j = 10 then j = 0:
str$(b(m))
j = j + 1
if j = 10 then j = 0:
next i
end sub
後面的那一段不知道你想做什麼，所以不知道怎麼改。
希望每vb道題都能給個解釋
3樓：網友
這樣的題目，不是解釋能解決問題的，而是你需要從頭開始，好好讀書學習！
這麼多朋友的解釋，無非就是書上的內容！
4樓：難得糊塗
多看一下vb的基礎書你就明白了，簡單的解釋沒用。
簡單的C語言程式設計我不知道哪錯了，乙個簡單的C語言程式設計 我不知道哪錯了
輸出 沒有用for迴圈 把第乙個printf 改為 for i 0 i n i printf d a i 負家子弟 樓上，看不出那裡越界了呀？include define n 5 void main 原來你的程式陣列越界了，輸出的東西可能每次執行都不同吧 include define n 5 voi...
誤會了乙個人不知道自己是做錯了什麼？
當我們如果誤會了別人，那麼就要去尋找機會解釋清楚，因為誤會的事本來就可以去解決的，只是要注意選擇的乙個方式方法。因為有的人的性格是不一樣的，他所接受的乙個程度呢，也會有一些區別，有的人性格比較直爽那就直截了當的跟他去解釋清楚，那麼有的人他的承受能力比較小，那你就要去委婉的從側面的去跟他解釋這個誤會，...
我不知道怎麼安慰女孩，我不知道怎麼安慰一個 女孩
給得建議 親身經歷 1這個時候的她你說什麼她都聽不進去 因為她就想你說的她鑽了牛交尖 不說話 讓她自己想下一步 該怎麼做 能怎麼做 不要讓她走極端 你要讓她明白 只有振作才能更好的過下去，就是鑽牛角尖有什麼用不過是自尋苦惱 你就是要告訴她 鑽牛叫尖你能鑽一輩字嗎？要讓她自己去想 自己考慮下一步 該怎...