Private Sub Form_Load()

Dim a(1, 2) As Integer, i As Integer, j As Integer
Dim s As String

Open "G:\cli.txt" For Input As #1
For i = 0 To 1
For j = 0 To 2
Line Input #1, s

a(i, j) = CInt(s)
Next j
Next i
End Sub
在运行过程中说a(i, j) = CInt(s)类型不匹配，请教如何改？？

VB 二维数组不是那样定义的吧 a（1）（2）  我还就没用了

好像是这么定义的吧？

应该是S中有不是数字的字符，把它们全去掉就好。
估计是字符串中有空格或是回车符。

Private Sub Form_Load()

  Dim A(1, 2) As Integer, I As Integer, J As Integer
  Dim S As String
  Dim K As Long
  
  Open "G:\cli.txt" For Input As #1
  For I = 0 To 1
    For J = 0 To 2
        Line Input #1, S
        For K = 1 To Len(S)
          If InStr("0123456789", Mid(S, K, 1)) < 1 Then
            Mid(S, K, 1) = " "
          End If
        Next
        S = Replace(S, " ", vbNullString)
        If Len(S) Then A(I, J) = CInt(S)    '这里还要小心溢出
    Next J
  Next I
End Sub