谁是VB高手？

可以帮我做课程设计关于通讯录的，要求有人名，电话，地点，打开退出等功能…

答案：VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "通讯录"
   ClientHeight    =   3285
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6315
   LinkTopic       =   "Form1"
   ScaleHeight     =   3285
   ScaleWidth      =   6315
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox TexFind 
      Height          =   375
      Left            =   4680
      TabIndex        =   16
      Top             =   2160
      Width           =   975
   End
   Begin VB.ComboBox CobFind 
      Height          =   300
      Left            =   4680
      TabIndex        =   15
      Text            =   "Combo1"
      Top             =   1800
      Width           =   975
   End
   Begin VB.CommandButton ComNext 
      Caption         =   "下一个"
      Height          =   375
      Left            =   2640
      TabIndex        =   14
      Top             =   2760
      Width           =   1095
   End
   Begin VB.CommandButton ComPrev 
      Caption         =   "上一个"
      Height          =   375
      Left            =   960
      TabIndex        =   13
      Top             =   2760
      Width           =   1095
   End
   Begin VB.CommandButton ComFind 
      Caption         =   "查 询"
      Height          =   375
      Left            =   4680
      TabIndex        =   12
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton ComDel 
      Caption         =   "删 除"
      Height          =   375
      Left            =   4680
      TabIndex        =   11
      Top             =   600
      Width           =   975
   End
   Begin VB.CommandButton ComAdd 
      Caption         =   "添 加"
      Height          =   375
      Left            =   4680
      TabIndex        =   10
      Top             =   120
      Width           =   975
   End
   Begin VB.TextBox Text5 
      DataField       =   "住址"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1320
      TabIndex        =   9
      Top             =   2160
      Width           =   2415
   End
   Begin VB.TextBox Text4 
      DataField       =   "传呼"
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1320
      TabIndex        =   8
      Top             =   1680
      Width           =   2415
   End
   Begin VB.TextBox Text3 
      DataField       =   "手机"
      DataSource      =   "Data1"
      Height          = 

上一个：vb文件读取问题
下一个：vb闅忔満鏁伴棶棰?- 宸茶В鍐?- 鎼滄悳闂棶