学生模块中出现的函数

split（）函数：操作字符串的函数，将一个字符串分割为子字符串，结果是一个下标从0开始的子字符串的一维数组

Dim sTokens As String
sTokens=Split(SQL)

如果sql语句为： “SELEC * FROM…”,则函数返回的是
sTokens(0)=SELECT; sTokens(1)=*; sTokens(2)=FROM.

byval：by value 参数按值传递，形参的改变不会影响实参，在代码里面对参数的值做了改变，结果返回的还是之前的值，不是改变后的值
byref：参数按地址传递，形参改变实参也随之改变，代码对参数的值做了改变，结果返回的是改变了之后的值

intstr函数：字符串处理函数，返回要截取的字符串在源字符串中的位置
语法：intstr（源字符串，截取的字符串，开始查找的位置，查找第几次出现的）

sub main过程的作用
一般程序运行时会默认最先启动form1窗体，程序最先运行的代码也是form1里面的代码，在模块添加sub main过程，可以以一段代码作为程序的入口，这段代码的执行发生在所有的窗体打开之前。方法：建立一个共有模块，在里面写入sub main代码，然后右击工程属性，把启动对象设为sub main即可。在学生管理系统中，在最开始需要对用户进行判断，如果用户是授权用户，将进入系统，否则程序会停止。

Sub main()
 Dim flogin As New frmlogin
 '显示登录窗体   
 flogin.Show vbModal
 If Not flogin.ok Then
   'login failed so exit app
    End
 End If
 Unload flogin
 ' 判断是否进入系统
 Set fmianform = New frmmain
 fmainform.Show
 End Sub