（VB）如何用自定义数据类型进行数据的输入输出？

vb中如何自定义数据类型（不是不知道代码）~

1 新加一个模块
2 在里面写:
Public Type YYY
...
End type
这样就完成了YYY类型的定义，加Public，就可以在这个模块或其他任何模块中用这个类型了。

3 用YYY定义一个变量：
在模块中：Public y as YYY
在窗体的模块中：dim y as YYY

Private Type 班级
姓名 As String
年龄 As String
End Type

Private Sub Form_Load()
Dim test(1 To 3) As 班级
'比如我这个班级有3个人
test(1).年龄 = 12
test(1).姓名 = "小婉"

test(2).年龄 = 13
test(2).姓名 = "小李"

test(3).年龄 = 14
test(3).姓名 = "小刘"

Dim test2(0 To 1, 1 To 3) As String
test2(0, 1) = "12"
test2(1, 1) = "小婉"

test2(0, 2) = "13"
test2(1, 2) = "小李"

test2(0, 3) = "14"
test2(1, 3) = "小刘"

'同样的数据 不一样的数组存储方式 哪个更直观点 哪个更让你清楚数据的意义
End Sub

原来你要的是这种形式的。可以这样作：

还是以我下面的代码为例，假设
Name="Jack":Age=12
文本文件的格式为:
Jack,12

在读取的时候用split分开便可
arr=split(s,",")

－－－－－－－－－－－－－－－－－－－
如下用法：
Private Type Student
Name As String
Age As Integer
End Type

Private Sub Command1_Click()
Dim s1 As Student
s1.Name = "Jack"
s1.Age = 12
Print s1.Name
Print s1.Age
End Sub

public type MyType
a as string
b as string
.....
n as string
end type

''''''''''''''''''''''给成员变量赋值

Mytype student

student.a=a
student.b=b
...

'''''''''''''''''''保存
open "d:\xxx.y" for random as #1 len=len(myt) ''''以随机方式打开xxx.txt文件

put #1,1,student '''''''1是记录号，第几个学生的档案就用几

close #1

以下网址有相似问题的讨论和代码：
http://zhidao.baidu.com/question/42391753.html
http://zhidao.baidu.com/question/42391351.html

---

普定县14717558670： vb6.0自定义数据类型怎么用 有什么需要注意的???? - ？
可闻萝巴： 有点像一条数据库记录的样子:比如一个学生的个人信息就可以是一个数据类型.学生.身高= 学生.年龄= 等等诸如此类 “学生”就成为你定义的心得数据类型 以后可以给别的变量定义你自己的数据类型,跟系统自带布尔型、整型、长整型差不多

普定县14717558670： (VB)如何用自定义数据类型进行数据的输入输出? - ？
可闻萝巴： 原来你要的是这种形式的.可以这样作:还是以我下面的代码为例,假设 Name=＂Jack＂:Age=12 文本文件的格式为:Jack,12 在读取的时候用split分开便可 arr=split(s,＂,＂) ------------------- 如下用法:Private Type Student Name As String Age As Integer End Type Private Sub Command1_Click() Dim s1 As Student s1.Name = ＂Jack＂ s1.Age = 12 Print s1.Name Print s1.Age End Sub

普定县14717558670： vb,举个自定义数据类型使用例子 - ？
可闻萝巴： Private Type 班级 姓名 As String 年龄 As String End Type Private Sub Form_Load() Dim test(1 To 3) As 班级'比如我这个班级有3个人 test(1).年龄 = 12 test(1).姓名 = ＂小婉＂ test(2).年龄 = 13 test(2).姓名 = ＂小李＂ test(3).年龄 = 14 test(3).姓名 ...

普定县14717558670： vb语言type在模块里面怎么定义数据?是自定义数据类型! - ？
可闻萝巴： 你的自定义数据类型没有问题,但是在引用这个自定义数据时有点问题. 首先声明一个变量,其数据类型就是你自定义的数据类型,然后再引用: Private Type RemDeXinXI MingZI As String Nianling As Integer tizhong As Integer End Type...

普定县14717558670： vb中如何自定义数据类型(不是不知道代码) - ？
可闻萝巴： 在一般情况下,记录类型应在标准模块中定义;若在窗体模块中定义,则必须在“Type”关键字前面加上“Private”.

普定县14717558670： vb Scripting.Dictionary 如何使用自定义数据类型 - ？
可闻萝巴： 创建一个 Dictionary 对象的示例如下:'In VBScript:Dim objMyData Set objMyData = Server.CreateObject(＂Scripting.Dictionary＂)//In Jscript:var objMyData = Server.CreateObject('Scripting.Dictionary');

普定县14717558670： 在vb里面可不可以定义数据类型,比如说让一个变量只可以在1,3,5中取值呢? - ？
可闻萝巴： 可以啊,用枚举类型即可.例如: Enum AnimalType None = 1 Cat = 3 Dog = 5 End Enum Enum VisibilityType None = 0 Hidden = 2 Visible = 4 End Enum Sub Main() Dim dog As AnimalType = AnimalType.Dog Dim hidden As VisibilityType = ...

普定县14717558670： VB自定义函数的调用 - ？
可闻萝巴： 目前来说定义类型最好用class不要用type.定义stands最好写成这样 Public Class stands Public a As Integer Public b As Integer Public c As Integer Public d(2) As Integer Public Sub read(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) ...

普定县14717558670： VB如何在文本框中显示数组中的内容啊,数组为自定义 - ？
可闻萝巴： For i = LBound(stRegtem) To UBound(stRegtem) Text1.Text = Text1.text & chr(10) & stRegtem(i) Next i

普定县14717558670： vb用户怎么自定义类型,比如我定义一个1到10的整数作为类型A. - ？
可闻萝巴： 我建议定义一个枚举类型 Enum Public Enum A num1 = 1 Num2 Num3 Num4 Num5 ... Num10 End Enum