用VB编程，利用窗口输入10个数，求这10个数的最大值

dim a(10)!
for i=0 to 9
a(i)=inputbox("请输入第" & (i+1) & "个数")
next i
max=a(0)
for i= 1 to 9
if a(i)>max then max=a(i)
next i
print "最大数是";max本回答被提问者采纳