VBの条件判断の応用問題

プログラムが得意な人たちや自分としては大変簡単に感じる問題ですが、分からないものは分からない、という気持ちもわからなくはないですが……

このサイトでの答えだけの書きこみはご法度なので以下はヒントです。半分答えですが。。。

仕様１．分かると言うことで省略


仕様２．SelectCase構文を使う、という時点で答えはひとつしかないですね。

Select Case 判断する変数
Case 判断値その１
判断する変数の値が判断値その１だったら行う命令
Case 判断値その２
判断する変数の値が判断値その２だったら行う命令
Case 判断値その３
判断する変数の値が判断値その３だったら行う命令
……
Case Else
判断する変数の値がどれにも該当しなかったら行う命令
End Select

判断する変数、判断値、判断する変数の値が判断値だったら行う命令、この三つの内容が分かればSelectCase構文を用いたコードの完成です。そして問題文から、仕様１で取得した番号、呼び径番号の種類、呼び径番号による基本料金を決定すること、が決まっています。なので、呼び径番号が１だったら、呼び径番号番号が２だったら……という感じに数珠繋ぎに考えればＯＫです。


仕様３．これはSelectCase構文にするかIf文にするかで書く答えそのものが変わりますが、それぞれ考え方及びその扱いは変わりませんので自分に簡単なほう（慣れているほう、よく分かるほう）を選びましょう。
「各区分の料金表の単価を使用量の各増分に適用して、増分毎の料金を求めて積算する」
こういっているので、１～５立方ｍの単価での料金、６～１０立方ｍの単価での料金、１１～２０立方ｍの単価での料金……を順次計算してそれぞれを加算していくプログラムを作らなくてはいけません。
簡単な方法としては、まずは仕様２と同じようにSelectCase構文を作り、呼び径番号毎に命令を区分けします。その命令の中に、複数のIf文を用いてうまく単価の料金を計算するようにしましょう。調べて答えを探すのではなく、パズルを解くように頭をひねってIf文の応用を考えてください。
もし使用量が１以上５未満だったら１～５立方ｍの単価での料金は……もし使用量が５以上だったら１～５立方ｍの単価での料金は……もし使用量が６未満だったら６～１０立方ｍの単価での料金は……もし使用量が６以上１０未満だったら６～１０立方ｍの単価での料金は……もし使用量が１０以上だったら６～１０立方ｍの単価での料金は……

このときはこうする、そのときはこうする、あのときはこうする、どれでもなかったらこうする……こんな感じにひとつひとつIf文を書いていくのが現時点ではベストだと思います。そりゃもっといい方法がたくさんあるんですけどね、今は気にせずにIf文連打。問題がIf文使えと書いているのですから。


仕様４．仕様２と仕様３で各料金が決定するのですから、あとは消費税を計算するだけです。
「Int関数の引数に計算式を書き入れ、その関数値を整数型変数に代入すればよい。」
ここまで言い切っているので答えはもう決まっているようなものです。基本なことですが、関数、引数、変数の書く意味を調べて理解できれば仕様４の問題は簡単です。”整数型変数”ということなのでちゃんと整数型であることを宣言することを忘れないこと。


ひたすら調べて答えを求めるのではなく、パーツを組み合わせてうまく動くものを作ると言う気持ちで取り組んでみてください。

この質問の対処法は、こまめな、場合分けに尽きるのです。

Select caseの問題であるのですが、
（１）これはいわばルール記述法ですが
今はあれこれ考えられないでしょうが、この騒ぎが収まった後、興味があれば、エクセルの場合、
（２）表引き法を考えると勉強になりますよ。
（A）料金表をエクセルシートの表に作る。
（B)口径でVLOOKUP（またはMATCH)関数を使い該当行を得る。ー＞基本料金を知る。
（C)使用量でHLOOKUP（またはMATCH）関数を使い該当列を得る。ー＞１立米あたりの料金を得る。
後は使用量ｘ単価の掛け算、税計算の問題と基本料金の足し算です。
（注意）ただし一般用と公衆浴場分は別表に作る。
後の表検索利用の便宜上、２列以上にまたがって同じ単価の区画も上の使用量の区分に従って、同じ値を埋めておくこと。
ーー
VLOOKUP・MATCH関数ははVBAでも使えます。
WEBにVLOOKUP・MATCH関数の解説はあふれています。
「VBA　VLOOKUP、VBA　MMATCH」でも記事が沢山出ます。
ーーー
この方法の良いところは、公衆＋一般やその他の大きな体系が変更無い限り、修正があっても、テストが簡単で済みます。
コードが非常にすっきりする。数行で済みます。

1) で呼び径番号を取得しているのですから

2) の部分は
Select case 呼び径番号
case 1 ' 13mm
基本料金 = 860
case 2　' 20mm
基本料金 = 1170
case 3　' 25mm
基本料金 = 1460
case 4 ' 30mm
基本料金 = 3450
...
end select
となることが理解できますか？

これが分からないとなると もっと基本的な部分からやり直しですが

２が分からないという事は、出題文以前に問題があるように思われます。

Select～Case文はどういった構文か理解されてますでしょうか？
ご質問者様が分かっている範囲で補足お願い致します。

もし分からない場合は、書店にてVBの書籍がたくさんありますのでご購入されてはいかがでしょうか？
問題文の１が分かるという事はVBの使い方は分かっておられるようですので、構文ごとに調べる事が出来て使用例が載っているのが良いと思います。

１，２は簡単に出来ると思いますが・・・。

３の部分はじっくりと考えるしか無いでしょうね。
３が出来れば４は簡単。

説明文には基本的な方法が書かれているので、難しく考え過ぎない事です。

>という初心者に対して大変難しいもんだいです。

見た所、初心者のために一から十まで事細かに指示された非常に優しい問題とお見受けします。

丸投げは削除されるので、40one さんがわからない部分を補足するといいよ。