求助：編程語言不限，最好有相應的流程圖和程序設計說明：隨機產生20個正整數，輸出其中的最大值和最小值

Dim num(1 To 20) As Integer'保存隨機數

Dim max As Integer, min As Integer'保存最大值和最小值

Me.Show '

max = 0: min = 100 '初始化

Randomize Timer '

For i = 1 To 20

num(i) = Fix(Rnd() * 100) + 1

If num(i) > max Then max = num(i)

If num(i) < min Then min = num(i)

Print num(i);

Next i

Print

Print max

Print min