[求助]：我的这个程序为什么总是卡断？

weihong0371

Private Sub Form_Load()
    Dim h As Integer
    h = InputBox("需要统计多少学生？:")
    data_input h
    b$ = InputBox$("你真的要统计么(y\n)？")
    If UCase$(b$) = "n" Then End
     Call data_output
    End Sub
Type rsda
    num As Integer
    nam As String * 3
    eng As Integer
    math As Integer
    phy As Integer
    chi As Integer
End Type
Option Base 1
Dim ry() As rsda
Public Sub data_input(num As Integer)
    ReDim ry(num) As rsda
    Open "d:\rsda.dat" For Output As #100
    For i = 1 To num
        ry(i).num = InputBox("请输入学号：")
        ry(i).nam = InputBox("请输入姓名：")
        ry(i).eng = InputBox("请输入英语成绩：")
        ry(i).math = InputBox("请输入数学成绩：")
        ry(i).phy = InputBox("请输入物理成绩：")
        ry(i).chi = InputBox("请输入语文成绩：")
        Write #100, ry(i).num, ry(i).nam, ry(i).eng, ry(i).math, ry(i).phy, ry(i).chi
    Next i
    Close #100
End Sub

Public Sub data_output()
    Open "d:\rsda.dat" For Input As #100
           i = 1
    Do While Not EOF(100)
        Input #100, ry(i).num, ry(i).nam, ry(i).eng, ry(i).math, ry(i).phy, ry(i).chi
        print ry(i).num, ry(i).nam, ry(i).eng, ry(i).math, ry(i).phy, ry(i).chi[/COLOR]  ’总是在此说“没有适当的对象，方法无效！“真不明白是为什么！[/COLOR]
    i = i + 1
    Loop
    Close #100
End Sub
哪位高手帮忙指点一下！不胜感激！

Laoyao

object.Print [outputlist]
看看HELP

efan2000

是INPUT的原因，只能返回某一长度的一个值，这个可以先返回rsda这个类型长度的值，返回之后再分别提取吧。

zcmjw

rsda是什么变量类型？

xunix

Public Sub data_output()
Open "d:\rsda.dat" For Input As #100
i = 1   '这样试试：i=lBound(ry)取数组的下标
Do While Not EOF(100)
Input #100, ry(i).num, ry(i).nam, ry(i).eng, ry(i).math, ry(i).phy, ry(i).chi
print ry(i).num, ry(i).nam, ry(i).eng, ry(i).math, ry(i).phy, ry(i).chi ’总是在此说“没有适当的对象，方法无效！“真不明白是为什么！
i = i + 1
'if i>uBound(rt) then exit do
Loop
Close #100
End Sub