tiny basicでのプログラミングの仕方をおしえてください！

質問

次の文をwindowsXPのtiny basicで入力するには、どのように入力すればいいのか教えてください！！

200人の児童の1科目のテストの得点（100点満点）を入力して、それぞれ出力するプログラムを書きなさい。
（1）85点以上の児童の人数
（2）85点未満、しかも60点以上の児童の人数
（3）60点未満の児童の人数

知っている方はよろしくお願いします！

回答No.2

big_egg

間違いを発見。

>{人数20人としての一例
（200人の場合は変数「UketaNinzu」と変数「Ten(19)」の数字を200に変更の事）}

は、

{人数20人としての一例
（200人の場合は変数「UketaNinzu」と変数「Ten(19)」の数字を199に変更の事）}

でした。

回答No.1

big_egg

一例として。

{人数20人としての一例
（200人の場合は変数「UketaNinzu」と変数「Ten(19)」の数字を200に変更の事）}

{テストを受けた人数用変数宣言}
Dim UketaNinzu as Real

{点数用変数宣言}
Dim Ten(19) as Real

{人数カウント用変数宣言}
Dim Ninzu(2) as Real

{人数カウント項目名用変数宣言}
Dim NinzuN$(2) as String

{カウント用変数宣言}
Dim i as Real

{変数初期化}
UketaNinzu=19

{変数初期化}
Ninzu(0)=0 {0～59点用カウンタ}
Ninzu(1)=0 {60～84点用カウンタ}
Ninzu(2)=0 {85～100点用カウンタ}

NinzuN$(0)="0点～59点の人数" {0～59点用項目名}
NinzuN$(1)="60点～84点の人数" {60～84点用項目名}
NinzuN$(2)="85点～100点の人数" {85～100点用項目名}

{点数データの読込}
For i=0 To UketaNinzu
Read Ten(i)
Next

{点数判定}
For i=0 To UketaNinzu
If Ten(i)>=85 Then
Ninzu(2)=Ninzu(2)+1
ElseIf Ten(i)>=60 Then
Ninzu(1)=Ninzu(1)+1
Else
Ninzu(0)=Ninzu(0)+1
End If
Next

{結果表示}
For i=0 To 2
Print NinzuN$(i),Ninzu(i)
Next

{確認の為の合計人数表示}
Print "合計人数：";Ninzu(0)+Ninzu(1)+Ninzu(2)

End

{点数データ}
Data 0,30,45,60,50,87,99,100,5,10
Data 35,75,15,85,60,25,63,79,67,39

Dimの宣言は必要無いとは思いますが、一応。

何かの宿題の場合は、丸写しでは無く理解をしてから、と言う事で。
あくまで一例です。
（結果は同じでも書き方は色々）