///　実習E4　コントロール(チェックボックス)	プログラミング実習

チェックボックス
1つ以上のチェックボックスから、任意の数だけ選択(チェック)できるオブジェクト。 チェックの有無は、Checkedプロパティで設定/参照できる。有:True, 無:False チェックの有無に変更があると、CheckedChangedイベントが発生する。(今回は使用しない)

プロジェクト名 　　実習E4割引計算

説明

　入力した価格から選択した割引率で購入金額を計算する。

デザイン

フォームのプロパティ 　Font.Size = 11 　Size = 320, 180 チェックボックス cb1〜cb4

コード(プログラム)    [終了ボタン]のメソッドは省略しています。　

Public Class Form1
　　Private Sub btnKeisan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeisan.Click
　　　　Dim teika, kakaku, waribiki As Integer
　　　　teika = CInt(　�@　 )
　　　　waribiki = 0 '割引率
　　　　If cb1.Checked = True Then
　　　　　　waribiki = waribiki + 　�A　 　　　'5%引き
　　　　End If
　　　　If cb2.Checked = True Then
　　　　　　waribiki = waribiki + 　�B　  　　'10%引き
　　　　End If
　　　　If cb3.Checked = True Then
　　　　　　waribiki = waribiki + 　�C　  　　'20%引き
　　　　End If
　　　　If cb4.Checked = True Then
　　　　　　waribiki = waribiki + 　�D　  　　'40%引き
　　　　End If
　　　　kakaku = CInt(teika * (100 - waribiki) / 100)
　　　　　�E　 = kakaku.ToString
　　　　lblWaribiki.Text = "割引き" & 　�F　.ToString & "%"
　　End Sub
End Class

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

解説

　割引率は、チェックボックスへのチェックの組み合わせで割引率を設定する。チェックを入れた割引率の合計が全体の割引率となる。

テスト

定価=1000
　　⇒割引なし⇒　1000、　⇒5%引き⇒　950、　⇒10%引き⇒　900
　　⇒15%引き⇒　850、　⇒20%引き⇒　800、　⇒25%引き⇒　750
　　⇒30%引き⇒　700、　⇒35%引き⇒　650、　⇒40%引き⇒　600
　　⇒45%引き⇒　550、　⇒50%引き⇒　500、　⇒55%引き⇒　450
　　⇒60%引き⇒　400、　⇒65%引き⇒　350、　⇒70%引き⇒　300
　　⇒75%引き⇒　250

///　実習E4　コントロール(チェックボックス)	Copyright©2014 Hiroshi Masuda