声明数据类型:在模块中直接写如下代码Type StudentName As StringAge As IntegerEnd Type定义自己的数据类型,在窗体建立一个按钮,写如下代码Private Sub Command1_Click()Dim stu As Studentstu.Name = "李刚"stu.Age = 21MsgBox "姓名:" & stu.Name & " 年龄:" & stu.AgeEnd Sub