【基礎課題 4-6】

【基礎課題4-1】のプログラムを新しい名前で保存してから、下のようなフォームのプログラムに作り替えて下さい。

主なコンポーネントのオブジェクト名は、次のようにして下さい。

コンポーネント	オブジェクト名	備考
コマンドボタン「診断」	CommandShindan	変化なし
テキストボックス「チェック項目数」	TextKomokusu	変化なし
チェックボックス「9-10」	CheckHigher
チェックボックス「6-8」	CheckHigh
チェックボックス「3-5」	CheckLow
チェックボックス「0-2」	CheckLower
右下のテキストボックス	TextMessage	変化なし

「診断」ボタンを押したときの処理の流れを以下のように考えて、プログラムを書くことにします。

下の空欄を補って、4段階の診断をするプログラムを完成させて下さい。

Private Sub CommandShindan_Click()
  If TextKomokusu.Text >= 6 Then
    If ________________________________ Then
      ________________________________
      ________________________________
    Else
      ________________________________
      ________________________________
    End If
  Else
    If ________________________________ Then
      ________________________________
      ________________________________
    Else
      ________________________________
      ________________________________
    End If
  End If
End Sub

【基礎課題 4-7】

テストの得点を入力してから「成績判定」ボタンを押すと、得点に対応して「優」「良」「可」「不可」の評価をする下のようなプログラムを作って下さい。

得点と成績の対応は、次の表にしたがって下さい。

優	80点〜100点
良	60点〜79点
可	50点〜59点
不可	0点〜49点

また、成績に応じて、それぞれ内容の異なる一行メッセージを出すようにして下さい。メッセージの内容は自由に考えて下さい。