在线等待答案！！！这样的Dim Textline as string*200定义方式怎样解释？？？？

Question

在线等待答案！！！这样的Dim Textline as string*200定义方式怎样解释？？？？

Answer 1

Dim Textline as string*200
定义Textline为一个字符串，并同时定义这个字符串的长度是200

Answer 2

这是小猫写的点程序请给说说问题在那？？？Private Sub Command1_Click()
Dim strData As String
Dim TextLine As String * 200
Dim fileStr As String
Dim Nt
Dim tmpStr As String
Dim i As Long
Dim j As LongOn Error Resume Next
   fileStr = App.Path & "\dat\input.txt"          '要发送数据文件
    If Dir(fileStr) <> "" Then
        i = FileLen(fileStr)
        j = Len(TextLine)
        If i > recNo * j Then
            recNo = recNo + 1
            Nt = FreeFile
            Open fileStr For Random As Nt Len = j
            Get Nt, recNo, TextLine
'    Debug.Print TextLine
            Call outputStr(TextLine)
        End If
    End If
End Sub

Answer 3

然后你可以用下面的代码测试一下：
    Textline = "abc"
    Debug.Print Textline
    Debug.Print Len(Textline)
可以发现虽然你虽然给Textline赋了一个长度是3的字符串，但它的长度仍然是200，"abc"后面全部用空格填充了

Answer 4

谢谢啦！！！
不过我却出现了如下的问题
比如说当recNo（行号）实现自加以后，程序就不在执行以下程序了，
If i > recNo * j Then
            recNo = recNo + 1
            Nt = FreeFile
            Open fileStr For Random As Nt Len = j
            Get Nt, recNo, TextLine
'    Debug.Print TextLine
            Call outputStr(TextLine)
        End If
而是直接执行到End If
这是怎么会事情啊？？