///　実習B2　簡単な計算	プログラミング実習

プロジェクト名　　実習B2長方形の面積

動作

　長方形のたての長さとよこの長さから面積を求める。実数の計算ができる。

デザイン

フフォームのプロパティ 　Font.Size = 11　　Size = 300, 200

オブジェクト Button1　　Textプロパティ：面積計算 Button2　　Textプロパティ：終了 Label1　　Textプロパティ：長方形のたて Label2　　Textプロパティ：長方形のよこ Label3　　Textプロパティ：計算結果 TextBox1 TextBox2

コード(プログラム)

Public Class Form1
　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　　'実行時に1度だけ処理される。
　　　　Button1.Text = "面積" & vbCrLf & "計算"
　　End Sub
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim ans As Double
　　　　ans = CDbl(TextBox1.Text) * CDbl(　�@　)
　　　　Label3.Text = "長方形の面積は、" & ans.ToString & " です。"
　　End Sub
　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
　　　　　�A　
　　End Sub
End Class

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

キーワード

&

　文字列と文字列を連結する演算子。
　例　"ABC" & "123" → ABC123

vbCrLf

　改行を表すデータ。

CDbl

　文字を実数に変換する。(Change Double)
　例　CDbl("12.34")　→　12.34

///　実習B2　簡単な計算	Copyright©2014 Hiroshi Masuda