求随机文件的写问题

Question

先在模块里定义了一个类type liuliangshuchu  liuliangshuchu.x=? liuliangshuchu.y=?...End type，正文里dim LLSC as liuliangshuchu
Open Filename(0) & "\" & Replace(Filename(t + 1), Right(Filename(t + 1), 4), ".csv") For Random As #11 Len = Len(LLSC) 
For i=1 to 1000 
if option1.value=true
put #11,i+1,LLSC
else:put #11,i+1,LLSC.X & m1 & m2 ..
end if
next
close #11
代码大概是这样的，就是定义的type类型，里面有10个子变量，输出10个数据，本来没有问题，程序后来要追加一个功能，输出的是另外5个变量(与那10个意义不同),输出时要求输出新的5个变量+type里的1个变量，写入到文本后在每一行数据的前面(即llsc.x)便有一些奇异的符号(方块黑坨坨)，我想应该是输出长度和那10个不一样的问题，应该怎么去掉那些怪符号呢，我数了下怪符号有2个字符，我就LLSC.x=right(LLSC.x,11)，想着这样去掉，结果2个东东反而变成4个了。求解

Answer 1

type里表述有点错误，实际是这样的：
Option Explicit Type Liuliangshuchu
  X As String * 12
  Y As String * 13
  H As String * 7
  PYL As String * 7
  QDJ As String * 8
  Ve As String * 7
  Vn As String * 7
  Vv As String * 7
  V As String * 7
  Deg As String * 10
    luojing As String * 10
  id As String * 5
  ENDSIG As String * 2
 End Type

Answer 2

恩，怎么办呢，type里可以不定义变量为定长吗

Answer 3

可以直接定义为：
Type Liuliangshuchu
  X As String
  Y As String
  ……
 End Type