「アルゴリズム」１学期末試験について

川崎北高校　情報科　専門教科「アルゴリズム」
「アルゴリズム」１学期末試験について

【日時】　６月２５日（水）13:25～15:15（最大110分）
【場所】　３階パソコン教室
【座席】　間隔をあけて着席。
【形式】　問題数１０問、１００点満点
【出題内容】　授業の中で作成したVisualBasicプログラミングの基礎を確認する内容
- フォーム、メッセージボックス、コマンドボタン、テキストボックス、ピクチャーボックス、ラベル、タイマー
- 直線、円、点の描画
- １から１００までの和、階乗
- 乱数の発生、整数化、三角関数
- 変数の宣言
- タイマーによる繰り返し処理
- For～To～Next文による繰り返し処理
- Ｉｆ文、Select文による分岐選択
- その他
【答案の提出】　コードと実行画面をキャプチャーした画像をワードに貼り付け、印刷して提出。
【注意事項】
- 試験監督者への質問は不可（ハードウェア、ソフトウェアのトラブルなどは除く）
- 受験者同士の相談も不可
- 資料の持ち込み不可
- 試験時間はインターネットおよびサーバに接続をしていない環境で実施します。

　確認する内容

直線 Line(座標)-(座標),色指定した座標を結ぶ直線を引く

円 Circle（中心座標）,半径,色指定した座標を中心とした円を描く

点 Pset(座標),色指定した座標に点を打つ

乱数 Rnd(1) ０から１までの乱数

変数の宣言 Dim X As Integer 整数型変数Ｘを宣言する

整数化Ｉnt(　) 小数以下を切り捨てる

三角関数 Sin（　）　Cos（　）　Tan（　）三角関数（カッコ内はラジアン）

タイマーOFF Timer1.Enabled = False タイマー１の内容をOFFにする

タイマーON Timer1.Enabled = True タイマー１の内容をONにする

繰り返し処理 For～To～Step 　Next 変数の値がある値になるまで繰り返す

二分岐選択 If～Then～Else～　Endif もし～ならば～、それ以外は～

多分岐選択 Select～Case　Endselect ～が、こういう値の場合は～

模擬試験問題

課題		フォーム	コード（ソース）	実行画面
課題１	ボタンを押すと、１から１０００までの和がテキストボックスに現れる。

課題２	ボタンを押すと、座標（0,0）と座標（1000,1000）を結んだ青い線が表示される。

課題３	ボタンを押すと、赤い線で４つの同心円を描く。

課題４	ボタンを押すと７色７本の平行線を引く。

課題５	ボタンを押すと、縦１０本、横１０本の直線を引いて格子を描く。ただし、FOR文は１回だけ使用する。

課題６	ボタンを押すとフォームの原点（0,0）とランダムな座標（0～100,0～100）を結ぶ直線を１０本引く

課題７	ボタンを押すとピクチャーボックスにサインカーブを描く

課題８	ボタンを押すと、１から６までの整数がランダムに次々とテキストボックスに表示される。（電子サイコロ）

課題９	３つのテキストボックスに３つの乱数（１から７まで）を表示させ、スロットマシーンにしよう。

課題 10	３つの乱数が揃ったら、ラベルに「あたり」と表示させ、揃わないときには「はずれ」と表示させる。

index