Question

4. 使用数组设计一程序, 任意输入10个整数, 输出其中最大的. (提示: 使用InputBox函数输入, DeBug输出.)

Answer 1

private sub form_load()
dim a(1 to 10) as integer,max as integer,i as integer
for i=1 to 10
a(i)=val(inputbox("输入第" & i & "个数字："))
if a(i)>max then max=a(i)
next
debug.print "最大的数是：" & max
end sub

追问

写明白一点，全程序

追答

全部代码都在啊，就这么多，你一起复制到VB里面就可以运行了。