變數的宣告語法如下：
Dim + （使用者自訂的變數名稱） + As + 變數的型別

宣告的例子：
Dim number1 As Integer
宣告變數 number1 為Integer(整數)。

宣告變數並且初始化：
Dim number2 As Integer = 1 0 0
宣告變數 number2 為Integer(整數) , 並且預設該變數的值為100。

Visual Basic 資料型別 ( 參考網站內容 )

變數型別的使用：

  1: '型別為Boolean的flag變數=True
  2: Dim flag As Boolean=True
  3: 
  4: '型別為Byte的age變數=225
  5: Dim age As Byte=255
  6: 
  7: '型別為Char的city變數=Taiwan
  8: Dim city As Char="Taiwan"
  9: 
 10: '型別為Date的birthday變數，
 11: '設定的方法為--->#month/day/yyyy#
 12: Dim birthday As Date=#12/1/1983#
 13: 
 14: '型別為Decimal的distance變數=219121000
 15: Dim distance As Decimal=219121000
 16: 
 17: '型別為Double的Temperature變數=30.5
 18: Dim Temperature As Double=30.5
 19: 
 20: '型別為Integer的score變數=100
 21: Dim score As Integer=100
 22: 
 23: '型別為Long的high變數=11889900
 24: Dimhigh As Long=11889900
 25: 
 26: '型別為Short的salary變數=10000
 27: Dim salary As Short=10000
 28: 
 29: '型別為Single的variation變數=0.05
 30: Dim variation As Single=0.05
 31: 
 32: '型別為String的MyName變數=VB
 33: Dim MyName As String="VB"

訊息

MsgBox()函數可以顯示訊息視窗，提供使用者錯誤訊息或是非題的選擇。

例如：確認操作，函數的語法如下所示：

MsgBox(提示訊息, [樣式, 視窗標題])

MsgBox("Hello", vbOK, "測試")

MsgBoxStyle 列舉值

對話方塊

InputBox對話方塊不同於MsgBox訊息視窗是一種「是非」選擇，它可以彈出對話方塊，讓使用者輸入資料，在功能上如同單行文字方塊控制項。

InputBox()函數的語法如下所示：

InputBox(提示訊息, [標題文字, 預設值, 位置x, 位置y])

  1: Dim strName As String
  2: strName = InputBox("請輸入姓名?", "輸入")

按鈕控制項是表單執行功能的使用介面。

常用屬性

文字方塊控制項可以讓使用者輸入資料，輸入的資料是字串，程式可以配合型態轉換函數來取得所需型態的資料。

常用屬性

標籤控制項是一種資料輸出控制項，可以在表單顯示說明文字，例如：說明文字或輸出執行結果，我們可以按下按鈕控制項，然後在標籤顯示執行結果。

常用屬性

核取方塊控制項

核取方塊是一個開關，可以讓使用者選擇是否開啟功能或設定某些參數。如果在表單擁有多個核取方塊控制項，每一個控制項都是獨立選項，換句話說，它允許複選。

核取方塊控制項的常用屬性

當使用者選取核取方塊後，程式可以檢查核取方塊的Checked屬性，以判斷使用者是否選取核取方塊，如下所示：

  1: If chkOriginal.Checked Then
  2:    total += 250 * quantity
  3: End If

選項按鈕控制項

選項按鈕是二選一或多選一的選擇題，使用者可以在一組選項按鈕中選取一個選項，它是一個單選題。

選項按鈕控制項的常用屬性

當使用者選取選項按鈕後，程式一樣是檢查Checked屬性，以判斷是否已選取該選項按鈕，如下所示：

  1: If rdText.Checked Then
  2:    lblOutput.Text = "OK"
  3: End If

群組方塊控制項

群組方塊是一種容器控制項，在此控制項中可以新增其他控制項，以便讓其中的控制項屬於同一群組。在功能上除了美化控制項編排外，還可以組織表單眾多不同的控制項。

群組方塊控制項的常用屬性

條件判斷敘述

依據運算式的值，有條件的執行一組陳述式。

IF使用方法一、

If Then條件敘述是一種是否執行的條件，決定是否執行區塊內的程式碼。如果If條件為True，就執行Then/End If間的程式碼，其語法如下所示：

  1: If 條件 Then
  2:    程式區塊
  3: End If

例如：學生成績超過60分是及格分數，如下所示：

  1: If txtScore.Text >= 60 Then
  2:    lblOutput.Text &= "成績在範圍中．．" & vbNewLine
  3:    lblOutput.Text &= "學生成績及格: " & txtScore.Text & vbNewLine
  4: End If

