第８講 プロシージャ(2)
第８話 第９話課題
第９話で、Stirng型を送って、
いろいろな人の性格を表示するプログラムを組みます。
そのための準備となる話が第８話です。

String型変数とIf文を組み合わせれば、
性格診断テストのようなものも組むことが出来ます。
第８講は配列を送ったり返したりすることが主題ですから、
本格的な性格診断テストは、
後の課題としまして、
実行結果が
太郎は明るく前向き
花子は優しく忍耐強い
次郎は活動的で忍耐強く繊細
となる単純なプログラムを組みます。
皆さん考えて下さい。
ただし、分業は第９話で実現しますので、
すべて社長Main()自ら仕事をして下さい。
解答例は３０行下。




































解答例
Module Module1

　　Sub Main() '私は社長だ。
　　　　Dim a(9), n(4), s(1), w As String
　　　　a(0) = "明るい"
　　　　a(1) = "明るく"
　　　　a(2) = "活動的"
　　　　a(3) = "積極的"
　　　　a(4) = "前向き"
　　　　a(5) = "優しい"
　　　　a(6) = "優しく"
　　　　a(7) = "忍耐強い"
　　　　a(8) = "忍耐強く"
　　　　a(9) = "繊細"
　　　　n(0) = "太郎"
　　　　n(1) = "花子"
　　　　n(2) = "次郎"
　　　　n(3) = "優子"
　　　　n(4) = "三郎"
　　　　s(0) = "は"
　　　　s(1) = "で"
　　　　w = n(0) + s(0) + a(1) + a(4)
　　　　Console.WriteLine("{0:s}", w)
　　　　w = n(1) + s(0) + a(6) + a(7)
　　　　Console.WriteLine("{0:s}", w)
　　　　w = n(2) + s(0) + a(2) + s(1) + a(8) + a(9)
　　　　Console.WriteLine("{0:s}", w)
　　End Sub

End Module

では、第９話の課題です。
性格項目の代入はf()、名前の入力はg()、つなぎ言葉（『は』と『で』）の代入はh()、
組み合わせてからの表示はhy()が担当するという分業を実現させて下さい。
つまり、色の付いている部分をそれぞれの社員に担当させるということです。