vba编程从键盘输入10个数，输出其中的最大值和最小值

如果你觉得不好看，也可以分开写，

Maxnub=max(range("A1:A10"))

Minnub=mim(range("A1:A10"))

然后msgbox “最大：&Maxnub"

msgbox “最小：&Minnub"

sub test ()

msgbox "最大数是：" &max(range("A1:A10"))

msgbox "最大数是：" &max(range("A1:G10"))

msgbox "最小数是："&min(range("A1:A10"))

msgbox "最小数是："＆min(range("A1:G10"))

end sub

---