範例練習

  1: Sub Main()
  2: 
  3: Dim score As Integer=100
  4: Dim result As String
  5: 
  6: Console.Write("分數:"&score)
  7: 
  8: '判斷score有沒有大於
  9: If score>=60 Then
 10:    result="及格!"
 11: Else
 12:    result="不及格!"
 13:    EndIf
 14:    Console.WriteLine(result)
 15:    Console.ReadKey()
 16: 
 17: End Sub

IF使用方法二、

我們可以加上Else關鍵字，如果If條件為True，就執行Then/Else間的程式碼；False就執行Else/End If間的程式碼，其語法如下所示：

  1: If 條件 Then
  2:    程式區塊1
  3: Else
  4:    程式區塊2
  5: End If

例如：使用If Then/Else條件敘述，以身高來決定購買半票或全票，如下所示：

  1: length = CInt(txtLength.Text)
  2: If length > 120 Then
  3:    lblOutput.ForeColor = Color.Blue
  4:    lblOutput.Text = "購買全票!"
  5: Else
  6:    lblOutput.ForeColor = Color.Red
  7:    lblOutput.Text = "購買半票!"
  8: End If

IF使用方法三、

If Then/ElseIf條件敘述是If Then/Else條件敘述的延伸，使用ElseIf來重複建立多選一條件敘述。

例如：四則運算的If Then/ElseIf條件敘述，如下所示：

  1: If rdbAdd.Checked = True Then
  2:     result = opd1 + opd2 ' 加 
  3: ElseIf rdbSubtract.Checked = True Then
  4:     result = opd1 - opd2 ' 減
  5: ElseIf rdbMultiply.Checked = True Then
  6:     result = opd1 * opd2 ' 乘
  7: ElseIf rdbDivide.Checked = True Then
  8:     result = opd1 / opd2 ' 除
  9: Else
 10:     MsgBox("錯誤: 沒有選擇運算子!")
 11: End If

nSelect Case多選一條件敘述比If Then/ElseIf多條件敘述來的清楚明白，程式碼也比較簡潔。它可以依照符合條件來執行不同區塊的程式碼，其語法如下所示：

  1: Select Case 運算式
  2:    Case 值1
  3:      程式區塊1
  4:    Case 值2
  5:      程式區塊2
  6:    …….
  7:    Case Else
  8:      程式區塊N
  9: End Case
 10: 

範例 : 取得運費費率

  1: Select Case amount
  2:     '值小於1000
  3:     Case Is < 1000
  4:         rate = 0.1
  5:     '值1000到4999之間
  6:     Case 1000 To 4999
  7:         rate = 0.08
  8:     '值5000到9999之間
  9:     Case 5000 To 9999
 10:         rate = 0.05
 11:     '值大於10000之間
 12:     Case Is >= 10000
 13:         rate = 0
 14:     '其他內容
 15:     Case else
 16:         rate =""
 17: End Select
 

Case條件的程式碼範例

算數運算子：

設定運算子：

比較運算子：

特殊字元意義：

串連運算子：

邏輯運算子：

運算子的優先順序

算數運算子＞串連運算子＞比較運算子＞邏輯運算子

變數的型別轉換

變數的命名規則

1.以英文字母開頭
2.僅能由字母、數字或底線組成
3.變數名長度不能超過255 字元

在微軟的.NET  Framework 中, 命名的方式均符合底下這兩種慣例 (之一)：
Pascal 命名法的大小寫慣例：名稱的第一個字母和每個隨後單字的第一個字母都是大寫的。

例如：BackColor。
Camel 命名法的大小寫慣例：名稱的第一個字母是小寫的, 而每個隨後單字的第一個字母是大寫的。

例如：backColor。

保留字

表示您不能使用這些保留字做為程式設計項目 (例如變數或程序) 的名稱。

保留字網站參考

http://msdn.microsoft.com/zh-tw/library/dd409611.aspx

若要將控制項快速對齊，可開啟配置工具列

1.點選檢視功能表，選擇工具列裡面的配置

2.出現配置工具列後，可點選取多個控制項，來操作對齊位置

複製控制項：Ctrl  + 拖曳控制項

全選所有控制項：Ctrl + A

選取多個控制項：Shift鍵

當控制項在表單上四處移動時按下 ALT 鍵

在VB中若要固定控制項的位置或大小，可使用下列的方法來固定

方法一.選取控制項，按滑鼠右鍵，點選"鎖定控制項"

方法二.選取控制項，點選格式功能表，點選"鎖定控制項"

移動按鈕

只要用滑鼠托曳此按鈕即可完成

更改大小

只要拉按鈕外圍的八個方型控制點即可

修改屬性

這樣就能更改大小了，但如果想要更精確的更改大小，如設按鈕的寬度為99、高度為50，怎麼改呢？此時就要用到「屬性」視窗了。 點選VB右方「屬性」視窗 找到「Size」這個屬性，更改為99,50即可，前面的99就是按鈕的寬度，後面的50就是按鈕的高度

