| たくやのレッスン風景 | ゆたかのレッスン風景 | まどかのレッスン風景 | あやかのレッスン風景 |
| しずかのレッスン風景 |
|
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.