///　実習C2　制御文(If〜Then〜Else〜End If)	プログラミング実習

プロジェクト名　　実習C2金額の計算2

動作

　商品の単価と個数から合計金額を計算するプログラムである。個数が100個以上の場合1割引(小数以下四捨五入)で計算する。

デザイン

フォームのプロパティ Font.Size = 11　　　Size = 400, 200	オブジェクト Label1 　Textプロパティ：商品の単価(円) Label2 　Textプロパティ：商品の個数(個) Label3 　Textプロパティ：金額の表示(円) btnKeisan(ボタン) 　Textプロパティ：計算 btnOwari(ボタン) 　Textプロパティ：終了
tbxTanka (テキストボックス) tbxKosuu (テキストボックス) tbxKingaku (テキストボックス)

コード(プログラム)

Public Class Form1
　　Private Sub btnKeisan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeisan.Click
　　　　Dim tanka, kosuu, kingaku As Integer
　　　　　�@　　 = CInt(tbxTanka.Text)　　　'データ(単価)取り込み
　　　　　�A　　 = CInt(tbxKosuu.Text)　　　'データ(個数)取り込み
　　　　If kosuu >= 100 Then
　　　　　　kingaku = CInt(tanka * kosuu * 0.9)　　　'1割引の計算
　　　　Else
　　　　　　kingaku = tanka * kosuu　　　 '金額の計算
　　　　End If
　　　　tbxKingaku.Text = kingaku.ToString　　　'金額の表示
　　End Sub

　　Private Sub btnOwari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOwari.Click
　　　　　�B　
　　End Sub
End Class

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

テスト

単価=120円、個数=80個⇒金額120×80=9600円
単価=120円、個数=100個⇒金額120×100×0.9=10800円

///　実習C2　制御文(If〜Then〜Else〜End If)	Copyright©2014 Hiroshi Masuda