こんばんは。

質問

こんばんは。
私には高校生の弟がいるのですが、今プログラミングの勉強をしているみたいで、if文をやっているそうです。
その課題がでたようなのですが、わからず、私も少し勉強していたころがあったので、やってみたのですがわからなくて、ぜひ教えていただきたいと思いまして・・・

課題の問題はこれです。
↓
処理コードSの値を入力し、
Sが１の時三角形の面積を
Sが２の時円の面積を
１・２以外の時は"インプットエラー"を表示しなさい。
各面積を求めるための、底辺、高さ、または半径も入力すること。

よろしくお願いします。

回答No.2

imogasi

Basicも今では
１．教育的に（簡単なので）旧ＢＡＳＩＣの状態のもの（各社のものがあるよう）
　　そのほかウィンドウズ時代以前の各社Basic
２．ＶＢ６．０（ＭＳ社のもの）（エクセルＶＢＡなどのＶＢ）
３．ＶＢ.ＮＥＴ（Ｍｓ社のもの）
の3つぐらいある。
どれか書かないと答えに困る。
VB時代になると、データ受付はフォームのテキストボックスへの入力にすることが多い。
ーー
２の時代なら
INPUTBOXで値を受け入れ（Prompt文で要求内容を表示）
その値について、IF文で１か２か判別（Case文で場合を分ける方法もある）
それ以外ならインプトエラー表示Msgbox
１の場合底辺と高さをInputboxで受け入れ
公式で面積計算
Msgboxで表示
２の場合半径をInputboxで受け入れ　
公式で面積計算
Msgbox表示
上記で判らない用語があればWEB例えばGoogleで照会すること。
いまVBを添えて照会するとVB.NETに関し手になる。
VB６であればInputbox VBAなどで照会する方が良いかも。例Inputbox VBA

回答No.1

tyosu

言語は何を使用しているかわかりませんが、
S・底辺・高さ・半径の入力欄(各txtS・txtTEIHEN・txtTAKASA・txtR)
アンサーを表示するラベル（LblAns）を作成したら

Private Sub txtS_Change(Index As Integer)
'三角形のとき
if txtS.text = "1" then
LblAns.caption = Cint(txtTEIHEN) * Cint(txtTAKASA) * 0.5
'円のとき
elseif txtS.text = "2" then
LblAns.caption = Cint(txtR) ^ 2 * π　　　　'　πには円周率を入れてください
'その他
else
LblAns.caption = "インプットエラー"
end if
End Sub

Vb6ならこんな感じでいいと思います