使用自定义数据类型存储输入数据，并通过弹出窗口展示

【代码区域】

Type lianxiren 'name As StringSex As StringEnd TypeSub aa() Dim record As lianxiren '声明一个lianxiren类型的变量 record.name = InputBox("请输入名称", "记录联系人信息") record.Sex = InputBox("请输入性别", "记录联系人信息") MsgBox "姓名：" & record.name & vbLf & "性别：" & record.Sex, vbOKOnly, "联系人基本信息"End Sub

【代码解释】

第1~4定义一个变量，第6行声明了一个自定义数据类型的变量，第7~8行用于输入所定义的变量值，第9行用于输出所定义的变量的值。

按F5执行，依次输入结果姓名，性别，查看结果

【效果图】