运行效果: ​VB编程:VB运用数据结构-36_彭世瑜_新浪博客_java


程序代码:

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