是编一个银行查询系统用的。
要求：按“打开“（”文件“菜单下的）打开data.dat，把它读入数组。然后用它查询帐户的余额(在文本框内输入帐号)。并统计总余额和帐户数（是不是通过ubound找到数组的下界呀？能不能教教我具体的程序呀）。最后再把帐户信息保存到磁盘）。
ps;data文件中有空的

我编的程序；
Option Base 1
Dim x(), i%, j%

Private Sub about_Click()
    Form2.Show
End Sub

Private Sub cx_Click()
    Text1.Text , a()
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Form_Load()
Label1.Alignment = 1
Label1.Caption = "请输入帐号"
Label1.FontSize = 10
Text1.Text = ""
              
End Sub

Private Sub open_Click()
    Dim FilePath As String
    Dim FileText As String
   
    CommonDialog1.Filter = "文本文件(*.dat)|*.dat"
    CommonDialog1.Action = 1
    CommonDialog1.DialogTitle = "打开 "
   
    If Len(CommonDialog1.FileName) = 0 Then
        Exit Sub
    End If
   
    FilePath = CommonDialog1.FileName
   
    Form1.Caption = Form1.Caption
   

   
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then cx.SetFocus
End Sub

Private Sub zhongzh_Click()
    MsgBox "总帐户数为" & zhs(a())
End Sub

Private Sub zye_Click()
    总余额为 "&zye(a())"
End Sub

半成品在下面的压缩文件


[[it] 本帖最后由 sugarzong 于 2008-6-22 19:48 编辑 [/it]]

"101187","阮娜",62530
"102206","何密",9697
"103304","蒋媛蒣",58553
"104443","蒋荈",31992
"105555","卢蝡",33296
"106660","白羽",34922
"107746","赖烫胃",57657
"108822","李吓",11154
"109907","周斯",8638
"","",0
.........还有很多








[[it] 本帖最后由 sugarzong 于 2008-6-22 19:49 编辑 [/it]]