一个关于在VB中函数定义的问题

' 显示用户信息

Sub showinfo(ID As String)

Dim personInfo, courseinfo As Recordset '以记录
Dim sqlstr, str As String

'读取学生个人信息

sqlstr = "select*from 学生信息 where 学号='" & ID & "'"

Set personInfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)

'读取学生已选课信息，这里只读取了课程名

sqlstr = "SELECT[课程].[课程名称]"
sqlstr = sqlstr & " FORM 课程 INNER JOIN 学号课程 ON [课程].[课程编号]=[学号课程].[课程编号]"

sqlstr = sqlstr & "WHERE[学号课程].[学号]='" & ID & "'"

Set courseinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReeadOnly)

For i = 0 To personInfo.Fields.Count - 1

infolab(i).Caption = personInfo.Fields(i).Name & ":" & personInfo.Fields(i).Value

Next

While Not (courseinfo.EOF)

str = str & " " & courseinfo.Fields("课程名称

在VB中函数的定义是什么？ 在vb中定义一个带参数的函数如何定义？ 一个关于VB中RND函数的问题 在vb中如何定义函数？ 关于API函数在VB中的定义 VB 中关于 函数的问题 关于VB中GETATTR函数的问题 关于VB中OpenProcess函数的问题 VB函数定义问题 关于vb函数的一个问题