求VB编写的邮政编码查询系统

VB写邮编查询系统超简单啊，连数据库都可以不用，一个文本文件就够了。

先准备一个文本文件 postcode.txt 内容如下

100084,北京,海淀区,清华大学

100086,北京,海淀区,学院路

010010,内蒙古呼和浩特市,新城区,气象局

……

VB代码如下

Private Sub From_Load()

Form1.Show:Form1.AutoRedraw = True

Dim pc As String,s As String

pc = InputBox("请输入邮政编码或者其它邮编信息")

Print "查询结果如下"

Open App.Path & "\postcode.txt" For Input As #1

Do While Not EOF(1)

Line Input #1,s

If Instr(s,pc)>0 Then

Print "邮编信息：";s

End If

Loop

Close #1

End Sub

很简单吧，祝你学习愉快 :)

453400。根据河南长垣人民政府发布的《全国邮政编码数据库》了解到，河南长垣邮编查询邮编是453400。填写邮政编码时需要保证数字的正确性，如果不确定邮政编码，可通过查询工具进行查询，避免填写错误。