【屬性視窗顯示方式點選功能表「檢視／屬性視窗」或按F4】

屬性視窗設定

舉凡你想修改控制項的大小、顏色、位置、名稱…皆可在屬性視窗進行設定。

那如果要改按鈕內所顯示的文字呢？如將標題「Button 1」改成「OK」，方法就是找屬性視窗的Text屬性，輸入「OK」就好了

此時有沒有發現，按鈕的標題改變了。

接著我們改一下這個按鈕的名稱，先看一下這個按鈕名稱叫什麼？只要看屬性視窗上就能看到了，名稱是「Buton6」

「name」就是名稱屬性，將它改成「cmdOK」

修改顏色

如果要將按鈕改成黃色，只要更改BackColor屬性即可

此時按鈕背景色變成黃色了！

文字顏色

如果要將按鈕文字改成紅色則要至ForeColor屬性做修改即可

1.點選Windows Form應用程式類型，再點選確定按鈕。

2.出現Form1表單後，可將工具箱內的控制項，透過滑鼠拖曳到表單中

3.完成之後, 我們可以在按鈕上『點選滑鼠左鍵兩下』以切換到程式設計模式：

4.範例練習：按下按鈕後，顯示ＶＢ２０１０測試訊息

  1: Public Class Form1
  2: 
  3:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4:         MsgBox("VB2010 測試")
  5:     End Sub
  6: End Class

5.完成的結果

說明 ：

這邊的練習為，透過VB來建立一個主控台應用程式，完成程式碼編寫後，進行儲存與偵錯，最後找到編譯後的執行檔。

建立主控台應用程式步驟 :

1.開啟VB2010後，點選新增專案。

2.專案類型選擇主控台應用程式，再點選確定按鈕。

3.底下畫面為建立好的畫面，之後就可在Sub Maion()底下開始編寫程式碼。

當使用『主控台應用程式』時, 因為沒有GUI(使用者操作介面) , 所以輸出和輸入是透過Console.Write 和 Console.Read 來處理：

程式碼說明　

Sub Main()
' 定義變數a
Dim a As Integer　
' 顯示一段文字
Console.Write ( "請輸入數字：" )
' 要求使用者輸入,並儲存到變數a
a = Console.ReadLine
' 換行
Console.WriteLine()
' 計算並輸出
Console.WriteLine( a & " 的平方值為：" & a * a )
' 這一行是為了讓程式碼暫停不動,不要立刻結束
Console.ReadKey()
End Sub

儲存專案步驟 :

1.當完成程式碼編寫後，需要將專案儲存起來，點選全部儲存按鈕。

2.設定專案名稱與存放的位置，再點選儲存按鈕。

3.儲存完成後點選開始偵錯，測試結果 (快速鍵為F5)。

4.底下為執行後的結果。

5.程式編譯後，可到儲存專案的位置內尋找裡面有一個OBJ資料夾。

6.再點選裡面的x86資料夾。

7.再點選裡面的Debug資料夾。

8.在這邊可找到一個.exe的執行檔，就是剛剛程式碼經過編譯之後的程式，之後就可直接透這個檔案直接執行內容，不需要開啟VB囉!

設定步驟

1.點選[工具]功能裡面的[選項]

2.展開文字編輯器Basic，點選[編輯器]，勾選行號，再點選[確定]按鈕

3.底下為開啟行號後所顯示的畫面

安裝步驟

1.將軟體解壓縮後，開啟資料夾，點選[Setup]檔案

2.進入安裝畫面後，點選Visual Basic 2010 Express

3.點選[下一步]按鈕繼續安裝

4.點選"我已閱讀並且接受授權條款"，再點選[下一步]按鈕

5.安裝選項使用預設勾選，再點選[下一步]按鈕

6.安裝資料夾使用預設位置，再點選[安裝]按鈕

7.底下為安裝畫面請稍後

註冊步驟

1.啟動軟體後，點選說明功能表，點選裡面的[註冊產品]

軟體網站

http://www.microsoft.com/visualstudio/en-us/products/2010-editions/express-iso

下載操作

相關資源

http://msdn.microsoft.com/zh-tw/vbasic/ms789086

http://msdn.microsoft.com/zh-tw/library/we86c8x2.aspx

Visual Studio 2010 開發技巧文章

VB開心農莊 http://www.happyvb.twbbs.org/

線上教學

華視VB2008

EXCEL函數與VBA設計課程分享

阿國仔的教學筆記

論壇

程式設計俱樂部

教學課程

教學課程 1：建立圖片檢視器

教學課程 2：建立迷宮程式

教學課程 3：建立數學測驗

教學課程 4：建立配對遊戲