有一字节数组Data()，其中有3组数据，分别为：

数学，90
语文，80
英语，100

请教，怎样通过定义Type从中读取？
比如如下定义：

private type mytype
dt1 as string*2
dt2 as long
end type

Private Type MyData
    data1 As String
    data2 As String * 12
End Type
Dim MyDat1(2) As MyData

Private Sub Form_Click()
Dim number As Integer
For number = 0 To 2
    MyDat1(number).data1 = InputBox("请输入科目", "提示")
    MyDat1(number).data2 = InputBox("请输入成绩", "提示")
    Debug.Print MyDat1(number).data1, MyDat1(number).data2
Next number
End Sub
看看能不能解决你的问题、

这方法怎么样
Private Type 成绩
    姓名 As String
    语文 As Single
    数学 As Single
    英语 As Single
End Type
Dim 成绩表(1 To 65) As 成绩, i As Integer

Private Sub Command1_Click()

i = i + 1
成绩表(i).姓名 = InputBox("姓名")
成绩表(i).语文 = Val(InputBox(成绩表(i).姓名 + "语文成绩"))
成绩表(i).数学 = Val(InputBox(成绩表(i).姓名 + "数学成绩"))
成绩表(i).英语 = Val(InputBox(成绩表(i).姓名 + "英文成绩"))

谢谢楼上zhnzz4229和九连阳二位老师！

祝国庆节快乐！！！