§３　トレース(2)	プログラミング実習

☆ ☆ ☆　課　題　☆ ☆ ☆

【問題５】　次のプログラムについて設問に答えよ。変数は整数型で宣言されているものとする。

【問題６】　次の設問に合うように、プログラムを完成せよ。変数は整数型で宣言されているものとする。

　

(1)　変数ｘが５を以上とき「OK」と表示する。 Ｉｆ　 �@ 　 ｘ　＞＝　５ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”ＯＫ”） �A 　 Ｅｎｄ　Ｉｆ	(2)　変数ｘが５以下のとき「OK」と表示する。 Ｉｆ　 �@ 　 ｘ　＜＝　５ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”ＯＫ”） �A 　 Ｅｎｄ　Ｉｆ
(3)　変数ｘが５を超えるとき「OK」と表示する。 Ｉｆ　 �@ 　 ｘ　＞　５ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”ＯＫ”） �A 　 Ｅｎｄ　Ｉｆ	(4)　変数ｘが５未満のとき「OK」と表示する。 Ｉｆ　 �@ 　 ｘ　＜　５ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”ＯＫ”） �A 　 Ｅｎｄ　Ｉｆ
(5)　変数ｘが６未満のとき「ＯＫ」、それ以外のとき「Ｅｒｒｏｒ」と表示する。
Ｉｆ　 �@ 　 ｘ　＜　６ 　　　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”ＯＫ”） �A Ｅｌｓｅ 　　　　ＭｓｇＢｏｘ（”Ｅｒｒｏｒ”） Ｅｎｄ　Ｉｆ	Ｉｆ　 �B 　 ｘ　＞＝　６ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”Ｅｒｒｏｒ”） �C Ｅｌｓｅ 　　　　ＭｓｇＢｏｘ（”ＯＫ”） Ｅｎｄ　Ｉｆ
(6)　変数ａが負数、ゼロ、正数のいずれであるかを判定する。
Ｉｆ　 �@ 　 ａ ＜ ０ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”負数”） ＥｌｓｅＩｆ　 �A 　 ａ ＞ ０ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”正数”） Ｅｌｓｅ 　　　　ＭｓｇＢｏｘ（”ゼロ”） Ｅｎｄ　Ｉｆ	Ｉｆ　 �B 　 ａ ＝ ０ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”ゼロ”） ＥｌｓｅＩｆ　 �@ 　 ａ ＜ ０ 　　Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ（”負数”） Ｅｌｓｅ 　　　　ＭｓｇＢｏｘ（”正数”） Ｅｎｄ　Ｉｆ

(7)　変数ｍが３の倍数かどうか判定する。「３の倍数です」、「３の倍数ではない」と表示する。
Ｉｆ　 �@ 　 ｍ　Ｍｏｄ　３　＝　０ 　　Ｔｈｅｎ
　　　　ＭｓｇＢｏｘ（”３の倍数です”）
Ｅｌｓｅ
　　　　ＭｓｇＢｏｘ（”３の倍数ではない”）
Ｅｎｄ　Ｉｆ
　ヒント　　３の倍数は、３で割ったときの余りが０である。
 
(8)　変数ｐが整数２けたかどうか判定する。「２けたです」、「２けたではない」と表示する。
Ｉｆ　 �@ 　 ｐ　＞＝　１０　Ａｎｄ　ｐ　＜＝　９９ 　　Ｔｈｅｎ
　　　　ＭｓｇＢｏｘ（”２けたです”）
Ｅｌｓｅ
　　　　ＭｓｇＢｏｘ（”２けたではない”）
Ｅｎｄ　Ｉｆ
 
(9)　変数ｐが整数２けたかどうか判定する。「２けたです」、「２けたではない」と表示する。
Ｉｆ　 �@ 　 ｐ　＜　１０　Ｏｒ　ｐ　＞　９９ 　　Ｔｈｅｎ
　　　　ＭｓｇＢｏｘ（”２けたではない”）
Ｅｌｓｅ
　　　　ＭｓｇＢｏｘ（”２けたです”）
Ｅｎｄ　Ｉｆ
 
(10)　１個１００円の商品をｎ個買ったときの金額ｙ円を求める。ただし、１０個以上買ったときは１割引、２０個以上買ったときは２割引とする。
Ｉｆ　�@ 　 ｎ　＞＝　２０ 　　Ｔｈｅｎ
　　　　ｙ　＝　１００　＊　ｎ　＊　０．８
�A 　 ＥｌｓｅＩｆ 　　ｎ　＞＝　１０　Ｔｈｅｎ
　　　　ｙ　＝　１００　＊　ｎ　＊　０．９
Ｅｌｓｅ
　　　　ｙ　＝　１００　＊　ｎ
Ｅｎｄ　Ｉｆ
 
　何個買っても「１００＊ｎ」の計算は行うので、次のように書くこともできる。
ｙ ＝　 �B 　 １００　＊　ｎ
Ｉｆ　 �@ 　 ｎ　＞＝　２０ 　　Ｔｈｅｎ
　　　　ｙ　＝　ｙ　＊　０．８
ＥｌｓｅＩｆ　ｎ　＞＝　１０　Ｔｈｅｎ
　　　　ｙ　＝　ｙ　＊　０．９
Ｅｎｄ　Ｉｆ
　１行減らすことができた。行数（命令）が減れば、それだけ処理速度は向上（アップ）する。

こちらは誤りである。なぜか考えよう。 If n >= 10 Then 　　　　y = 100 * n * 0.9 　　'1割引 ElseIf n >= 20 Then 　　　　y = 100 * n * 0.8 　　'2割引 Else 　　　　y = 100 * n End If 　上のような順で判定をするには、次のように書く必要がある。 If n >= 10 And n <= 19 Then 　　　　y = 100 * n * 0.9 　　'1割引 ElseIf n >= 20 Then 　　　　y = 100 * n * 0.8 　　'2割引 Else 　　　　y = 100 * n End If

【課題４】　次のプログラムを作成せよ。　プロジェクト名：課題０４
　フォームに次のオブジェクトを重ならないように配置する。配置場所、大きさは適当でよい。
　　・テキストボックス(TextBox1, TextBox2)　　・ボタン(Button1)　　・ラベル(Label1)
　Label1のTextプロパティには、「January, February, March, April」を設定する。

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim komoji As String
        komoji = TextBox1.Text.ToLower    '←ToLowerメソッドは大文字を小文字に
        If komoji = "january" Then
            TextBox2.Text = "１月"
        ElseIf komoji = "february" Then
            TextBox2.Text = "２月"
        ElseIf komoji = "march" Then
            TextBox2.Text = "３月"
        ElseIf komoji = "april" Then
            TextBox2.Text = "４月"
        Else
            TextBox2.Text = "その単語は知りません"
        End If
    End Sub

【設問】実行後、TextBox1にAPRILと入力して［Button1］ボタンをクリックしたときの結果を答えよ。　　（　　４月　　　）
【課題】１２月まで処理できるようにプログラムを完成せよ。

【課題５】　次のプログラムを作成せよ。　プロジェクト名：課題０５
　前の課題プログラムを参考にして、月の数（1〜12）を入力するとその月に対応する単語が表示されるプログラムを作成せよ。
 5=May, 6=June, 7=July, 8=August, 9=September,10=October, 11=November, 12=December

§３　トレース(2)	Copyright©2008 Hiroshi Masuda