我这个程序哪里错了，为什么说是下标越界？
PrivateSubcmdcomedi_Click()Dimcomedi(1To51273)AsSingleDimjAsLongOpen"D:\di.txt"ForInp...
Private Sub cmdcomedi_Click()
Dim comedi(1 To 51273) As Single
Dim j As Long
Open "D:\di.txt" For Input As #2
For j = 1 To 51272
Input #2, comedi(i)
Next
Close #2
temporary1.Text = comedi(5)
End Sub 展开
Dim comedi(1 To 51273) As Single
Dim j As Long
Open "D:\di.txt" For Input As #2
For j = 1 To 51272
Input #2, comedi(i)
Next
Close #2
temporary1.Text = comedi(5)
End Sub 展开
2个回答
展开全部
comedi(i)??
i没有定义吧，是j???
i没有定义吧，是j???
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Input #2, comedi(i) 这里可能是J...Input #2, comedi(j)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
