1.Visual Basic 6.0 概說

Microsoft 於1991年推出的進入Windows世界的圖形化程式設計介面

整合式的視窗程式設計工作環境。目前的最新更新為SP6

Microsoft 於2010年推出Visual Basic 2010版，也順勢推出.NET Framework 4 。.net程式框架圖

連接外站：維基百科，臺灣微軟Visual  Studio

2.資料型態

使用字元集(Character Set)

• a-z,A-Z,0-9,28個特殊符號，中文字

保留字

• 為系統保留所使用，使用者不可以該名稱另行命名

運算式

運算式＝運算元＋運算子＋運算元

運算碼（運算子）Operator(依運算優先順序，依序分為算術運算子、關係運算子與邏輯運算子等三種)

運算元Operand：待運算的資料（常數、變數、函式）

[註]例：x=x+1，x稱為運算元，+稱為運算子。在VB中運算式的左邊只有一個運算元

[註]進行整數除或餘數除等運算，必須左右的運算元都是整數方可運算，若非整數則必須以四捨六入的方式將運算元進位或捨棄為整數。

[註]字串比較子like，可以利用特殊字元進行比較

• ?：任何單一字元
• #：任何單一數字（0-9）
• *：零或多個字元
• [ a-d ]：在字元範圍中的任何單一個字元
• [!]：不在字元範圍內的任何單一字元

常用特殊符號

資料種類

• 常數（執行過程變數不變。利用Const敘述宣告。例：Const PI as Single = 3.1416）
• 變數（執行過程變數內容可以改變。利用Dim敘述宣告。例：Dim myname as string = "Sung"）

資料型別

• 數值資料（Integer，Long，Single，Double。整數15,&573,&H4A2D、實數34.54289、科學記號9.65*10^8(9.65E+8), 浮點數5.6*10^-6(5.6E-6)）
• 字串資料（String，String * n。"這是字串資料"）
• 日期時間資料（Date。#2007/01/07#，#03:10:00 PM#）
• 布林資料（Boolean。true，false）
• 不定型資料（Variant）
• 可利用TypeName(資料)函數檢驗資料型別

資料型別定義字元與所佔記憶體空間

注意VB對於不同資料型別的運算與進位的特殊運算方式

• 不同精準度運算以高精準度為主
• 高精準度存入低精準度時，四捨六入後存入，注意溢位(A%=5.6,PRINT A)
• 整數四捨六入奇進位的方法：（小數剛好0.5時，前一位為偶數捨棄，前一位奇數則進位）
• 數值與字串資料的運算：（"123"+123=246，"123"+"123"="123123"）
• 數值轉8進位oct()，數值轉16進位hex()

變數的命名規則（識別項）：

建議變數命名方式：

• 資料型別+名稱（例如：txtName，bolLogin）

學習Visual Basic的三大重點：

• IDE操作介面
•  表單設計
• 程式設計（語法）

VB6 IDE操作介面包含有：

• 工具箱（控制項）：可以布置在表單上的控制項種類
• 工具列：操作VB的指令
• 屬性視窗：瀏覽與設定表單上控制元件的屬性

3.輸入與輸出

輸出部分

• print：在表單顯示輸出內容
• cls敘述：清除表單上的所有顯示內容
• msgbox敘述：msgbox "歡迎使用本筆記",vbInformation+vbokonly,"計算機概論筆記"
• msgbox函數：具有回傳值，利用回傳值繼續下一程序

msgbox參數列表

• 敘述視窗按鈕：vbokonly,vbokcancel,vbabortretryignore,vbyesnocancel,vbyesno,vbretrycancel
• 敘述視窗圖示：vbcritical,vbquestion,vbexclamation,vbinformation
• 函數回傳值：vbok,vbcancel,vbabort,vbretry,vbignore,vbyes,vbno

標籤物件label

• label1.caption="值"：例：label1.caption="我是示範文字"

執行按鈕Command button

• command1.click：觸發使用者自訂程序
• command1.caption="值"：按鈕上出現的文字。例：comamnd1.caption="確定"

輸入部分

