VB编程：VB运用数据结构

VB编程：VB运用数据结构

运行效果：

程序代码：

Private Type num       '定义一个新类型的数据，包含两个元素
    num1 As Integer
    num2 As Integer
End Type

Private Sub Command1_Click()
    Dim number As num    '定义num类型的变量
    number.num1 = 1
    number.num2 = 2
    Text1.Text = number.num1 + number.num2
End Sub