Tiny Basicのプログラムです。。

質問

Tiny Basicのプログラムで

試験の成績を入力し、30点未満なら青点、30点以上50点未満なら赤点、50点以上なら合格と表示するプログラムを作成せよ。青点、赤点、合格を判定する部分は副プログラムとして作成せよ。 という問題があったんです。
それで僕は
Cls
input A
Call Q
Sub Q
END
Select Case A=A
Case A=<29
print"青点"
Case A=>50
print"合格"
Case else
print"赤点"
End Select
End sub

というプログラムをつくったんですがどんな点数を入れても青点って結果がでてしまうんです。
どうしたらいいんでしょうか？

回答No.3

DT200

Select Case の使い方が間違っています。

Select Case A　　　← A=Aではない
Case 0 To 29　　　　←　toで範囲を指定できるか不明（以上や以下という使い方はできない）
print "青点"
Case 30,31,32,33, .... ,48,49　　←　これはＯＫのはず
Print "赤点"
Case 50 To 100
Print "合格"
Case Else
Print "入力誤り"
End Select

とするか、If文で判断します。

If ( A >= 0 ) and ( A < 30 ) Then
Print "青点"
Else If ( A>=30) and (A<50) Then
Print "赤点"
Else If (A>=50) and (A<=100) Then
Print "合格"
Else
Print ”入力誤り"
End If

お礼

Select Caseのプログラムはなんかよくわからなくてできませんでした。。

If文はとりあえず入れてみましたがエラーになってもうすこしでできそうだったんですが。。(泣

Cls
input A
Call mb
end
Sub mb
If ( A >= 0 ) and ( A < 30 ) Then
Print "青点"
Else If ( A>=30) and (A<50) Then
Print "赤点"
Else If (A>=50) and (A<=100) Then
Print "合格"
end if
End sub
end

という感じです
起動させるとSub文に対応してませんとでてしまって