OriosのActiveBasic講座(1-2):やってみようの答え(1-2)

「1+2+3+4+5+6+7+8+9+10」の答えを入力してもらい、その答えを下の表と照らし合わせて結果を表示するプログラムを作ってみよう。

入力された答え	表示するメッセージ	音
45以上55未満(45は含むが55は含まない)	おしい。もう少し上だよ。	○
55	お見事！ひょっとして天才？	×
55を超え65以下(55は含まないが65は含む)	おしい。もう少し下だよ。	○
それ以外	「よーく考えよー。計算大事だよ。」	○

#console
Dim a As Long
Input "1+2+3+4+5+6+7+8+9+10=",a '問題の出し方はどのようにしても構いません
'If 45<=a<55 Then
If 45<=a And a<55 Then '2004年3月23日訂正(上の間違えのように複数の演算子によって一括して条件を指定することはできません。下も同じです。) ElseIf a=55 Then 'ElseIf 55<a<=65 Then
ElseIf 55<a And a<=65 Then '2004年3月23日訂正 Else EndIf
Sleep(3000)
End

数字を2つ入力してもらい、その和の数だけ「*」を表示させるプログラムを作ってみよう。 但し2つの数字の和が100を超えていたら「*」を100個表示した後に、 「これ以上は表示できません。」と表示するようにしましょう。

#console
Dim a As Long
Dim b As Long
Dim i As Integer
Input "数字を2つ、コンマで区切って入力してください。",a,b
While i<100 and i<a+b '始めにi=1を代入しておいてi<=100,i<=a+bにするのも可 WEnd
If a+b>100 Then EndIf
Sleep(3000)
End

　ユーザーに、「0」を打つまで数字を何回も入力してもらい、 ユーザーが「0」を入力したら、今まで打ってきた数字の総計を表示するプログラムを作ってみよう。

#console
Dim a As Long
Dim b As Long
Print "数字を入力してください。但し0を入力すれば終わります。"
Do Loop Until a=0
Print b
Sleep(3000)
End

　100までの数の中で、2の倍数でも3の倍数でもない数のみ表示するプログラムを作ってみよう。 ただし、Continueを使ってください。

#console
Dim i As Long
For i=1 To 100 '"Step 1"を書いてもOK Next
Sleep(3000)
End

「1+1」という問題を出し、「2」と答えたら「正解」、「1」もしくは「3」と答えた場合は「おしい」、 その他を答えた場合は「残念」と表示するプログラムを作ってみよう。 ただし結果は入力された場所から2行下(=1行間を空けて)表示するようにしてください。

#console
Dim a As Long
Input "1+1=",a
Locate 0,2
SelectCase a EndSelect
Sleep(3000)
End