运行效果：
程序代码：
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
