汽车零部件查询系统设计说明书
交通与汽车工程学院 课程设计说明书
课 程 名 称: 运算机应用基础课程设计 课 程 代 码: 6011339 年级/专业/班: 学 生 姓 名: 学 号: 开 始 时 间: 2020 年 4 月 1 日 完 成 时 间: 2020 年 4 月 12 日 课程设计成绩：
学习态度及平技术水平与实际常成绩（30） 能力（20） 创新（5） 说明书（运算书、图纸、分析报告）撰写质量（45） 总 分（100） 题 目: 汽车零部件查询系统设计
指导教师签名： 年 月 日
目 录
摘要…………………………………………………………………………………………1 1 引言………………………………………………………………………………………… 2 方案设计………………………………………………………………………………… 2.汽车零部件查询模拟系统方案设计……………………………………………………5 2.1.1系统功能描述………………………………………………………………………5 2.1.2系统结构分析………………………………………………………………………5 2.1.3系统流程分析………………………………………………………………………5 2.2程序界面和代码设计…………………………………………………………………6 2.2.1系统工程设计框架…………………………………………………………………6 2.2.2系统各界面设计及代码设计………………………………………………………8 3 结果分析 ………………………………………………………………………………33 结论 ………………………………………………………………………………………45 致谢 ………………………………………………………………………………………46 参考文献 …………………………………………………………………………………47
摘 要
随着运算机的普及,运算机高级语言差不多运用到生活中的各个方面，本次课程设计使用VB语言作为开发工具，进行了汽车零部件查询系统的程序设计，该程序能实现汽车零部件查询模拟功能，进行汽车零部件的查询，修改，添加等操作，查询结果简便明了，运行界面清晰有用，操作方便，易于实际处理。
关键词：网络化 运算机 计策 VB语言 汽车零部件 查询 程序
1 引 言
1.1 问题的提出
随着运算机的普及，网络进入大众的家庭。VB一种可视化的、面向对象和采纳事件驱动方式的高级程序设计语言，可用于开发Windows环境下的各类应用程序。本次课程设计要紧内容确实是使用VB编制简单、有用的小程序，以巩固我们所学的运算机VB语言知识，提高分析问题和解决问题的能力，锤炼我们独立动手的能力。
1.2任务与分析
本课题要紧的目的是为了检测步进电机步距角误差，并把误差进行分析运算，最终得到一份误差数据，用误差曲线的方式在坐标上面把误差和步数结果表现出来，方便日后对误差的分析、误差的减少讨论出相应的方案…
2 设计方案
第一依照题目要求设计合理界面，确定哪些控件会用到，要考虑到操作的方便性和美观性。再按题目的功能要求编写对象的事件代码，并其逐一进行调试和修改。…
2.1系统总体方案的设计
2.1.1系统的驱动操纵方案设计
依照设计要求，程序要达到的功能如下：
（1）、用随机文件建立汽车零部件和治理员的信息档案； （2）、读出汽车零部件的信息，显示在列表框中；
（3）、能实现汽车零部件及治理员的信息的查询，修改，添加，删除等操作； （4）、对汽车零部件搜索。 2.1.2系统结构分析
依照上面对系统功能的描述，构建出系统的总体功能结构图，如图1所示
汽车零部件查询系统 对治理员信息的爱护对汽车零部件信息的爱护 对汽车零部件搜索对汽车零部件的查询使用说明 2.1.3系统流程分析
本系统运行后从欢迎（登录）界面进入主界面。程序的要紧工作流程图如图2所示。
图1 系统的总体功能结构图
开始 重试3次 用户登录 失败 读取用户数据并登录 操作主界面 查询零件 (1).卡片式（2）.列表框式 搜索零件 精确或粗略搜索 治理员数据 1.添加数据2.删除数据3.修改数据 零件治理 1.添加数据2.删除数据3.修改数据
图2系统要紧流程图
2.2程序界面和代码设计
2.2.1系统工程设计框架
在设计程序之前，应先布局整个工程。本系统可设立一个工程文件，取名汽车零部件查询系统.vbp，该工程中包括1个模块文件，11个窗体文件，如图3所示。
图3工程内容
模块代码如下：
Dim h Type qiche pj As String * 10 ljxh As String * 10 sych As String * 10 jg As String * 10 fb As String * 10 rq As String * 10 dw As String * 10 End Type Dim cars As qiche Type manager bh As String * 10 xb As Variant xm As Variant mm As String * 10 End Type
Dim pers As manager Sub save()
Kill App.Path + \"\\mag.dat\"
Open App.Path + \"\\mag.dat\" For Random As #1 For i = 0 To Form4.List1.ListCount - 1 pers.bh = Form4.List1.List(i) pers.xb = Form4.List2.List(i) pers.xm = Form4.List3.List(i) pers.mm = Form4.List4.List(i) Put #1, i + 1, pers Next i Close End Sub Sub xishi(p) Form10.Text5(0) = \"\" Form10.Text5(1) = \"\" Form10.Text5(2) = \"\" Form10.Text5(3) = \"\" Form10.Text5(4) = \"\" Form10.Text5(5) = \"\"
Form10.Text5(0) = Form12.List1(0).List(p) Form10.Text5(1) = Form12.List1(1).List(p) Form10.Text5(2) = Form12.List1(2).List(p) Form10.Text5(3) = Form12.List1(3).List(p) Form10.Text5(4) = Form12.List1(4).List(p) Form10.Text5(5) = Form12.List1(5).List(p) End Sub
2.2.2 系统各界面设计
依照功能不同，在本系统中设计了11个窗体。 （1） 欢迎界面
欢迎界面的要紧功能是让用户了解程序软件的用途 （2）用户登录界面
用户登录界面的功能是让治理员进入系统，防止非工作人员进入。 用户登录主界面如图5所示
图5登录界面
登录页面要紧代码如下：
Dim pers As manager
Private Sub Command1_Click() '登录系统按钮 Static t As Integer f = False
If Text2.Text = \"\" Or Text1 = \"\" Then MsgBox \"请填写完整的个人信息\" End If
If Text2.Text <> \"\" Then
Open App.Path + \"\\mag.dat\" For Random As #1 n = LOF(1) / Len(pers) Do While Not EOF(1) Get #1, , pers
If Trim(Text2.Text) = Trim(pers.bh) Then
f = True Form3.Show Unload Form2 Exit Do End If Loop Close
If f = False Then t = t + 1 If t < 3 Then
MsgBox \"用户不存在,请重新输入！\用户名错误\"
Else
MsgBox \"重试次数已到，立即退出本系统!\用户名错误\"
End Exit Sub End If End If End If End Sub
Private Sub Command2_Click() '终止按钮 End
End Sub
（3）主界面一如图6所示
主界面的功能是展现出系统软件的功能，使用户一目了然。
图6 主界面
要紧代码如下：
Dim cars As qiche ’通用定义代码 Dim a(5)
Private Sub Form_Load() Frame1.Visible = False List2.Visible = False End Sub
Private Sub bz_Click() ’查看系统关心 Form9.Show End Sub
Private Sub ss_Click() ‘搜索零件 List2.Visible = True Frame1.Visible = True
List2.Visible = Not List2.Visible List2.Clear End Sub
Private Sub Command1_Click() ’依照零件信息对零件搜索 For i = 0 To 4
If Combo1(i).Text = \"\" Then
For j = 0 To Form12.List1(i).ListCount - 1 List3(i).AddItem Form12.List1(i).List(j) Next j Else t = i Call hunt(t) End If Next i
If Text1 <> \"\" And Text2 <> \"\" Then Call hunt2
ElseIf Text1 = \"\" And Text2 <> \"\" Then Text1 = 0: Call hunt2 ElseIf Text1 <> \"\" And Text2 = \"\" Then Text2 = 10 ^ 10: Call hunt2 Else
For j = 0 To Form12.List1(5).ListCount - 1 List3(5).AddItem Form12.List1(5).List(j) Next j End If For k = 0 To 5
m = List3(k).ListCount For j = 0 To m
If List3(k).List(j) <> \"\" Then a(k) = a(k) + 1 End If Next j Next k Max = a(0) For i = 1 To 5
If a(i) > Max Then Max = a(i) End If Next i
For k = 0 To Val(Max)
If List3(0).List(k) <> \"\" And List3(1).List(k) <> \"\" And List3(2).List(k) <> \"\" And List3(3).List(k) <> \"\" And List3(4).List(k) <> \"\" And List3(5).List(k) <> \"\" Then
List2.AddItem List3(0).List(k) & List3(1).List(k) & List3(2).List(k) & List3(3).List(k) & List3(4).List(k) & List3(5).List(k) End If Next k
Frame1.Visible = False List2.Visible = True End Sub
Sub hunt(t)
For i = 0 To Form12.List1(t).ListCount - 1
If Trim(Combo1(t).Text) = Trim(Form12.List1(t).List(i)) Then List3(t).AddItem Form12.List1(t).List(i), i Else
List3(t).AddItem \"\End If Next i End Sub Sub hunt2()
For i = 0 To List1(5).ListCount - 1
If Val(Text1) < Val(List1(5).List(i)) And Val(Text2) > Val(List1(5).List(i)) Then List3(5).AddItem List1(5).List(i), i Else
List3(5).AddItem \"\End If Next i End Sub
Private Sub Command2_Click() ‘退出搜索零部件 Frame1.Visible = False End Sub
Private Sub glsj_Click() ‘打开治理员数据治理功能 Form4.Show End Sub
Private Sub bk_Click() ‘表框式查询零部件 Form10.Show
Form10.Frame1.Visible = True End Sub
Private Sub kp_Click() ‘卡片式查询零部件 Form10.Show
Form10.Frame2.Visible = True End Sub
Private Sub ljgl_Click() ‘打开零部件数据治理功能 Form12.Show End Sub
Private Sub tc_Click() ‘退出系统 End End Sub
（4）主界面二如图7所示
图7 主界面
要紧代码如下： 1．卡片式零件查询：
Dim q
（1).查看上一个零件的代码如下:
Private Sub Command1_Click() Static q As Integer
If q = -1 Then q = List2.ListCount - 1 p = Val(List2.List(q)) Call xishi(p) q = q - 1 End Sub
（2）查看下一个零件代码如下：
Private Sub Command2_Click() Static q As Integer
If q > List2.ListCount - 1 Then q = 0 p = Val(List2.List(q)) Call xishi(p)
q = q + 1
Command1.Enabled = True End Sub
（3）退出卡片式查询代码如下：
Private Sub Command3_Click() Form3.Show Unload Me End Sub
（4）查看第一个零件代码如下：
Private Sub Command4_Click() p = Val(List2.List(0)) Call xishi(p) End Sub
（5）查看最后一个零件代码如下：
Private Sub Command5_Click()
p = Val(List2.List(List2.ListCount - 1)) Call xishi(p) End Sub
（6）卡片式配件框发生改变代码如下：
Private Sub Text3_Change() List2.Clear
For i = 0 To Form12.List1(0).ListCount - 1 If Text3 <> \"\" And Text4 = \"\" Then
If Trim(Text3) = Trim(Form12.List1(0).List(i)) Then List2.AddItem i End If End If
If Text3 <> \"\" And Text4 <> \"\" Then If
Trim(Form12.List1(0).List(i))
=
Trim(Text3)
And
Trim(Form12.List1(1).List(i)) = Trim(Text4) Then
List2.AddItem i End If End If Next i
If List2.ListCount > 0 Then List2.ListIndex = 0 p = Val(List2.Text) Call xishi(p) Else
Text5(0) = \"\" Text5(1) = \"\" Text5(2) = \"\" Text5(3) = \"\" Text5(4) = \"\" Text5(5) = \"\" End If
If List2.ListCount > 1 Then Command2.Enabled = True End Sub
（7）卡片式零件型号框发生改变代码如下：
Private Sub Text4_Change() List2.Clear
For i = 0 To Form12.List1(0).ListCount - 1 If Text4 <> \"\" And Text3 = \"\" Then
If Trim(Text4) = Trim(Form12.List1(1).List(i)) Then List2.AddItem i End If
End If
If Text3 <> \"\" And Text4 <> \"\" Then If
Trim(Form12.List1(0).List(i))
=
Trim(Text3)
And
Trim(Form12.List1(1).List(i)) = Trim(Text4) Then
List2.AddItem i End If End If Next i
If List2.ListCount > 0 Then List2.ListIndex = 0 p = Val(List2.Text) Call xishi(p) Else
Text5(0) = \"\" Text5(1) = \"\" Text5(2) = \"\" Text5(3) = \"\" Text5(4) = \"\" Text5(5) = \"\" End If
If List2.ListCount > 1 Then Command2.Enabled = True End Sub
2.列表框式零件查询：
（1）列表框式配件框发生改变代码如下：
Private Sub Text1_Change() List1.Clear
List1.AddItem \"配件\" & \" \" & \" \" & \"零件型号\" & \" \" & \" \" & \"适用车型\" & \" \" & \" \" & \" \" & \" \" & \"公布日期\" & \" \" & \" \" & \" \" & \"单位\" & \" \" & \" \" & \" \" & \" \" & \" \" & \"价格\"
For i = 0 To Form12.List1(0).ListCount - 1
If Text1 <> \"\" And Text2 = \"\" Then
If Trim(Form12.List1(0).List(i)) = Trim(Text1) Then
List1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)
End If End If
If Text1 <> \"\" And Text2 <> \"\" Then If
Trim(Form12.List1(0).List(i))
=
Trim(Text1)
And
Trim(Form12.List1(1).List(i)) = Trim(Text2) Then
List1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)
End If End If Next i End Sub
（2）列表框式零件型号框发生改变代码如下：
Private Sub Text2_Change() List1.Clear
List1.AddItem \"配件\" & \" \" & \" \" & \"零件型号\" & \" \" & \" \" & \"适用车型\" & \" \" & \" \" & \" \" & \" \" & \"公布日期\" & \" \" & \" \" & \" \" & \"单位\" & \" \" & \" \" & \" \" & \" \" & \" \" & \"价格\"
For i = 0 To Form12.List1(0).ListCount - 1 If Text1 = \"\" And Text2 <> \"\" Then
If Trim(Form12.List1(1).List(i)) = Trim(Text2) Then
List1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)
End If End If
If Text1 <> \"\" And Text2 <> \"\" Then If
Trim(Form12.List1(0).List(i))
=
Trim(Text1)
And
Trim(Form12.List1(1).List(i)) = Trim(Text2) Then
List1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)
End If End If Next i End Sub
（5）主界面三如图8所示
图8 主界面 要紧代码如下:
Dim cars As qiche ‘通用代码 Dim a(5)
（1）修改零件代码如下：
Private Sub Command1_Click() If List1(0).Text = \"\" Then MsgBox \"请选择要修改的零件\"
Else Form7.Show
Form7.Text1 = List1(0).Text Form7.Text2 = List1(1).Text Form7.Text3 = List1(2).Text Form7.Text4 = List1(3).Text Form7.Text5 = List1(4).Text Form7.Text6 = List1(5).Text
List1(0).RemoveItem List1(0).ListIndex List1(1).RemoveItem List1(1).ListIndex List1(2).RemoveItem List1(2).ListIndex List1(3).RemoveItem List1(3).ListIndex List1(4).RemoveItem List1(4).ListIndex List1(5).RemoveItem List1(5).ListIndex End If End Sub
（2）添加零部件代码如下：
Private Sub Command2_Click() Form8.Show End Sub
（3）删除零部件代码如下：
Private Sub Command3_Click()
List1(0).RemoveItem List1(0).ListIndex List1(1).RemoveItem List1(1).ListIndex List1(2).RemoveItem List1(2).ListIndex List1(3).RemoveItem List1(3).ListIndex List1(4).RemoveItem List1(4).ListIndex List1(5).RemoveItem List1(5).ListIndex
End Sub
（3）退出零部件查询系统代码如下：
Private Sub Command4_Click() Form3.Show Unload Me End Sub
（4）打开窗体运行代码如下：
Private Sub Form_Load()
Open App.Path + \"\\car.dat\" For Random As #2 Do While Not EOF(2) i = i + 1 Get #2, i, cars
List1(0).AddItem cars.pj List1(1).AddItem cars.ljxh List1(2).AddItem cars.sych List1(3).AddItem cars.fb List1(4).AddItem cars.dw List1(5).AddItem cars.jg Loop Close End Sub
Private Sub List1_Click(Index As Integer) ‘点击零部件显示属性 Select Case Index Case 0
List1(5).ListIndex = List1(0).ListIndex List1(4).ListIndex = List1(0).ListIndex List1(3).ListIndex = List1(0).ListIndex
List1(2).ListIndex = List1(0).ListIndex List1(1).ListIndex = List1(0).ListIndex Case 1
List1(5).ListIndex = List1(1).ListIndex List1(4).ListIndex = List1(1).ListIndex List1(3).ListIndex = List1(1).ListIndex List1(2).ListIndex = List1(1).ListIndex List1(0).ListIndex = List1(1).ListIndex Case 2
List1(5).ListIndex = List1(2).ListIndex List1(4).ListIndex = List1(2).ListIndex List1(3).ListIndex = List1(2).ListIndex List1(0).ListIndex = List1(2).ListIndex List1(1).ListIndex = List1(2).ListIndex Case 3
List1(5).ListIndex = List1(3).ListIndex List1(4).ListIndex = List1(3).ListIndex List1(0).ListIndex = List1(3).ListIndex List1(2).ListIndex = List1(3).ListIndex List1(1).ListIndex = List1(3).ListIndex Case 4
List1(5).ListIndex = List1(4).ListIndex List1(0).ListIndex = List1(4).ListIndex List1(3).ListIndex = List1(4).ListIndex List1(2).ListIndex = List1(4).ListIndex List1(1).ListIndex = List1(4).ListIndex Case 5
List1(0).ListIndex = List1(5).ListIndex List1(4).ListIndex = List1(5).ListIndex List1(3).ListIndex = List1(5).ListIndex
List1(2).ListIndex = List1(5).ListIndex List1(1).ListIndex = List1(5).ListIndex End Select End Sub
（6）主界面四如图9所示
图9 主界面
要紧代码如下：
（1）添加零部件代码如下： Private Sub Command1_Click()
If Combo1(0).Text <> \"\" And Combo1(1).Text <> \"\" And Combo1(2).Text <> \"\" And Combo1(3).Text <> \"\" And Combo1(4).Text <> \"\" And Text1 <> \"\" Then
Form3.List1(0).AddItem Combo1(0).Text Form3.List1(1).AddItem Combo1(1).Text Form3.List1(2).AddItem Combo1(2).Text Form3.List1(3).AddItem Combo1(3).Text Form3.List1(4).AddItem Combo1(4).Text Form3.List1(5).AddItem Text1 Call save2 Form3.Show Unload Me
Else
MsgBox \"请写入完整的信息！\" End If End Sub
（2）退出添加零部件页面代码如下：
Private Sub Command2_Click() Form3.Show Unload Me End Sub
（7）主界面五如图10所示
图10 主界面
要紧代码如下：
（1）添加个人信息代码如下： Private Sub Command1_Click() Form5.Show End Sub
（2）删除个人信息代码如下：
Private Sub Command2_Click() List1.RemoveItem List1.ListIndex List2.RemoveItem List2.ListIndex List3.RemoveItem List3.ListIndex List4.RemoveItem List4.ListIndex Call save End Sub
（1）修改个人信息代码如下： Private Sub Command3_Click() If List1.Text = \"\" Then MsgBox \"请选择修改对象\" Else Form6.Show
Form6.Text1 = List1.Text Form6.Text2 = List3.Text Form6 bo1.Text = List2.Text List1.RemoveItem List1.ListIndex List2.RemoveItem List2.ListIndex List3.RemoveItem List3.ListIndex List4.RemoveItem List4.ListIndex End If End Sub
（4）退出个人信息窗口代码如下：
Private Sub Command4_Click() Form3.Show Unload Me End Sub
（5）打开个人信息窗口运行代码如下：
Private Sub Form_Load()
i = 0
Open App.Path + \"\\mag.dat\" For Random As #1 Do While Not EOF(1) i = i + 1 Get #1, i, pers
List1.AddItem pers.bh, i - 1 List2.AddItem pers.xb, i - 1 List3.AddItem pers.xm, i - 1 List4.AddItem pers.mm, i - 1 Loop Close End Sub
Private Sub List1_Click() List2.ListIndex = List1.ListIndex List3.ListIndex = List1.ListIndex List4.ListIndex = List1.ListIndex End Sub
Private Sub List2_Click() List1.ListIndex = List2.ListIndex List3.ListIndex = List2.ListIndex List4.ListIndex = List2.ListIndex End Sub
Private Sub List3_Click() List1.ListIndex = List3.ListIndex List2.ListIndex = List3.ListIndex List4.ListIndex = List3.ListIndex End Sub
Private Sub List4_Click() List1.ListIndex = List4.ListIndex List2.ListIndex = List4.ListIndex List3.ListIndex = List4.ListIndex End Sub
（8）主界面六如图11所示
图11 主界面 要紧代码如下：
Dim pers As manager Private Sub Form_Load() Text3 = \"\" End Sub
Private Sub Command1_Click() ‘确定添加按钮
If Text1 = \"\" Or Text2 = \"\" Or Text3 = \"\" Or Combo1.Text = \"\" Then MsgBox \"请输入完整的信息\" Text1.SetFocus Exit Sub
End If
If Text1 <> \"\" And Text2 <> \"\" And Text3 <> \"\" And Combo1.Text <> \"\" Then Form4.List1.AddItem Text1 Form4.List2.AddItem Combo1.Text Form4.List3.AddItem Text2 Form4.List4.AddItem Text3 Call save End If Form4.Show Unload Me End Sub
Private Sub Command2_Click() ‘退出按钮 Form4.Show Unload Me End Sub
（9）主界面七如图12所示
图12 主界面
3 结果分析
单击“确定”按钮，运行结果见图1所示
图1用户登录
单击“搜索”按钮，运行结果见图2所示。
图2搜索
单击“零件查询卡片式”按钮，运行结果见图3所示。
图3卡片式
单击“零件查询列表框式”按钮，运行结果见图4所示。
图4列表框式 单击“零件数据爱护”按钮，运行结果见图5所示。
图5零件数据爱护
点击任一零部件后显示如图6
图6
单击“修改”按钮，运行结果见图7所示。
图7修改零件
点击确定后显示如图8所示
图8 点击任一零部件后显示如图9所示
图9
点击删除按钮后显示如图10所示
图10 点击添加按钮后显示如图11所示
图11
点击确定后显示如图12所示
图12
单击“治理员数据爱护”按钮，运行结果见图13所示。
图13治理员数据 点击任一治理员信息后显示如图14所示
图14 点击删除后显示如图15所示
图15 点击任一治理员信息后显示如图16所示
图16 点击修改按钮后显示如图17所示
图17 单击“确定”按钮后显示如图18
图18 单击“添加”按钮，运行结果见图19所示。
图19 点击确定后显示如图20所示
图20 点击关心按钮后显示如图21所示
图21
结 论
在那个学生成绩查询、治理系统课设创作的过程中，让我亲躯体会了制作软件的全过程，让我明白了制作软件是一件专门复杂的情况。也深深的体会到了理论联系实践的重要性，光有理论知识不去亲自动手制作是不行的。只明白理论可不能实践最多只是纸上谈兵，想要真正的学好VB,完全把握VB就一定要理论联系实践。
在设计中会遇到专门多的困难，其要紧的缘故如下： （1）缺乏实践体会，可不能理论联系实际； （2）思维不是专门灵活； （3）知识面不够广；
（4）对VB编程不是专门熟练，有专门多
实践动手能力，让我更深刻的了解了VB的应用，给我在以后的学习工作带来更多的便利
致 谢
在本次课程设计中，我得到了专门多关心。专门专门感谢指导老师：朱老师！ 还有许多热心的学长和室友们在那个地点一并表示感谢！
参考文献
［1］杨宝刚.开展企业治理信息化工作的步骤［J］.企业治理.2002.（11）.12~15
［2］Islamabad. Software tools for forgery detection［J］. Business line.2001. (5）. 29~32 [3].杨明广.王秀华. Visual Baisc程序设计教程.中国科学技术出版社，2006.11，21世纪教材； [4].王秀华.余建坤. Visual Baisc程序设计上机和级考实训教程.中国科学技术出版社，2006.11，21世纪教材；
[5]．龚沛曾. Visual Baisc程序设计简明教程（第二版）.高等教育出版社，2003 [6]．曾强聪.新编Visual Basic程序设计教程.清华大学出版社，2004
因篇幅问题不能全部显示，请点此查看更多更全内容