如果给定了一组数,假如为12156 13 35 42 21 9 求最大值最小值如下：
privatesubcommand1_（）
dim a(7) asinteger
min=12
max=12
fori=1to7
if a(i) 〉 maxthen
max=a(i)
elseif a(i)