前言：
 
遇到不懂的，就去查，现在查的多了，以后自然就快了，接下来大家一起来和我看看 sub main在vb中的作用吧！
 
一、sub main的理论知识
 
1、设置启动窗体。
 
我们在做程序中，一般第一个窗体就是你的启动窗体，但是有些时候我们需要固定好第一个启动窗体具体是哪一个！如果想在应用程序启动时显示别的窗体，那么就得改变启动窗体。要改变启动窗体，请按照以下步骤执行： 从“工程”菜单中，选取“工程属性”。选取“一般”。在“启动对象”ListBox 中，选取要作为新启动窗体的窗体。选取“确定”。
 
注意：这是网上说的，其实没有sub main 照样可以按照上面的方式，设置好任意一个窗体都是第一个启动，我个人的理解就是：我们在写不同的程序时，第一个启动窗体的名字都是不一样的，而这时我们利用sub main，就可以让我们无论在敲什么应用程序，都可以设置sub main为首先启动的窗体！
 
2、没有启动窗体的启动
 
 有时候也许要应用程序不加载任何的窗体！例如：可能想先运行装入数据文件的代码，然后再根据数据文件的内容决定显示几个不同窗体中的哪一个。要做到这一点，可在标准模块中创建一个名为 Main 的子过程，如下面的例子所示。
 
Sub Main()
  Dim intStatus As Integer   
   '调用一个函数过程来检验用户状态。
  intStatus = GetUserStatus
   '根据状态显示某个启动窗体。
  If intStatus = 1 Then
      frmMain.Show
  Else
      frmPassword.Show
  End If
 
3、显示启动时的快速显示( 对于用户)
 
如果在启动时，有一个较长的执行过程，例如，我在启用程序之前，需要调用大量的数据，这时调用数据是需要时间的，这时对于用户来说，是非常不爽的，这时sub main来了！直接可以让你看到一个图形界面，用户就会感到很爽了，也不会烦了！（这里大家可以细细的感受一下，真的是这样！只要看到你的界面有点变化就会很舒服呢！）例如，我们的vb第一眼看到的窗体就是一个快速显示！
 

End Sub是一个过程的结束代码，每一个SUB中必须应对一个END SUB。
 
Exit Sub是在过程内代码执行时，可选择性的退出过程执行，既不执行Exit sub之后的代码，相当于中途退出的意思，这不是必须的。
 

private sub ceshi()
Dim i as integer 
For i=0 to 10
if i mod 3=0 then
Exit sub

 这里就是可选择性的退出过程的执行，这句至四年过后，最后的Msgbox就不会执行了
 

Else
Msgbox i
End if 
Next i mgsbox"ceshi"
end sub

 过程结束代码，这是sub必须的。

Function是函数，sub是子程序，都可以传递bai参数，但函数有返回值，子程序没有
 function 可以用自身名字返回一个值，sub 需定义别的变量，用传址方式传回值。
 Sub 过程与Function 过程的区别：
 1． Sub 过程定义时无需定义返回值类型，而Function 过程一般需要用“As 数据类型” 定义函数返回值类型。
 2． Sub 过程中没有对过程名赋值的语句，而Function 过程中一定有对函数名赋值的语句。
 3． 调用过程：调用 Sub 过程与 Function 过程不同。调用 Sub 过程的是一个独立的语句，而调用函数过程只是表达式的一部分。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与 Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。
 4． 调用 Sub 过程有两种方法：
 以下两个语句都调用了名为 MyProc 的 Sub 过程。
 Call MyProc (FirstArgument, SecondArgument)
 MyProc FirstArgument, SecondArgument
 注意当使用 Call 语法时，参数必须在括号内。若省略 Call 关键字，则也必须省略参数两边的括号。

Private Sub Form_Load()
 a = getHTTPPage(“http://www.baidu.com/”)
 b = Split(a, “[”)(1)
 c = Split(b, “]”)(0)
 MsgBox c
 End Sub
 Function getHTTPPage(url)
 On Error Resume Next
 Dim http
 Set http = CreateObject(“MSXML2.XMLHTTP”)
 http.Open “GET”, url, False
 getHTTPPage = http.Send()
 'MsgBox http.ReadyState
 If http.ReadyState <> 4 Then
 MsgBox “无法连接服务器”
 Exit Function
 End If
 getHTTPPage = BytesToBstr(http.responseBody, “GB2312”)
 Set http = Nothing
 End Function
 Function BytesToBstr(body, Cset)
 Dim objstream
 Set objstream = CreateObject(“adodb.stream”)
 objstream.Type = 1
 objstream.Mode = 3
 objstream.Open
 objstream.Write body
 objstream.position = 0
 objstream.Type = 2
 objstream.Charset = Cset
 BytesToBstr = objstream.ReadText
 objstream.Close
 Set objstream = Nothing
 End Function