DIM K（N）As double
for j =1 to N
READ K(j)
可以这样写吗？
求高手指点，

有大神知道吗可以写不？我刚开始学VB

数组没问题
但是变量你必须声明
Read可以改为Print VB没有Read这个命令语句

例如 你定义了
Dim k(3) as long, a as long,b as long,c as long,d as long
上面这行我不喜欢这样写,看起来乱, 个人习惯问题 我是下面一行【合法】的写法
Dim k&(3),a&,b&,c&,d&
当你从任何地方返回了k() 这数组的数据, 你就可以调用这个K数组变量里面的每一个元素
a=k(0)
b=k(1)
c=k(2)
d=k(3)

正确的写法
Dim a As Long,b As Long,c As Long,d As Long
或
Dim a&,b&,c&,d&
数组一般以 LBound(下标) UBound(上标) 来做循环控制
Dim i&, a&() '变量声明
Private Sub Command1_Click()
ReDim a&(10) '重新定义上标为10 共11个元素的数组
For i = LBound(a) To UBound(a) '从下标开始循环到数组的上标
a(i) = i '循环逐一的将i值赋值给数组每个元素
Print a(i) '打印每个元素
Next i
End Sub

接上面教材里面的内容
Dim i&, a&() '变量声明
Private Sub Command1_Click()
ReDim a&(10) '重新定义上标为10 共11个元素的数组
Me.Cls
For i = LBound(a) To UBound(a) '从下标开始循环到数组的上标
a(i) = i '循环逐一的将i值赋值给数组每个元素
Print a(i) '打印每个元素
Next i
End Sub
'****************** 看看 Redim 不加上 Preserve 的差别在哪里
'上面我们有0-10共11个数组元素 现在我们需要多添加一个 看看结果差别
'我们在Command1的时间里面看到了 打印出来01234....10 对吧
Private Sub Command2_Click()
ReDim a&(11) '重新定义上标为11 共12个元素的数组
Me.Cls
For i = LBound(a) To UBound(a) '从下标开始循环到数组的上标
Print a(i) '打印每个元素
Next i
'因为我们重新定义了数组(没加上Preserve) 你看到的将是00000000000
End Sub
'****************** 看看 Redim 加上了 Preserve 后的差别在哪里
'上面我们有0-10共11个数组元素 现在我们需要多添加一个 看看结果差别
'我们在Command1的时间里面看到了 打印出来01234....10 对吧
Private Sub Command3_Click()
'Command1_Click
ReDim Preserve a&(11) '重新定义上标为11 共12个元素的数组
Me.Cls
For i = LBound(a) To UBound(a) '从下标开始循环到数组的上标
Print a(i) '打印每个元素
Next i
'因为我们重新定义了数组(但是我们加上了Preserve) 你看到的将是012345..0
'仍然保留了原来0-10的数值 11是新定义的当然是0
End Sub

不可以，VB没有READ 语句的，
READ K(j)
用：
k(j) = val(inputbox("输入第" & j & "个数据"))
代替