关于VB的一个小程序的问题

来源：百度知道 编辑：UC知道 时间：2024/05/28 12:40:25
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static Dim I As Integer
Static Dim J As Integer
Static MultiDim(10, 10) As Double
For I = 1 To 10
For J = 1 To 10
MultiDim(I, J) = I * 10 + J
Next I
Next J
MsgBox(Cstr(Lbound(MultiDim,2))&" "&Cstr(Lbound(MultiDim,2))
End Sub
End Class
这个程序在运行时总是出现2个问题：
（1）next后面的I和J跟for后面的I和J老是显示不匹配
（2）Msgbox那一行最后的那个反小括号老是显示有错
请高手指教

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static Dim I As Integer
Static Dim J As Integer
Static MultiDim(10, 10) As Double
For I = 1 To 10
For J = 1 To 10
MultiDim(I, J) = I * 10 + J
Next J
Next I 'I,j顺序要匹配。当然你可以直接写Next，方便一点

MsgBox Cstr(Lbound(MultiDim,2)) & " " & Cstr(Lbound(MultiDim,2)) '左面多了一个括号。
End Sub
End Class

j和i位置换错了
For I = 1 To 10
For J = 1 To 10
MultiDim(I, J) = I * 10 + J
Next j
Next i
p=MsgBox(Cstr(Lbound(MultiDim,2))&" "&Cstr(Lbound(MultiDim,2))
去试试！

你先for i，又for j，那么必须先next j，再next i，必须严格匹配。
MsgBox没有写完，少个）。
你也了一个左括号，就必须有一个右括号。再认真数一下，必须严格匹配。