声明有一个20个元素的一 维数组A，使用inputbox函数为其所有元素赋值，然后将其中最小元素用下标表示出来

Question

这是一道vb题，希望高手解答

Answer 1

dim a(19) as single
dim i as integer
dim j as integer
for i=0 to 19
a(i)=val(inputbox("请输入数字："))
next i
j=0
for i=1 to 19
if a(i)<a(j) then j=i
next i
print "最小元素下标为：" & j
因为题目没有说明是整数数组，故以上假设为单精度数组。