请帮我检查一下vb程序哪儿出错了？

Private Sub Command1_Click()

Dim a(100)
Dim x(100)
Dim b(100)
Dim c(100)
Dim k(100)

Print "1.输入组分数"
Print "2.输入压力的初值"
Print "3.输入初始温度t1"
Print "4.输入第1种组分的摩尔比率x"
Print "5.输入第2种组分的摩尔比率x"
Print "6.输入第3种组分的摩尔比率x"

Print "7.输入第1种组分的安托尼方程参数A"
Print "8.输入第2种组分的安托尼方程参数A"
Print "9.输入第3种组分的安托尼方程参数A"
Print "10.输入第1种组分的安托尼方程参数B"
Print "11.输入第2种组分的安托尼方程参数B"
Print "12.输入第3种组分的安托尼方程参数B"
Print "13.输入第1种组分的安托尼方程参数C"
Print "14.输入第2种组分的安托尼方程参数C"
Print "15.输入第3种组分的安托尼方程参数C"

For i = 0 To 14

a(i) = Val(InputBox("依次输入数据" & i + 1))

Next
n = a(0)
p = a(1)
t1 = a(2)

x(0) = a(4)
x(1) = a(5)
x(2) = a(6)
a(0) = a(7)
a(1) = a(8)
a(2) = a(9)
b(0) = a

这个程序哪里错了，请帮我检查一下 请高手帮我检查一下这个lingo程序?急!! 请帮我检查一下作文 帮我检查一下这个小程序 请帮我检查一下翻译正确吗? 请帮我检查一下错误(韩) 请贵人帮我检查一下英语语法！急！！！ asp源码出错,那位帮我检查一下，初学者，谢谢！ 谁帮我检查一下，为什么这个VB语句错误？ 请帮我看看这个VB程序!!!