（转）VB强制类型转换函数
转自：http://tieba.baidu.com/f?kz=139765011
每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
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 参数可以是任何字符串表达式或数值表达式。
返回类型
函数名称决定返回类型，如下所示：
函数 返回类型 expression 参数范围
CBool Boolean 任何有效的字符串或数值表达式。
CByte Byte 0 至 255。
CCur Currency -922,337,203,685,477.5808 至922,337,203,685,477.5807。
CDate Date 任何有效的日期表达式。
CDbl Double 负数从 -1.79769313486232E308 至 -4.94065645841247E-324；正数从 4.94065645841247E-324 至 1.79769313486232E308。
CDec Decimal 零变比数值，即无小数位数值，为
+/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值，范围则为
+/-7.9228162514264337593543950335；最小的可能非零值是 0.0000000000000000000000000001。
CInt Integer -32,768 至 32,767，小数部分四舍五入。
CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。
CSng Single 负数为 -3.402823E38 至 -1.401298E-45；正数为 1.401298E-45 至 3.402823E38。
CStr String 依据 expression 参数返回 Cstr。
CVar Variant 若为数值，则范围与 Double 相同；若不为数值，则范围与 String 相同。
说明
如果传递给函数的 expression 超过转换目标数据类型的范围，将发生错误。
通常，在编码时可以使用数据类型转换函数，来体现某些操作的结果应该表示为特定的数据类型，而不是缺省的数据类型。例如，当单精度、双精度或整数运算发生的情况下，使用 CCur 来强制执行货币运算。
应
相关文档：
VB无所不能之七：VB的多线程（1）
作者：钟声
题外话：
最近，写了几篇《VB无所不能》系列，本系列文章的创作初衷就是要去颠覆众多程序员对于“非面向对象”语言“VB”的成见！
当然，我也早有预期，此言一出必然招致不明真相的群众的“围攻”，然而，我还是要� ......
一般会使用WINDOW API的情况，实在是因为VB本身不提供某些功能，但是，程式所
需又不得不然，例如：读取Registry内的资
料，VB只提供SaveSetting、Getsetting 等
系列的指令，但是它只能读取特定地区的值，要读、删、更动其他区域的值时，就无
法
使用。再如：仔细看一看Combo Box的Events，其中 ......
YXOnline已经接近尾声,为了处理一些界面的问题,测试一个C++的DLL
一个函数,用deasambling看C++的代码是没有错误的,但是到了VB,请看
b的返回值是True 不管C++和VB相互键约定True和False各对应为什么数值
这里已经是True了
但那时显示True = True 仍旧不执行第一个Msgbox
直接跳到Else
而如果省略b = True 为 If b Then ......
1. 在VB的Form设计时，加入一个picturebox控件，这个控件作为OLE容器，MapInfo中的地图将在该控件上显示。
2. 执行VB的函数Createobject(“MapInfo.Application”),启动MapInfo。这时MapInfo在后台启动，对用户来说不可见，不会弹出sp ......
'工程-->引用 添加 Microsoft activex data objects 2.5 library
'工程-->部件 添加 Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......
