CType 函数
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：申请域名、网络空间、营销软件、网站建设、沁水网站维护、网站推广。
任何数据类型
必须在两种数据类型之间定义扩大转换或收缩转换
引发 InvalidCastException
DirectCast
任何数据类型
一个类型必须继承自或者实现另一个类型
引发 InvalidCastException
TryCast
仅引用类型
一个类型必须继承或者实现另一个类型
返回 Nothing (Visual Basic)
返回表达式显式地转换为指定数据类型、对象、结构、类或接口后的结果。
CType(expression, typename)各部分说明expression任何有效的表达式。如果 expression 的值超出了 typename 所允许的范围，将会出现错误。
typename任何在 Dim 语句的 AS 子句内合法的表达式，即任何数据类型、对象、结构、类或接口的名称。
备注CType 采用内联方式编译，即转换代码是计算表达式的代码的一部分。因为不需要调用完成转换的过程，因此执行速度更快。
示例本示例使用 CType 函数将表达式转换为指定的数据类型。
“结构”是 Visual Basic 早期版本支持的用户定义类型 (UDT) 的一般化。除字段外，结构还可以公开属性、方法和事件。结构可以实现一个或多个接口，而您可以分别为每个字段声明访问级别。
可以合并不同类型的数据项来创建结构。结构将一个或多个“元素”彼此关联并且将它们与结构本身关联。声明了结构后，它将成为“复合数据类型”，而您可以声明该类型的变量。
想让单个变量持有几个相关信息时结构很有用。例如，您可能想将一个雇员的姓名、电话分机号和薪金放在一起。可以对这些信息使用几个变量，或者可以定义一个结构并将它用于单个雇员变量。当有许多雇员并且因此有该变量的许多实例时，结构的优点变得非常明显。
使用 Structure 语句语句作为结构声明的开始，并使用 EndStructure 语句作为结构声明的结束。在这两条语句之间必须至少声明一个“元素”。元素可以是任何数据类型，但是至少一个必须是非共享变量，或是非共享非自定义事件。
不能在结构声明中初始化任何结构元素。如果将一个变量声明为结构类型，则可以通过变量访问元素来给它们赋值。
声明一个结构：
可以使用 Public、Protected、Friend或Private关键字指定结构的访问级别，或者使用默认值 Public。如：
Private Structure employee
End Structure
向结构体添加元素：
结构必须具有至少一个元素。必须声明结构的每个元素并指定其访问级别。如果使用不含任何关键字的 Dim 语句 (Visual Basic)，则可访问性默认值为 Public。如：
Private Structure employee
Public givenName As String
Public familyName As String
Public phoneExtension As Long
Private salary As Decimal
Public Sub giveRaise(raise As Double)
salary *= raise
End Sub
Public Event salaryReviewTime()
End Structure
－－－－－－－－－－－－－－－－－－－－－－－－－－－
另外，关于你的问题，请参考下面C++/C对自定义类型的比较：
1、在C++中，不需使用typedef
struct Structure1 {
char c;
int i;
float f;
double d;
};
int main() {
struct Structure1 s1, s2;
s1.c = 'a'; // Select an element using a '.'
s1.i = 1;
s1.f = 3.14;
s1.d = 0.00093;
s2.c = 'a';
s2.i = 1;
s2.f = 3.14;
s2.d = 0.00093;
}
2、在C中，需用typedef定义
typedef struct {
char c;
int i;
float f;
double d;
} Structure2;
int main() {
Structure2 s1, s2;
s1.c = 'a';
s1.i = 1;
s1.f = 3.14;
s1.d = 0.00093;
s2.c = 'a';
s2.i = 1;
s2.f = 3.14;
s2.d = 0.00093;
}
你可以用结构数组的,如下:
...
Private Structure test
Dim name As String
Dim sex As String
Dim age As Integer
Dim salary As Integer
End Structure
Dim list(2) As test
Private Sub insert()
list(0).name = "张三"
list(0).age = "20"
list(0).salary = "1500"
list(0).sex = "男"
list(1).name = "李四"
list(1).age = "21"
list(1).salary = "1500"
list(1).sex = "女"
End Sub
...
你可以放到main()里输出一下，就是这样...
重庆分公司
重庆分公司
