当前位置： 文档下载 > 所有分类 > IT/计算机 > 电脑基础知识 > vb期末实验作业---自动存取款机程序编写用vb编写的自动存取款机代码
Form1（登录界面）
Dim t%
Private Sub Command1_Click()
Static n As Integer
Dim i%
Open "c:\account.dat" For Random As #1 Len = Len(s)
For i = 1 To LOF(1) / Len(s)
Get #1, i, s
If Trim(Text1) = Trim(s.account) And Trim(Text2) = Trim(s.password) Then Form1.Hide
Form2.Show
Timer2.Enabled = False
Else
MsgBox "密码或账号错误，错误三次该账号不能使用", 0, "注意"
n = n + 1
If n = 3 Then MsgBox "密码错误三次，账号停用", 0, "提示": End
End If
Exit For
Next i
Close #1
t = 60
Text1 = ""
Text2 = ""
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Form_Load()
t = 60
End Sub
Private Sub Timer1_Timer()
Randomize
Label3.ForeColor = RGB(Int(Rnd * 256 + 0), Int(Rnd * 256 + 0), Int(Rnd * 256 + 0)) End Sub
Private Sub Timer2_Timer()
t = t - 1
Label4.Caption = "剩余时间:" & t & "秒"
If t = 0 Then
MsgBox "操作超时", 0, "Bank of SWU"
Text1 = ""
Text2 = ""
t = 180
VB程序设计(2014大作业)_工学_高等教育_教育专区。...知识编写程序来实现运算功能并解决问题,也是我们实训 ...VB 学单词本系统功能要求: 1.能够自动显示单个单词...
vb简单编程作业_计算机软件及应用_IT/计算机_专业资料。Vb 程序设计实验报告 试...Vb 程序设计实验报告 试院(系) : 班级 专业 机自 1201 机自 学号 姓名 验...
华南师范大学实验报告(VB语言程序设计大作业)_计算机...编写与测试, 培养学生的实践动手能力,并检测本课程...完成一题自动计算题目总数、正确数、错误数和正确率...
四、实验题 1、题目 编写一个简单的VB程序,界面如下图所示。 程序有两个按钮...⑹ 修改程序 要对已经存过盘的工程进行修改,步骤如下: * 到存放工程的文件夹...
VB程序设计(2015大作业)_教育学_高等教育_教育专区...和源程序代码的编写; 5.上机编辑、调试程序; 6....7、 《VB 学单词》本系统功能要求: 1.能够自动...
vb程序设计实验心得_经管营销_专业资料。vb 程序设计...而且要用 Access 数据库了解 了这些之后 作业也就...在编程过程中环境会自动为用户生成一些 必要代码,以...
2011年最新vb期末复习题(免... 29页 免费搜...什么顺序执行代码,只需编写针对某个 事件的程序代码...打开 另存为 颜色 字体 打印 3.文本框 列表框 4...
4、用所学的 VB 知识编写程序来实现运算功能并解决问题,达到实训的目的 三、实验设备计算机、VB 软件 四、实验过程 1、课题的选材过程(设计思路) 由 VB 程序...
提交界面 6 西北工业大学软件技术专用 自动给出成绩...VB 大作业的练习,我真正知道了编程调试的难度,许多...文件压缩上传,包括源程序和技术报告,每次上传最大 ...
否则自动取款机将没收信用卡,并跳转到 ⑥⑤ 进入...共 18 分) 阅读流程图或程序写结果( 流程图 1、...VB程序设计上机操作期末... 3页 免费 《VB程序设计...
广工大 VB期末程序设计大作业广工大 VB期末程序设计...所选背景是最新的武直 10 陆航武装直升机,符合...在登录界面的管理员和游客权限的划分上遇到困难, 写...
闽公网安备 35021102001881号 
热门文档