BASICによるプログラミング

質問

29の問題が分かる方がいたら教えてください。言語BASIC
サブルーチンだと思います。

回答No.1

imogasi

これは、コンピューターの初等資格試験の問題集なのか？
Ｂａｓｉｃといっても、今のＶＢでは当然なさそうだ。
処理系（Ｂａｓｉｃの種類）を書かないと、正確には答えてもらえない。
しかしそれを書いたとしても、いまどき、ＶＥＣＴＯＲのフリーの旧Ｂａｓｉｃなどのあり無しを調べて、その処理系があれば、ダウンロードして、プログラムを作り、回答くれると思うのは、行き過ぎと思う。
現に、日にちは経ったが、回答がついてないわね。
こんなのは、公のＷＥＢで質問しなくても、後日、先生が回答をしてくれるのではないの。
（質問者は独習しているの？）
他人に作ってもらったのを回答などしても、先生の、現状の生徒の学力の判断を誤らすだけ。
今ではＶｉｓｕａｌＢａｓｉｃでも古くなった、ＶｉｓｕａｌＢａｓｉｃ６相当のエクセルＶＢＡで、昔を思い出して、旧時代Ｂａｓｉｃは手元にないが、それらしくやってみた。
参考になれば、参考にしてください。
ーー
InputBox("コード"）のあたりは、改変が必要と思う。
当時はＰｒｉｎｔ文（画面表示）でまず、要求項目の「コード」と画面に出して、次行で入力を受け付けるステートメント（Ｉｎｐｕｔ）を入れたように思う。３０年ぐらい前のことで、忘れてあいまい。
Sub test01()
Open "県データ" For Output As #1
a1:
a1 = InputBox("コード")
If a1 = "999" Then GoTo owari
a2$ = InputBox("県名")
a3 = InputBox("面積")
Print #1, a1; ","; a2$; ","; a3
GoTo a1
owari:
Close #1
End Sub
ーー
ＶＢでの最初と最後の
Sub test01()
End Sub
は、旧ＢＡＳＩＣでは、最初はプログラム名で、最後はＥｎｄだったかな。
Ｏｐｅｎ、Ｉｎｐｕｔ、Ｉｆ，Ｐｒｉｎｔ、ＧｏＴｏ、Ｃｌｏｓｅは言っているＢａｓｉｃにもあると思う。
Ｉｎｐｕｔ文がＶＢＡでは使えないと思うので
InputBox("コード")
になっている。
999は終りのためのサインで、昔はおなじみのもの。
Ｐｒｉｎｔ＃では；は、続けて（改行しないで）次の項目を出力するもの。
ーー
結果
メモ帳で,画面表示してみると
34,岩手,333
12,青森,222
のようになった。
ＣＳＶというファイル形式（今でも使われる）です。
この点もこの問題には、それなりの使うべきファイル形式の前提があると思うが、質問者はわかってないらしく、書いてない。
上記（は、もんだいにはある、その後の読み込む部分は省略している）が参考になればＣＳＶファイルを読むコードを調べてみるが。