网络的，本地的？
我只会后者。

本地的就可以了。。取钱的时候代码怎么弄啊？？谢谢

虚拟？还是自动柜员机？

用不着那么高深。。做多窗体的就行了

谢谢。。我已经做好了！！[em1]

哈哈哈哈
原来阁下就是大虾阿
恭喜了
不过能发出来，大家都看看不？

呵呵。。我学了一学期了这是第一次做！！见笑了

主窗体：

Private Sub Command1_Click()
Form1.Show
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Command3_Click()
 Form3.Show
End Sub


窗体1：存钱
Dim sum As Single, s As String
Private Sub Command1_Click()
Open "d:\f1.txt" For Input As #1
s = Input(LOF(1), 1)
sum = 0 + s + Text1.Text
Close #1
Open "d:\f1.txt" For Output As #1
Print #1, sum
MDIForm1.Text1.Text = sum
Close #1
Form1.Visible = False

End Sub



2取钱：
Dim sum As Single, s As String
Private Sub Command1_Click()
Open "d:\f1.txt" For Input As #1
s = Input(LOF(1), 1)
sum = 0 + s - Text1.Text
Close #1
Open "d:\f1.txt" For Output As #1
Print #1, sum
MDIForm1.Text1.Text = sum
Form2.Visible = False
Close #1
End Sub


3 显示余额：
Private Sub Command1_Click()
Open "d:\f1.txt" For Input As #1
d = Input(LOF(1), 1)
Print d
Close #1
Open "d:\f1.txt" For Output As #1
Print #1, d
MDIForm1.Text1.Text = d
Close #1
End Sub


谢谢指点哈！！！

网络的和本地的有啥子区别啊？？？网络的是怎么个实现法！！小弟现在求知欲望很强烈。呵呵！还有啥子虚拟的啊？？[em10][em10][em10]

你做的就是“本地的”“虚拟的”
银行那个就是“真实”的
qq币之类的，就是网络的虚拟的