TextBox1.Text是字符串型的,赋值给整型的array(i)所以出错。如果改成array(i) = Val(TextBox1.Text),则10个数都是取第一个数的值。最好是用Inputboxarray(i) = Val(InputBox("请输入第" & i & "个数", "输入"))
array(i) = TextBox1.Text改成array(i) = Val(TextBox1.Text)试试