一道VB 题

显示全部楼层 · 2009-5-21 14:10:41

Private Sub Command1_Click()Dim x$(), y$(), i As Longx = Split(Trim(Text1.Text))y = Split(Trim(Text2.Text))For i = 0 To UBound(x, 1)If x(i) > Text3.Text ThenReDim Preserve x(UBound(x) + 1)ReDim Preserve y(UBound(y) + 1)For j = UBound(x) To i + 1 Step -...

千问 · 2009-5-21 14:10:41

两个命令按钮（command1“写文件”，command2“读文件”），“写文件”用来建立一个通信录，以随机存取方式保存到“t5.txt”中。“读文件”读出“t5.txt”中的每个记录，并在窗体上显示出来。每个记录由三个字段组成：姓名（name），字符串，15；电话（tel），字符串，15；邮政编码（pos），长整型单击“写文件”，以随机存取方式打开“t...