• InputBox敘述：InputBox("請輸入內容")
• x=inputbox(提示訊息，抬頭，'輸入欄預設值)
• 回傳值是"字串"，如需數值，則需透過val()函數轉換

控制項輸入

文字方塊TEXTBox

• text1.text：text1.text="值"，x=text1.text，a=val(text1.text)轉為數值
• maxlength：text1.maxlength=10
• passwordchar：text1.passwordchar="*"
• locked：text1.locked=true，鎖住不讓使用者更改文字方塊內容
• multiline：text1.multiline=true

選擇鈕optionbutton

• option1.value： option1.value=true，選擇鈕被選取時，屬性便成為true
• option1.caption：x=option1.caption， option button右側的提示文字
• 在同一container內的按鈕，只能單選

框架Frame

• 置於同一群組內的各選項，可作為一次選取的標的

核取方塊CheckBox

• 可以複選，可以toggle選取，每一個核取方塊都要獨立判斷
• check1.value=n(0,1,2)

清單方塊ListBox

• list1.list：清單內的資料
• list1.additem：在程式內加入清單資料，list1.additem "資料" 。指定加入的位置liat1.additem "datas",1
• 清單位置由0開始計算。取出清單內的資料x=list1.list(n)。顯示取出的資料print x。
• 改變清單內的資料list1.list(n)="A"
• 清單內有多少筆資料：n=list1.listcount
• 移除與清除清單內的資料：list1.removeitem n，list1.clear
• 點選某一個list1選項後請單方塊便有兩個屬性變化，list1.text=點選值、list1.listindex=n。在剛執行程式初始，尚未點選任何選項時list1.text=""，list1.listindex=-1。
• 清單方塊具有多重選擇（複選）的效果，偵測list1被複選的選項：
  

  for i=1 to list1.listcount-1
  if list1.selected(i) then
  print list1.list(i)
  end if

綜合清單方塊ComboBox

• 同時具有文字方塊與清單方塊功能的控制元件

4.物件導向寫法

設定物件屬性

應用於程式執行階段

控制項.屬性=值。例如：Label1.caption="Visual Basic 6"，form1.font.size=6

Font屬性：label1.font.size=12，label1.font.name="新細明體"，Label1.font.bold=true

Picture屬性：set form1.picture=loadpicture("c:\pics\image1.jpg")，set form1.picture=image1.picture

VB 2005屬性視窗，VB 6 屬性視窗

5.物件(Object)、事件(Event)、事件驅動(Event Driven)

控制項與物件

Visual Basic 2005 Express 的控制項，事件視窗

Visual Basic 6 的控制項 ， 事件視窗

常見事件

事件驅動命名規則：物件_事件，comand1_click

Private Sub Form_load( )／初值設定內容／End Sub  程式的初值設定

Form_Click( )  表單按一下執行事件

Form_DblClick( )  表單快按二下執行事件

Form_KeyPress  有按鍵盤時執行事件

Form_MouseDown(Button As Integer……)  按滑鼠按鍵時執行事件

Form_MouseUp(Button As Integer……)  放鬆滑鼠按鍵時執行事件

事件驅動

便是當物件感知某特定事件發生後，所要採行的回應動作，使用者所撰寫的程式碼

6.語法

GoTo [Label]

sub comamnd1_click()
	L10:A=100
	    B=A*3
	Goto L10
end sub

IF ... Then GoTo [label]

sub comamnd1_click()
    I=1
L10:Print I
    I=I+1
    If I<=5 Then GoTo L10
end sub

If-(條件式) Then (敘述)

當條件式符合成立時，便執行then後的敘述。程式範例如下所示

If I < 10 Then Print I:I=I+1:Goto L10

If I < 10 Then
   I=I+1
   Print I
End If	

If I < 10 Then
	I=I+1
else
	Print I
End If

If I < 10 Then
	If I mod 2 =0 Then
		even=even+1
	End If	
Else
	If I mod 3 = 0 Then
		Triple=Triple+1
	End If	
End If

If I mod 2 =0 Then
	even=even+1
Elseif I mod 3 =0 then
	triple=triple+1
Elseif I mod 7 =0 then
	sevens=sevens+1
Else
	notanything=notanthing+1
End If

Select ... Case

select case value
    case 100
	  print "very good!"
	case 90
	  print "Not bad!"
	case 80
	  print "Normal"
	case else
	  print "You need work hard"
end select	  

L10:ages=val(inputbox("請輸入年齡"))
select case ages
    case 0 to 20
	  print "青少年"
	case 21 to 30
	  print "青年"
	case 30 to 50
	  print "中年"
	case else
	  print "請輸入適當年齡"
	  goto L10
end select	  

For...Next

for i=1 to 10
	sum=sum+i
next

for i=5 to 100 step 5
	sum=sum+i
next

For...Each

While ... Wend

n=1
while a^n < 1024
    n=n+1
wend
print n

Do (while/until)... Loop 或Do... Loop (while/until)

a=124:b=256
do
  if a>b then
    remind=a mod b
    a=remind
  else
  	remind = b mod a
	b=remind
  end if
loop until (a=0 or b=0)
if a=0 then print b else print a

a=124:b=256
do
  if a>b then
    remind=a mod b
    a=remind
  else
  	remind = b mod a
	b=remind
  end if
loop while (a<>0 and b<>0)
if a=0 then print b else print a

Exit Do

dim sum,i as integer
do
  sum=sum+i
  i=i+1
  if i= 10 then exit do
loop

陣列Array

'第一種宣告方法
dim x(2) as integer
for i=0 to 2
	x(i)=2*i^2+i+1
next

'第二種宣告方法
dim x(-2 to 10) as integer
for i=-2 to 10
	x(i)=i^2+1
next

'取出陣列註標
dim x(-2 to 10) as integer
print lbound(x) '取出lower bound
print ubound(x)  '取出upper bound

'可變陣列註標
dim a(5) '陣列a屬於固定個數的陣列
dim b()  '一開始宣告陣列b的個數為0，日後可以改變該陣列的元素個數
redim c(10)  '陣列c屬於可變個數的陣列
redim preserve c(7) '陣列宣告改變後，其中c(0)至c(7)的元素被保留

'二維陣列
dim a(5,4) '陣列a屬於30個元素的陣列
dim b(4,2,5)  '陣列b屬於多維陣列
x=array("普通科","綜合高中","資料處理科","商業經營科")

'array()函數
x=array("普通科","綜合高中","資料處理科","商業經營科") 'x屬於variant變數
for i=lbound(x) to ubound(x)
  print x(i)
next

7.副程式與函數

副程式與函數則是用來封裝敘述區塊的程式單元，被封裝在副程式及函數內的敘述區塊，並不屬於任何敘述，是個別獨立的。但是這些獨立的程式單元卻可以讓其他程式單元使用。所以經常重複利用到的程式單元，便可以寫成副程式或函數。以便節省系統開發的時間，以及系統除錯所需的時間。使系統具有模組化特性。在VB中副程式可以分為SUB副程式，Function副程式，Properity副程式，Event副程式

副程式

在程式中呼叫副程式的方式

• call mysub '利用call指令呼叫副程式（自訂程序）
• mysub '直接以副程式的名稱 呼叫副程式

副程式與參數傳遞

將待處理的資料，依據一定的規則傳送至副程式進行進一步的處理，便稱為參數傳遞。基本的表示法例如：

SUB 副程式名（參數，參數，...）
    處理敘述
 END SUB

若以程式敘述表示，則如下所示：

SUB ADDSEQ(X,Y,Z)
   SUM= X+Y+Z
  PRINT SUM
END SUB

CALL ADDSEQ(1,2,3)

實際參數與形式參數

參數的傳遞，在呼叫程式稱為實際參數，而在被呼叫的副程式稱為形式參數。 以上者為例：1,2,3稱為實際參數，而x,y,z稱為形式參數

實際參數可以為值或是變數。其呼叫後處理的方式有所差異。若是以值呼叫，則該值會傳遞給副程式進行處理（傳值呼叫）；而若是以變數呼叫，則該變數會替代副程式中的形式參數（傳址呼叫）。例如：

call addseq(1,2,3)

或

a=2:b=3:c=4
call addseq(a,b,c)

傳址改傳值：call addvalue(x:=(A),y:=(B),z:=(C))  ,在實際參數列，將變數加上括號

傳址改傳值：addval(ByVal x),在副程式中定義，在形式參數前加上ByVal關鍵字

吾人可以總結：

• 傳值呼叫：以值或運算式，或是by val關鍵字，或是(變數)方式
• 傳址呼叫：以 變數，或是by ref關鍵字。 形式參數與實際參數共用相同的記憶體位址

內建函數

常用函數說明

自訂函數

function f(x)
   f=x^2+2x=1
end function

• 函數要有傳回值
• 函數必須以函數名稱 作為傳回值的接收器。函數名=運算式
• 宣告函數處理型別：function f(x%)，宣告接受待處理資料的型別
• 宣告函數傳回型別：function f(x) as integer ，宣告函數處理完後 ，傳回的資料型別

遞迴

函數連續呼叫本身

Function FION(X)
If X = 1 Then
   FION = 1
Else
  FION = X ^ 2 + FION(X - 1)
End If
End

Function Private Sub Form_Activate()
  Print FION(5)
End Sub

7.資料庫存取

8.ADO.NET