第５講 プロシージャ(1)
第２話 ２人の社員による挨拶
実行画面が
こんにちは！
今日は良い天気ですね。
となるプログラム例
Module Module1

　　Sub Main() '私は社長だ。
　　　　Call f()　 'f()君、仕事をしなさい!
　　　　Call g()　 'g()君、仕事をしなさい!
　　End Sub
　　Sub f() '私は社員です。
　　　　Console.WriteLine ("こんにちは！")
　　End Sub
　　Sub g() '私は社員です。
　　　　Console.WriteLine ("今日は良い天気ですね。")
　　End Sub

End Module


さて、社長が２人の社員に仕事を命じるプログラムですが、
平社員同士でも仕事を頼むことが出来のでしたね。
社長が社員f()に仕事を命じて、社員f()が社員g()に仕事を依頼して、
同じ結果になるプログラムを考えて下さい。
解答例は３０行下とします。
































解答例
Module Module1

　　Sub Main() '私は社長だ。
　　　　Call f()　 'f()君、仕事をしなさい!
　　End Sub
　　Sub f() '私は社員です。
　　　　Console.WriteLine ("こんにちは！")
　　　　Call g()　 'g()君、仕事お願い!
　　End Sub
　　Sub g() '私は社員です。
　　　　Console.WriteLine ("今日は良い天気ですね。")
　　End Sub

End Module

同じ結果になりました。
では、社員g()も社員f()に仕事を依頼して、
Module Module1

　　Sub Main() '私は社長だ。
　　　　Call f()　 'f()君、仕事をしなさい!
　　End Sub
　　Sub f() '私は社員です。
　　　　Console.WriteLine ("こんにちは！")
　　　　Call g()　 'g()君、仕事お願い!
　　End Sub
　　Sub g() '私は社員です。
　　　　Console.WriteLine ("今日は良い天気ですね。")
　　　　Call f()　 'f()君、仕事お願い!
　　End Sub

End Module
としたらどうなるのでしょうか。