///　問題　D	プログラミング実習

☆ ☆ ☆　問　題　D　☆ ☆ ☆

【1】次のプログラム実行後、何と表示されるか答えよ。変数は整数型で値は0で初期化されているものとする。

　解答欄には、英数字は半角で入力すること。余分な空白は入れないこと。解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

�@	解答欄（英数字は半角で入力すること。余分な空白は入れないこと）
For x = 1 to 10 　　　　aaa = aaa + x 　　Next 　　MessageBox.Show(aaa)
�A
For x = 1 to 5 　　　aa = aa + x * 2 　　　bb = bb + x * 2 - 1 　Next 　MessageBox.Show("aa=" & aa & " bb=" &bb)	aa=　　bb=
�B
For x = 1 to 10 Step 2 　　　　aaa = aaa + x 　　Next 　　MessageBox.Show(aaa)
�C
For x = 10 to 1 Step -2 　　　　aaa = aaa + x 　　Next 　　MessageBox.Show(aaa)
�D
For x = 1 to 10 　　　　aaa = aaa + x 　　　　If aaa >= 15 Then 　　　　　　Exit For 　　　　End If 　　Next 　　MessageBox.Show(x)
�E
For x = 1 to 5 　　　　aaa = aaa * x 　　Next 　　MessageBox.Show(aaa)
�F
aaa = 1 　　For x = 1 to 5 　　　　aaa = aaa * x 　　Next 　　MessageBox.Show(aaa)
�G
aaa = 1 　　For x = 1 to 5 　　　　aaa = aaa * 2 　　Next 　　MessageBox.Show(aaa)

【2】次の設問に合うように、プログラムを完成せよ。数値の変数を宣言すると、変数の値は0で初期化されるものとする。

　解答欄には、英数字は半角で入力すること。余分な空白は入れないこと。解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

(1)　メッセージ「BASIC」をメッセージボックスで10回表示する。
Dim n As Integer 　　For n = 0 To 　�@　 　　　　MsgBox(“BASIC”) 　　　�A	�@ 　　�A
(2)　1+2+3+･･･+19+20を計算する。
Dim x As Integer, w As Integer 　　For　 　�@　 = 　�A　　To　　�B　 　　　　w = w + x 　　Next	�@ 　　�A 　　�B
(3)　5+6+7+･･･+14+15を計算する。
Dim k As Integer, w As Integer 　　For　 　�@　 =　　�A　　To　　�B　 　　　　w = w + k 　　Next	�@ 　　�A 　　�B
(4)　1から20までの偶数の和を計算する。
Dim g As Integer, w As Integer 　　For　 　�@　 　　　　w = w + g 　　Next	�@
(5)　5+10+15+20+25+30を計算する。
Dim k As Integer, w As Integer 　　For k = 1 To 6 　　　　w = w +　　�@　 　　Next	�@
(6)　10から99までの整数のうち、45以下の整数の個数を変数cにカウントする。
Dim n As Integer, c As Integer 　　For　 　�@　 　　　　If n <= 45 Then 　　　　　　c = c +　　�A　 　　　　End If 　　Next	�@ 　　�A

【3】左側のForで書かれたプログラムを右側のようにDoで書き直した。空欄を埋めよ。

Dim ddata() As Integer = {10, 20, 30, 40, 50} 　　Dim goukei, n As Integer 　　goukei = 0　　 　　For n = 0 To ddata.Length ? 1 　　　　goukei = goukei + ddata(n) 　　Next 　　heikin = goukei / ddata.Length

Dim ddata() As Integer = {10, 20, 30, 40, 50} 　　Dim goukei, n As Integer 　　goukei = 0 　　　�@　 　　Do 　　　　goukei = goukei + ddata(n) 　　　　n = 　�A　 　　Loop While n 　�B　　 ddata.Length 　　heikin = goukei / ddata.Length

解答欄（英数字は半角で入力すること。余分な空白は入れないこと）
　　�@ 　　�A 　　�B
　　　解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

///　問題　D	Copyright©2014 Hiroshi Masuda