情報基礎実習I （第４回） 木曜４・５限 担当：北川 晃

より，適宜ダウンロードして参照してください． 講義資料のスライド http://www.cc.kochi-u.ac.jp/~kitagawa/ より，適宜ダウンロードして参照してください．

Select Case文 Select Case 条件式 条件式が評価される． [Case 値リスト1 その結果と各Caseの [文ブロック１]] [Case 値リスト2 [文ブロック２]] ～ [Case Else [文ブロックｎ]] End Select 条件式が評価される． その結果と各Caseの 値リストが比較される． 条件式の書き方の例： Case 5　　　　（単独の値） Case “Sun”　（文字列） Case 3, 5, 7　（複数の値） Case 2 To 8　（2～8の範囲） Case ls < 7　（範囲，不等式）

Select Case 例文 Select Case x xの値がどのケースに 当てはまるかを選ぶ Case x < 0 Text=“負の値です” Case 0 Text=“0の値です” Case 1 To 99 Text=“1～99の値です” Case Else Text=“100以上の値です” End Select xの値がどのケースに 当てはまるかを選ぶ End Selectで締めくくる

考え方：Select Case文を用いてプログラムを書き換えてみよ． プログラミング演習 １～１２の月(month)を入力をしたとき， ３～５月ならば「春」 ６～８月ならば「夏」 ９～１１月ならば「秋」 １２～２月ならば「冬」 と表示させるプログラムを作れ． 考え方：Select Case文を用いてプログラムを書き換えてみよ．

プログラム例：季節の判定 Console.Title = "季節の判定プログラム" Dim month As Integer, season As String Console.WriteLine("何月ですか？1～12の整数を入力して下さい．") month = Console.ReadLine() Select Case month Case 3, 4, 5 season = "春" Case 6, 7, 8 season = "夏" Case 9, 10, 11 season = "秋" Case 12, 1, 2 season = "冬" Case Else season = "入力エラー" End Select Console.WriteLine("{0}月の季節は{1}です．", month, season)

さまざまな組み込み関数 Math.Abs(x): xの絶対値 Math.Sign(-5)→-1 Math.Sign(0)→0 Math.Sign(x): xの符号 Int(x): xを超えない最大の整数 Fix(x): xの整数部分 Math.Sqrt(x): xの平方根 Math.Log(x): xの自然対数 Math.Exp(x): xの指数関数 Math.Sin(x): xの正弦（ラジアン単位） Math.Cos(x): xの余弦（ラジアン単位） Math.Tan(x): xの正接（ラジアン単位） Math.Sign(-5)→-1 Math.Sign(0)→0 Math.Sign(30)→1 Int(-4.3)→-5 Int(4.3)→4 Fix(-4.3)→-4 Fix(4.3)→4

プログラミング演習 西暦年を与えて，うるう年か平年かを判定せよ． 西暦年数が4の倍数ならば，うるう年である． 西暦年数が4の倍数であっても， 100の倍数の時はうるう年ではない（平年）． 西暦年数が100の倍数であっても， 400の倍数であるときはうるう年である． 例： 2014年：うるう年でない 2016年：うるう年 2100年：うるう年でない 2000年：うるう年

うるう年の判定：アルゴリズム 4の倍数の判定：n/4の整数部分に4をかけて，元のnに一致するか？ は 4の倍数？ 西暦年 うるう年でない 　　は 4の倍数？ 西暦年 を入力 うるう年でない YES NO 100の倍数？ うるう年 400の倍数？ 4の倍数の判定：n/4の整数部分に4をかけて，元のnに一致するか？

プログラム例：うるう年の判定 Console.Title = "うるう年の判定" Dim n As Integer Console.WriteLine("西暦年を入力して下さい") Console.Write("n=") n = Console.ReadLine() If n <> Fix(n / 4) * 4 Then GoTo Point2 If n <> Fix(n / 100) * 100 Then GoTo Point1 If n <> Fix(n / 400) * 400 Then GoTo Point2 Point1: Console.WriteLine("うるう年です") GoTo Point3 Point2: Console.WriteLine("うるう年ではありません") Point3:

出力例：うるう年の判定

プログラミング演習 三角形の3辺a, b, cを読み込んで， 三角形ができる場合は面積Sを計算せよ． A 三角形の成立条件 c b かつ C ヘロンの公式 ただし

出力例：三角形の面積

プログラム例：三角形の面積 Console.Title = "三角形の面積" Dim a, b, c, p, s As Single Console.WriteLine("三角形の3辺a,b,cを入力して下さい") Console.Write("a=") a = Console.ReadLine() Console.Write("b=") b = Console.ReadLine() Console.Write("c=") c = Console.ReadLine() If a = 0 Then GoTo Point1 If Math.Abs(a - b) > c Or a + b <= c Then GoTo Point1 p = (a + b + c) / 2 s = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) Console.WriteLine("三角形の面積はS={0}", s) GoTo PointEnd Point1: Console.WriteLine("三角形にならない") PointEnd:

