請填寫以下問卷

職業         
	     
	     學生
	     管理人員
	     工程師、技術人員

年齡         
性別          男
              女
電子郵件地址 
建議         

Visual Basic 的原始程式

Sub CGI_Main ()
    Dim sJob As String
    Dim sAge As String
    Dim sSex As String
    Dim sEmail As String
    Dim sComments As String

    sJob = GetSmallField("job")
    sAge = GetSmallField("age")
    sSex = GetSmallField("sex")
    sEmail = GetSmallField("email")
    sComments = GetSmallField("comments")

    Send ("Content-type: text/html")
    Send ("")
    Send ("<title>CGI Visual Basic</title>")
    Send ("<h1>謝謝您登錄以下資料</h1>")
    Send ("<hr><pre>")
    Send ("職業:     " & sJob)
    Send ("年齡:     " & sAge)
    Send ("性別:     " & sSex)
    Send ("電子信箱: " & sEmail)
    Send ("建議:     " & sComments)
    Send ("</pre><hr>")
End Sub

Sub Inter_Main ()
    MsgBox "This is a CGI program for the Web Server.", 16, "CGI.BAS"
End Sub