vb制作通讯录vb制作通讯录
学号0001,张小丽,地址上海,电话20100530,备注2200 学号0002,李小张,地址三亚,电话20100601,备注1640 学号0003,小里张,地址北京,电话20100601,备注1130 学号0004,里张,地址昆明,电话20100603,备注1200
... ...
form1.show
dim switch as byte
switch = inputbox("请输入查询代号 1.查询学号 2.姓名查询 3.地址查询 4.电话查询 5.备注查询")
select ca...
vb制作通讯录
学号0001,张小丽,地址上海,电话20100530,备注2200 学号0002,李小张,地址三亚,电话20100601,备注1640 学号0003,小里张,地址北京,电话20100601,备注1130 学号0004,里张,地址昆明,电话20100603,备注1200
... ...
form1.show
dim switch as byte
switch = inputbox("请输入查询代号 1.查询学号 2.姓名查询 3.地址查询 4.电话查询 5.备注查询")
select case switch
case 1
str = inputbox("学号")
case 2
str = inputbox("姓名")
case 3
str = inputbox("地址")
case 4
str = inputbox("电话")
case 5
str = inputbox("备注")
end select
open "c:\lib.txt" for input as #1 do while not eof(1)
input #1,s1,s2,s3,s4,s5
select case switch
case 1
if s1 = str then print "符合条件的";s1;s2;s3;s4;s5 case 2
if s2 = str then print "符合条件的";s1;s2;s3;s4;s5 case 3
if s3 = str then print "符合条件的";s1;s2;s3;s4;s5 case 4
if s4 = str then print "符合条件的";s1;s2;s3;s4;s5
case 5
if s5 = str then print "符合条件的";s1;s2;s3;s4;s5
end select
loop
close #1
本文档为【vb制作通讯录】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。