『3つの整数aとb,cを各々Inputboxで入力し、その合計と平均を表示する。
実行例:aが14、bが36、cが3であれば 合計は17.6666666666667です。』

って、いう課題が大学で出てるんですけど、意味がわかりません。
もし、意味がわかったなら教えてください。
よろしくお願いします。

A 回答 (3件)

Sub Main()


 Dim lLoop As Long
 Dim sMsg As String
 Dim sBuf As String
 Dim dData(2) As Double
 Dim dSum As Double

 sMsg = "Input "
 Do
  For lLoop = 0 To 2
   sBuf = InputBox(sMsg & Chr(Asc("A") + lLoop))
   If sBuf = "" Then Exit Do
   dData(lLoop) = Val(sBuf)
  Next lLoop
  dSum = dData(0) + dData(1) + dData(2)
  MsgBox Str(dData(0)) & " + " & Str(dData(1)) & " + " & Str(dData(2)) & " = " & _
  vbCrLf & "合計 " & dSum & " 平均 " & dSum / 3
 Loop
End Sub
    • good
    • 0

まず、これは、問題がおかしいです。

正しくは、

『3つの整数aとb,cを各々Inputboxで入力し、その合計と平均を表示する。
実行例:aが14、bが36、cが3であれば 合計は53、平均は17.6666666666667です。』

だと思います。

InputBoxというのは、画面に入力を促すダイアログボックスを表示して、入力する関数です。

a=InputBox("数字を入力してください")

こんな感じで使います。詳しい使用法は、Visual Basicのヘルプを見てください。
    • good
    • 0
この回答へのお礼

RIOさんのいう通り、問題写すの間違ってました・・・。すみません!
『実行例:aが14、bが36、cが3であれば 
合計は53、平均は17.6666666666667です。』
どうも、お騒がせしました!(笑

お礼日時:2001/10/04 14:21

>合計は17.6666666666667


 平均の誤植だと思います
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