A variable contain 10 integers.

Sub？ Master ()

Dim? Answer (10)

Dim? Me? Max. department

Max. =? -32766

Min? =? 32766

For what? Me? =? 0? Where to? nine

A (me)? =? CInt(InputBox ("Enter a number:",? "Example"? I))

What if? A (me)? & gt？ Max. then what Max. =? Answer (1)

What if? A (me)? & lt？ Min? then what Min? =? Answer (1)

Next? I

MsgBox？ What is the maximum quantity? & amp？ Max. & amp？ ",? Minimum quantity: "? & amp？ department

End? submarine