例題：得点の評価 100点満点の得点を入力し， 0点以上30点未満なら 30点以上60点未満なら Terrible!! 　100点満点の得点を入力し， 0点以上30点未満なら 30点以上60点未満なら 60点以上70点未満なら 70点以上90点未満なら 90点以上なら と表示するプログラムを作れ． Terrible!! Bad! Good Great! Excellent!!

Label1，Textbox1，2，Button1の貼り付け 得点の評価：プログラム例 Label1，Textbox1，2，Button1の貼り付け

得点の評価：プログラム例（つづき） 評価ボタン の動作 Dim point As Integer point = Val(TextBox1.Text) If point >= 90 Then TextBox2.BackColor = Color.Blue TextBox2.ForeColor = Color.White TextBox2.Text = "Excellent!!" ElseIf point >= 70 Then TextBox2.BackColor = Color.Green TextBox2.Text = "Great!" ElseIf point >= 60 Then TextBox2.BackColor = Color.GreenYellow TextBox2.ForeColor = Color.Black TextBox2.Text = "Good" 評価ボタン 　　の動作

得点の評価：プログラム例（つづき） 評価ボタン の動作 ElseIf point >= 30 Then TextBox2.BackColor = Color.Yellow TextBox2.ForeColor = Color.Black TextBox2.Text = "Bad!" Else TextBox2.BackColor = Color.Red TextBox2.Text = "Terrible!!" End If 評価ボタン 　　の動作

例題：円，球の評価 半径rの値を入力し，以下の計算のいずれかを 選択した後，結果を表示するプログラムを作れ． 円の円周＝2πr RadioButton GroupBox

Label1，2，Textbox1，2，Button1の貼り付け 例題：円，球の評価 Label1，2，Textbox1，2，Button1の貼り付け RadioButton1～4の貼り付け GroupBoxで囲む

円，球の評価：プログラム例（つづき） 計算ボタン の動作 πの数値を与える 「各RadioButtonが チェックされている」 が真か偽か？ 　　の動作 Dim r, p, result As Single r = Val(TextBox1.Text) p = Math.PI If RadioButton1.Checked Then result = 2 * p * r If RadioButton2.Checked Then result = p * r ^ 2 If RadioButton3.Checked Then result = 4 * p * r ^ 2 If RadioButton4.Checked Then result = 4 / 3 * p * r ^ 3 TextBox2.Text = Format(result, "#,###.#0") πの数値を与える 「各RadioButtonが チェックされている」 が真か偽か？

例題：金額の計算 希望する商品すべてをクリックし，おのおのの個数を入力 したとき，合計金額を計算して表示するプログラムを作れ． 　希望する商品すべてをクリックし，おのおのの個数を入力 したとき，合計金額を計算して表示するプログラムを作れ． CheckBox

Label1～3，Textbox1～7，Button1，2の貼り付け 金額の計算：プログラム例 Label1～3，Textbox1～7，Button1，2の貼り付け CheckBox1～6の貼り付け

金額の計算：プログラム例（つづき） 各チェックボックスが真か偽か 金額の表示の書式 各チェックボックスのチェックを外す Private Sub Button1_Click(sender As Object, e As EventArgs) … Dim result As Integer = 0 If CheckBox1.Checked Then _ result = result + 150 * Val(TextBox1.Text) If CheckBox2.Checked Then _ result = result + 200 * Val(TextBox2.Text) … If CheckBox6.Checked Then _ result = result + 150 * Val(TextBox6.Text) TextBox7.Text = Format(result, "\\###,###") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) … CheckBox1.Checked = False : TextBox1.Text = "" CheckBox2.Checked = False : TextBox2.Text = "" CheckBox6.Checked = False : TextBox6.Text = "" 各チェックボックスが真か偽か 金額の表示の書式 各チェックボックスのチェックを外す

例題：最大値と最小値 ３つの数を入力し，最大値と最小値を 表示するプログラムを作れ．

Label1～3，Textbox1～5，Button1，2の貼り付け 最大値と最小値：プログラム例 Label1～3，Textbox1～5，Button1，2の貼り付け 三つの数字a, b, cについて， 　　最初にmax=min=aを代入 b, cをmax，minの値と比較し， 　　必要であれば書き換える

最大値と最小値：プログラム例（つづき） 計算ボタン Dim a, b, c, max, min As Single の動作 　　の動作 Dim a, b, c, max, min As Single a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) max = a : min = a If b > max Then max = b If b < min Then min = b If c > max Then max = c If c < min Then min = c TextBox4.Text = max TextBox5.Text = min