Question

我有一个电话簿，想用VB做一个程序，在一个文本框输入姓名，在另一个文本框就在显示他的电话号码！求代码

就是简单地txt 举例 张三 15151515151 这么一排一排的排下去

Answer 1

你好, 你是想实现一个具有查询功能的不带数据库的小程序吧？
这样给你写有点不可能：里面难点给你写出来思路
1.这里用text记事本代替数据库实现这个功能（程序打开可能会有2s加载时间）
2.使用open函数 打开并且写入数据；建议人名+电话号；
3.每次打开时候加载text 也是可以用open
4.获取到open的数据 并用split（string,";"）分开，再通过 +

分开人名和电话 得到一个2维数组
5.遍历这个数组 和你要查询人名做出匹配
ok
祝楼主好运

Answer 2

电话簿什么格式的？里面数据又是什么格式的？
要求：号码必须为11位，名字和号码之间有且只有一个空格。
如果不符合要求的话就要进行其他处理了。

Option Explicit
Dim Str1 As String

Private Sub Form_Load()
Dim FileNumber
FileNumber = FreeFile
Open "d:\123.txt" For Input As #FileNumber '路径自己改

Str1 = StrConv(InputB(LOF(FileNumber), FileNumber), vbUnicode)
Close #1
End Sub

Private Sub Text11_Change()
Dim A As Long
A = InStr(Str1, Text1.Text)
If A > 0 Then Text2.Text = Mid(Str1, A + Len(Trim(Text1.Text)) + 1, 11)

End Sub