新手学习遇到问题求大神解答

srxog2

我按照书上写的那样 在写

一直是红字，感觉完全没有打错。还有里面的下划线是什么情况来着_
我不管打不打都是红字报错啊
PS：我是2016.有影响没？

小菜鸡求指教

chxw68

1. Sub arrcount()
   
2.   Dim arr(10 To 50)
   
3.   MsgBox "数组的最大索引号是:" & UBound(arr) & Chr(13) _
   
4.   & "数组的最小索引号是:" & LBound(arr) & Chr(13) _
   
5.   & "数组的元素全数是:" & UBound(arr) - LBound(arr) + 1
   
6. End Sub
   

复制代码

chxw68

或者采用下面这种形式也行：

1. Sub arrcount()
   
2.   Dim arr(10 To 50)
   
3.   MsgBox "数组的最大索引号是:" & UBound(arr) & Chr(13) & "数组的最小索引号是:" & LBound(arr) & Chr(13) & "数组的元素全数是:" & UBound(arr) - LBound(arr) + 1
   
4. End Sub
   

复制代码

srxog2

chxw68 发表于 2016-11-17 20:39

感谢指导，已经理解啦