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

直線 Line(座標)-(座標),色 指定した座標を結ぶ直線を引く
Circle(中心座標),半径,色 指定した座標を中心とした円を描く
Pset(座標),色 指定した座標に点を打つ
乱数 Rnd(1) 0から1までの乱数
変数の宣言 Dim X As Integer 整数型変数Xを宣言する
整数化 Int( ) 小数以下を切り捨てる
三角関数 Sin( ) Cos( ) Tan( ) 三角関数(カッコ内はラジアン)
タイマーOFF Timer1.Enabled = False タイマー1の内容をOFFにする
タイマーON Timer1.Enabled = True タイマー1の内容をONにする
繰り返し処理 For〜To〜Step  Next 変数の値がある値になるまで繰り返す
二分岐選択 If〜Then〜Else〜 Endif もし〜ならば〜、それ以外は〜
多分岐選択 Select〜Case Endselect 〜が、こういう値の場合は〜

模擬試験問題

課題 フォーム コード(ソース) 実行画面


ボタンを押すと、1から1000までの和がテキストボックスに現れる。


ボタンを押すと、座標(0,0)と座標(1000,1000)を結んだ青い線が表示される。
 


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


ボタンを押すと7色7本の平行線を引く。
 


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


ボタンを押すとフォームの原点(0,0)とランダムな座標(0〜100,0〜100)を結ぶ直線を10本引く


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


ボタンを押すと、1から6までの整数がランダムに次々とテキストボックスに表示される。(電子サイコロ)


3つのテキストボックスに3つの乱数(1から7まで)を表示させ、スロットマシーンにしよう。
 


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

index