VB不支持的自动类型

Question

各位老大有一段代码 运行只后出现"变量使用了一个VB不支持的自动化类型" 请给我点意见 
  代码如下
Open "d:\xiangchao.dat" For Random As #99 Len = Len(d)
recodunm = LOF(99) / Len(d)
Open "d:\xiangchao1.dat" For Random As #98 Len = Len(d)
I2 = 1
Do While recodunm >= I2
I = 1
Do While recodunm >= I
   Get #99, I, d
   tmp = LTrim(RTrim(d.a))
       If tmp = "" Then
      I = I + 1
    Else
      I3 = I
      I = recodunm + 1
    End If
 Loop
 I1 = I3 + 1
Do While recodunm >= I1
 Get #99, I1, d
 tmp1 = LTrim(RTrim(d.a))
 If tmp1 < tmp And tmp1 <> "" Then
    tmp = LTrim(RTrim(d.a))
    I3 = I1
 End If
    I1 = I1 + 1
Loop
Get #99, I3, tmp
 Put #98, I3, tmp
 d.a = ""
 Put #99, I3, tmp
 I2 = I2 + 1
Loop
 Close #99
 Close #98

Answer 1

up---------------------------------------------------------------------------------------------
腰缠70元到月入近10万
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=453IT工程师 毕业4年我年薪涨到30万 
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=51126岁青年坐拥千万域名资产 从小玩家变成CEO 
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=515程序员的酸甜苦辣：告别Coding 
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=341从月薪3500到700万（一）
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=170网络草根月赚3000的十种方法
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=517如果我是女的 我肯定不会嫁给做网站的
http://www.hunbei.com.cn/Article/ArticleShow.asp?ArticleID=512

Answer 2

d好像是一个自定义类型，那么len(d)?

Answer 3

len(d)  代表的是自定义结构体的长度