這裡，並沒有使用強制轉換，而是VB的自動轉換．1.　符號　&　與　＋　對於字元來說，作用相同，都是起到連線作用，例如：　　＂中國＂&　"人民"　，結果為＂華人民"　＂AB＂+　"CD"　，結果為＂ABCD"2.　符號　＋　對於數字來說，應該是做加法運算．有關數字與字元間的vb的轉換函式有：1)數值轉換成字元：CStr（）2)字元轉換成數值：CInt（）,CDbl(),CLng(),CSng(),Val（）而你的例子裡，並沒有這些函式，所以本人認為是VB自動（（智慧）轉換，關於自動轉換規律，你完全可以透過上述1和2去自己體會了．比如：s=s&a結果為24，那可以理解VB是把a的值4自動轉換成字元後運算的結果．現在回到你的具體例子，並沒有用到強制轉換

VB使用型別轉換函式來實現強制將一個表示式轉換成某種特定資料型別。

型別轉換函式，每個函式都可以強制將一個表示式轉換成某種特定資料型別。

語法

CBool(expression)

CByte(expression)

CCur(expression)

CDate(expression)

CDbl(expression)

CDec(expression)

CInt(expression)

CLng(expression)

CSng(expression)

CStr(expression)

CVar(expression)

CStr(expression)

必要的 expression 引數可以是任何字串表示式或數值表示式。

CBool 函式示例

本示例使用 CBool 函式來將一表達式轉成 Boolean

值。如果表示式的結果為非零的值，CBool 返回 True；否則返回 False。

Dim A, B, Check

A = 5: B = 5 " 設定變數初值。

Check = CBool(A = B) " Check 的值為 True。

A = 0 " 定義變數。

Check = CBool(A) " Check 的值為 False。

CByte 函式示例

本示例使用 CByte 函式將一表達式轉成 Byte。

Dim MyDouble, MyByte

MyDouble = 125.5678 " MyDouble 為Double（雙精度）。

MyByte = CByte(MyDouble) " MyByte 值為 126。

...

CDate 函式示例

本示例使用 CDate 函式將字串轉換成

Date。一般說來，字串格式的日期與時間硬編碼（如示例中所示）並不好。較好的做法是使用日期原義表示式和時間的原義表示式（如

#2/12/1969#，#4:45:23 PM#）。

Dim MyDate, MyShortDate, MyTime, MyShortTime

MyDate = "February 12, 1969" " 定義日期。

MyShortDate = CDate(MyDate) " 轉換為 Date 資料型別。

MyTime = "4:35:47 PM" " 定義時間。

MyShortTime = CDate(MyTime) " 轉換為 Date 資料型別。