Question

vb,自定义函数中包含自定义数据类型怎写？

我已经弄懂 自定义数据类型 的使用方法了!!http://wenwen.soso.com/z/q163518626.htm 现在求写一个，，，自定义函数或过程，，，中的参数，要是 自定义数据类型
Private sub 过程名 ( xxxx as 自定义数据类型)

Answer 1

Public Type StudentInfo　s_ID as Long　s_Name as String　s_Age as IntegerEnd Type Public Function SaveStudent(Student as StudentInfo) as Boolean　Dim Conn as New ADODB.Connection 　ConnStr = "provider=microsoft.jet.oledb.4.0;data source=c:\test.mdb"　Conn.Open sql = "insert into StudentList (s_ID,s_Name,s_Age) values (" & Student.s_ID & ",'" & Student.s_Name & "'," & Student.s_Age & ")"　Conn.Execute sql 　Conn.Close　Set Conn = NothingEnd Function 这个例子里面将一个接收到的学生信息自定义类完整的保存进数据库一条新的记录，实际应用中可能还需要判断这个学生是否已经存在是否重名等等。使用自定义类型可以很清楚的知道目标过程参数中具体的需求，比方说学生信息中需要哪些具体信息，不容易遗漏，面向对象的思路差不多就是从这里开始的，把学生信息都写在StudentInfo里面，不管是发出信息的还是接受信息的地方都能通过这种类型的变量清楚的知道对方传什么给你或它需要什么。

Answer 2

编程之道 代码简洁，完全可以得分的！

Answer 3

Private Type uInfo
User As String
Age As Byte
End Type'Private Sub ShowInfo(sIn As uInfo)
MsgBox "用户: " & sIn.User & vbCrLf & "年龄: " & sIn.Age
End Sub'Private Sub Command1_Click()
Dim aa As uInfo
aa.User = "用户名"
aa.Age = 20
Call ShowInfo(aa)
End Sub