分类：电脑/网络-程序设计
问题：用VB设计一个通讯录程序，要求如下：首先，采用类模块和对象储存联 
首先，采用类模块和对象储存联系人信息，包括：姓名、电话、性别，联系人还有一个自我介绍方法，调用MsgBox显示自己的信息。其次，使用集合储存多个联系人信息。界面：设计一个添加窗体，上面有2个文本框和1个组合框，用于输入联系人信息，另外带一个添加按钮和显示按钮。按添加按钮时将新联系人添加进集合，而按显示按钮时显示集合中的全部联系人。不需要使用。
回答：　如果你平时有许多同学和朋友的信息，试试在上编写一个我这样的通讯录。很方便的哟。 　　先新建一个工程，在“工具箱->右键->部件”添加“Microsoft windows common control 6.0”，然后在窗体上添加五个标签，“标题”分别为 “姓名、电话、Oicq、E-Mail、地址”；添加一个文本框（text1）, 然后[复制/粘贴4次]使其成为控件数组；添加一个Listview控件(Listview1),在其属性框中，添加五个“列首”，“文本”值分别为“姓名、电话、Oicq、E-Mail、地址”，“查看属性”为 “3-lvwReport”, 选中“整行选择”，取消“隐藏选择”；添加两个按钮，其标题属性分别为“添加”、“删除”。添加如下代码： 　　Option Explicit　　Dim fileName As String 　　Private Sub Command1_Click()　　'将文本框中的信息添加到列表框中　　Dim i As Integer　　　With ListView1.ListItems.Add()　　　　.Text = Text1(0)　　　　For i = 1 To 4　　　　.SubItems(i) = Text1(i)　　　Next i　　　End With　　End Sub　　Private Sub Command2_Click()　　'删除列表框中信息　　If ListView1.ListItems.Count > 0 Then　　　If MsgBox("真的要删除吗？", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then　　　ListView1.ListItems.Remove ListView1.SelectedItem.Index　　　End If　　End If　　End Sub　　Private Sub Form_Load()　　Dim tpStr As String, i As Integer　　fileName = App.Path & "\data.txt"If Dir(fileName) <> "" Then　　　'加载数据　　　Open fileName For Input As #1　　　　Do While Not EOF(1)　　　　　With ListView1.ListItems.Add()　　　　　　For i = 0 To 4　　　　　　　Line Input #1, tpStr　　　　　　　If i = 0 Then　　　　　　　　.Text = tpStr　　　　　　　Else　　　　　　　　.SubItems(i) = tpStr　　　　　　　End If　　　　　　Next i　　　　　End With　　　　Loop　　　Close #1　　End If　　End Sub　　Private Sub Form_Unload(Cancel As Integer)　　Dim i As Integer　　Dim tpList As ListItem　　'保存数据　　Open fileName For Output As #1　　　For Each tpList In ListView1.ListItems　　　　Print #1, tpList.Text　　　　For i = 1 To 4　　　　　Print #1, tpList.SubItems(i)　　　　Next i　　　Next tpList　　Close #1　　End Sub　　本程序已在windows98+VB6.0环境下调试通过。