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

☆ ☆ ☆　問　題　H　☆ ☆ ☆

【1】次の各プログラムについて、設問通り動作するように正しい順番に並べよ。

(1)　次のプログラムは、ピクチャボックスpicCanvasにグラフィックスを利用して、1つの直線を描画するものである。プログラムを正しい順番に並べよ。

Public Class Form1
　　Private Sub Form1_Load(　…　) Handles MyBase.Load
　　　　
　　　　
　　　　
　　　　
　　　　
　　End Sub
End Class
　　　解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

選択肢
1　Dim gr As Graphics = Graphics.FromImage(picCanvas.Image)
2　gr.Dispose()
3　gr.DrawLine(Pens.Black, 30, 30, 250, 230)
4　picCanvas.Image = New Bitmap(picCanvas.Width, picCanvas.Height)
5　picCanvas.Refresh()

(2)　 次のプログラムは、ピクチャボックスpicCanvasにグラフィックスを利用して、科目名を描画するものである。プログラムを正しい順番に並べよ。

Public Class Form1
　　Private Sub Form1_Load(　…　) Handles MyBase.Load
　　　　　　'Bitmapオブジェクト作成
　　　　　　'Graphicsオブジェクト作成
　　　　　　'Fontオブジェクト作成
　　　　　　'直線描画
　　　　　　'ピクチャボックス更新
　　　　　　'Graphicsオブジェクト解放
　　　　　　'Fontオブジェクト解放
　　End Sub
End Class
　　　解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

選択肢
1　Dim gfont As New Font("ＭＳ 明朝", 12, FontStyle.Bold)
2　Dim gr As Graphics = Graphics.FromImage(picCanvas.Image)
3　gfont.Dispose()
4　gr.Dispose()
5　gr.DrawString("プログラミング実習", gfont, Brushes.Black, 20, 10)
6　picCanvas.Image = New Bitmap(picCanvas.Width, picCanvas.Height)
7　picCanvas.Refresh()

【2】次のプログラムは、ピクチャボックスpicCanvasにグラフィックスを利用して、四角形を1つ描画するものである。プログラムの空欄を埋めて完成せよ。

Public Class Form1
　　Private Sub Form1_Load(　…　) Handles MyBase.Load
　　　　picCanvas.Image = New 　　�@　(　�A　, 　�B　)
　　　　Dim gr As Graphics = 　�C　(picCanvas.Image)
　　　　gr.DrawRectangle(Pens.Green, 10, 10, 200, 150)　　　 '四角形描画
　　　　　�D　
　　　　　�E　
　　End Sub
End Class
�@Bitmap �A �B
�C�D() �E()

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

Bitmap　　　　gr.Dispose　　　　Graphics.FromImage picCanvas.Height　　　　picCanvas.Refresh　　　　picCanvas.Width

【3】グラフィックス・オブジェクトを変数ggに用意した。これを使って、図形を描画するプログラムを答えよ。

四角形の頂点ABCDは図のとおりとし、各点の座標は次のように表す。
　　　　
A(XA,YA)、B(XB,YB)、C(XC,YC)、D(XD,YD)

解答欄（英数字は半角で入力すること。余分な空白は入れないこと）
�@ 点Aと点Cを結ぶ直線を黒色(Black)で描画する。
　

�A 点Bと点Dを結ぶ直線を緑色(Green)で描画する。
　

�B 点A,B,C,Dを頂点に持つ四角形を赤色(Red)で描画する。
　

�C 点A,B,C,Dを頂点に持つ四角形の中に収まるだ円を青色(Blue)で描画する。
　

�D 点Cを開始位置とする文字列「成城高校」を茶色(Brown)で描画する。フォントMyFontは次のとおり用意したものを使う。
　Dim MyFont As New Font(”明朝”, 11, FontStyle.Regular)
　

�E グラフィックスを消去して、マゼンタ色(Magenta)に塗りつぶす。
　

　　　解答を入力し、［解答チェック］ボタンをクリックする。正解は　　　、不正解は　　　で表示される。

///　問題　H	Copyright©2014 Hiroshi Masuda