下面是根据你的程序改起来的,改动的地方就是把Form_load函数中的40个双引号去掉Option ExplicitOption Base 1Const num = 10Dim a(num) As Single, b(num) As Single, c(num) As SingleDim x As Single, m As SingleDim sum As Single, i As IntegerPrivate Sub Command1_Click()sum = 0For i = 1 To num
c(i) = ((a(i) - 60) / 10 + 1) * b(i)
sum =