至急!! アルゴリズムの問題で左の写真の答えだけ教えてください!6問ありますが分かる問題だけでもいいのでお願いします:;(∩´﹏`∩)

画像
補足

ある交通機関の料金は、6歳未満は幼児料金で無料、6歳以上12歳未満は小人料金で大人料金の半額、12歳以上は大人料金(200円)である。この料金を表示するプログラムを作成してみよう。 Sub start() Dim otona as integer, nenrei as integer otona = 200 nenrei = Inputbox("年齢は?") If (nenrei < 6)Then MsgBox("0円") Elseif (nenrei<12)Then MsgBox(otona/2 & "円") Else MsgBox(otona & "円") End If End Sub ↑この問題だとこんな感じで解いてるので、こんな感じでお願いします。

Visual Basic | ネットワーク技術83閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

回答ありがとうございます。 補足で載せた感じの解き方でお願いできますか? 今日中に分かったら嬉しいです。 夕方授業が終わったら返事します。 ありがとうございます!

ThanksImg質問者からのお礼コメント

ご丁寧にありがとうございました♪

お礼日時:6/24 3:32

その他の回答(1件)