Question

用VB给主程序定义动态数组,给数组各元素通过inputbox赋值

主程序定义动态数组，给数组各元素通过inputbox赋值
调用子过程按一行m列来打印数组，m为该子过程形式参数
调用函数过程判断各个元素是否为素数，把是素数的元素按3个一行打印在窗体上
调用函数过程求数组个元素的最小公倍数

Answer 1

您好，您这样：
dim a(19) as double
for i=0 to 19
a(i)=inputbox("请输入一个数")
next
dim min1 as double '记录最小值
dim min2 as integer '记录下标
min1=a(0):min2=0 '要赋初值
for i = 1 to 19
if a(i)<min1 then
min1=a(i):min2=i
end if
next
print "最小数是：" & min1 & " 其下标是：" & min2

追问

可是你没有定义动态数组呀。可以把详细的步骤写出来吗