迴路入門練習題目

	下面題目原為VB6上的練習題，若要在 VB2008上執行必須先宣告參數及把print改為debug.print
1	s = 0
	For i = 1 To 10
	s = s + i
	Next i
	Print s
	輸出結果為
	(A) 55, (B) 110, (C) 155, (D) 45
	解答:A
2	s = 0
	For I = 1 To 10
	s = s + I
	Next I
	Print I
	輸出結果為
	(A) 10, (B) 9, (C) 11, (D) 12
	解答:C
3	s = 0
	For I = 1 To 9 Step 2
	If I <> 9 Then
	Print I; "+";
	Else
	Print I; "=";
	End If
	s = s + I
	Next I
	Print s
	輸出結果為
	(A) 1+3+5+7=16, (B) 1+3+5+7+9=25, (C) 1+3+5+7+9+10=35, (D) 2+4+6+8+10=25
	解答: B
4	s = 0
	For I = 2 To 20 Step 10
	s = s + I
	Next I
	Print s
	輸出結果為
	(A) 14, (B) 24, (C) 34, (D) 44
	解答: A
5	s = 0
	For I = 2 To 20 Step 10
	s = s + I
	Next I
	Print I
	輸出結果為
	(A) 2, (B) 12, (C) 22, (D) 32
	解答: C
6	for i = 1 to 6
	s = s + 1
	next I
	j = s + I
	print j
	輸出結果為
	(A) 28, (B) 21, (C) 27, (D) 15
	解答:A
7	for i = 1 to 3
	for j = 1 to 2
	s =s + 1
	next j
	next I
	print s
	輸出結果為
	(A) 5, (B) 6, (C) 7, (D) 8
	解答: B
8	for i = 1 to 3
	for j = 1 to 2
	s =s + I
	next j
	next I
	print s
	輸出結果為
	(A) 11, (B) 12, (C) 13, (D) 14
	解答: B
9	for i = 1 to 3
	for j = 1 to 2
	s =s + j
	next j
	next I
	print s
	輸出結果為
	(A) 7, (B) 8, (C) 9, (D) 10
	解答: C
10	for i = 1 to 2
	for j = i to 3
	s =s + j
	next j
	next i
	print s
	輸出結果為
	(A) 9, (B) 10, (C) 11, (D) 12
	解答: C
11	for i = 1 to 2
	for j = i to 3
	s =s + i
	next j
	next i
	print s
	輸出結果為
	(A) 6, (B) 7, (C) 8, (D) 9
	解答: B
12	i = 1
	while i <= 10
	i = i + 1
	wend
	print i
	輸出結果為
	(A) 10, (B) 11, (C) 12, (D) 13
	解答:B
13	i = 1
	while i <= 6
	s = s + i
	i = i + 1
	wend
	print s
	輸出結果為
	(A) 18, (B) 19, (C) 20, (D) 21
	解答: D
14	i = 1
	while i < 6
	s = s + i
	i = i + 1
	wend
	print s
	輸出結果為
	(A) 14, (B) 15, (C) 16, (D) 17
	解答: B
	參考資料：http://www.gotop.com.tw/waweb2004/main/home.aspx?pg=HM010X2007&bn=AEQ003100