しずかのレッスン風景

Lesson2
Question
VBScriptを使って前回の足し算のプログラムを作成してください。
前回のプログラムでは、足す数と足される数を入力していましたが
今回は、予め両方の数値を用意しておいてStep1のように結果表示
だけをさせてください。
問題  足す数    足される数
@   10     20
A   12     12
B   14     −7
C   16     128
D   18     46
Step1:10+15の結果25を表示します。
例 MsgBox 10+15
Answer
Dim total,A,B,i
A=Array(10,12,14,16,18)
B=Array(20,12,-7,128,46)

For i=0 To 4
total=A(i)+B(i)
If B(i)>=0 Then
msgBox "問題("&i+1&") "&A(i)&"+"&B(i)&"="
Else
msgBox "問題("&i+1&") "&A(i)&B(i)&"="
End If
msgBox "答えは"&total&"です。"

Next
Comment
プログラムは、OKです。
良く出来ています。
プログラミングセンスもなかなか良いものが出ています。
この調子でがんばってください。


Copyright (C) 2001 Binary Corporation. All Rights Reserved.