４．変数と定数
　　 変数とは、一時的に値を入れておく器で、器には名前をつける必要がある。この名前が「変数名」である。
　　 定数とは、常に一定の値を保持しており、不変の値である。変数は、プログラムで値を変更することができるが、
　 定数は、定数を作成するときに代入した値が以降不変で、プログラムで変更することができない。
　 １） 変数の宣言
　　　基本形
　　　　 Dim　変数名　As　データ型＝初期値

　　　 同じ型を複数宣言する場合
　　　　 Dim　変数名１，変数名２，変数名３，・・・・・　As　データ型

　　　１行で複数のデータ型を宣言する場合
　　　　 Dim　変数名１　As　データ型＝初期値，変数名２　As　データ型＝初期値，・・・・・

　　　 変数名・・・特殊文字（＃＄％など）、スペース、数字のみの名前は使えない。
　　　 データ型・・・３．表のデータ型の表のデータ型名を書く。
　　　 初期値・・・変数を初期化する場合は、ここで初期化するが、必要ない場合は省略できる。

　 ２）定数の宣言
　　　基本形
　　　　 Const　定数名　As　データ型＝定数値

　　　１行で複数のデータ型を宣言する場合
　　　　 Const　定数名１　As　データ型＝定数値，定数名２　As　データ型＝定数値，・・・・・

　　　　変数と違って定数値は、省略できない。

　 ３）変数・定数の記憶領域
　　　 変数･定数の記憶領域とは、変数・定数がどの範囲で有効かをいう。
　　 ①ローカル変数
　　　　 ローカル変数は、プロシージャ（Sub　～　End　Sub）の中だけで有効な変数で他のプロシージャからはアクセス
　　　 できない。
　　　　 宣言する場所は、「Sub　～　End　Sub」の中に宣言する。
　　　　 ＜例＞
　　　　　　 Private　Sub　Button1_Click(・・・・）
　　　　　　　Dim　a　As　Integer


　　　　　　 End　Sub

　　 ②モジュール変数
　　　　 モジュール変数は、すべてのプロシージャ（Sub　～　End　Sub）で共通に使用できる。
　　　　 宣言する場所は、「Sub　～　End　Sub」の外に宣言する。
　　　　 ＜例＞
　　　　　　 Dim　a　As　Integer
　　　　　　 Private　Sub　Button1_Click(・・・・）


　　　　　　 End　Sub

　４）練習問題
　　 変数（ｒ）と定数（pi）を宣言し、球の面積と体積を求める。
　　 プロジェクト名は、面積と体積にする。
　　　
　　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim r As 考えて
　　　　Const pi As 考えて = 3.14
　　　　r = 考えて
　　　　TextBox2.Text = 考えて
　　　End Sub

　 「考えて」のところにプログラムを埋めて完成させなさい。

　　次にπ（pi）をモジュール変数で宣言して、球の面積と体積を求めてるようにしなさい。
　　　
　　　Const pi As 考えて = 3.14
　　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim r As 考えて
　　　　r = 考えて
　　　　TextBox2.Text = 考えて
　　　End Sub

　　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim r As 考えて
　　　　r = 考えて
　　　　TextBox4.Text = 考えて
　　　End Sub

　 「考えて」のところにプログラムを埋めて完成させなさい。