for next的算法

Question

請問每一題的算法，以及答案


第一題
S=0
For K=1to10
S=S+K
Next K
Print S:K


第二題
要利用下述程式計算出（1*1)+(2*1+2*2)+(3*1+3*2+3*3)的值，則空格中要填入什麼內容？

S=0
For K=1 to3
For M=1 to_____
S=S+K*M
Next M
Next K
print S

第三題
執行下例BV之片段程式後，印出的結果為
　X=16
K=0
DO WHILE X>10
For J=1 TOX
K=K+J MOD 5
Next J
X=X-3
LOOP
PRINT K

第四題
Private Sub Command1_Click()
Dim a(6), i , b as integer
a(1)=27:a(2)=12:a(3)=8
a(4)=9:a(5)=21:(6)=72
For i=1to3
b=a(i)
a(i)=a(7-i)
a(7-i)=b
Next i
For i=1to6
Print a(i);
Next i
End Sub

最後一題
下列程式執行結果為何？
Dim a(4,3)
a(1,1)=0:a(1,2)=1:a(1,3)=11
a(2,1)=0:a(2,2)=2:a(2,3)=22
a(3,1)=0:a(3,2)=3:a(3,3)=33
For i=1to4
For j=1to3
if a(i,j)<>0 and a(i,j) mod2<>0 Then Sum=Sum+a(i,j)
K=K+1
Next j
Nexti
Print Sum;k

Answer 1

1. 答案: 55 (本題求 1 加到 10 的和)
S=0
For K=1to10 <= to 的前後要留空格
S=S+K
Next K
Print S:K <= 應該用 ; 誤打成 :
2. 答案: 空格要填 k (因為最後一項都是 K 乘自己)
S=0
For K=1 to3
For M=1 to_____
S=S+K*M
Next M
Next K
print S
3. 答案: 57
X=16
K=0
DO WHILE X>10
For J=1 TOX
K=K+J MOD 5
Next J
X=X-3
LOOP
PRINT K
當 X=16 時 K 會加上 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1 (K=31)
然後 X=13 (X=X-3)
當 X=13 時 K 再加上 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3 (K=57)
然後 X=10 (X=X-3)
此時 DO WHILE X>10 條件不成立 迴圈不再執行
4. For 迴圈將 a(1),a(6) 對換 (i=1時); a(2),a(5) 對換 (i=2時); a(3),a(4) 對換 (i=3時)
For i=1to3
b=a(i)
a(i)=a(7-i)
a(7-i)=b
Next i
所以最後的結果等於是反過來印
答案: 72 21 9 8 12 27
5. 答案: 48 12
a(i,j) mod2<>0 表示 a(i,j) 不為 2 的倍數, 也就是奇數.
Sum 在算全部奇數的和
K 則是在算全部有幾項
For i=1to4
For j=1to3
if a(i,j)<>0 and a(i,j) mod2<>0 Then Sum=Sum+a(i,j)
(其實 a(i,j)<>0 可以不需要, 因為奇數絕對不為 0)
K=K+1
Next j
Nexti
Print Sum;k
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.

Answer 2

1. 55
2. ?
3. 57
4. 72 21 9 8 12 27
5. 48,12

2006-12-30 05:37:01 補充：
有限定時間ㄇ=ˇ="
計算ㄉ話 我只會用土法煉鋼ㄉ方式去算o貝~
第一題就算1加到10
第三題就算1加到16 1加到13 1加到10
然後在-15 - (10*3) - (5*3)
第四題
第一次
a(1) = 72 and a(6)= 27
第二次
a(2) = 21 and a(5) = 12
第三次
a(3) = 9 and a(4) = 8