排序演示 vb课程设计论文

成绩南京工程学院课程设计报告（论文）

题目排序演示

课程名称程序设计基础---VB

院（系、部、中心）先进制造技术工程中心

专业机械制造及其自动化

班级D机加工091

学生姓名钱丽

学号231090406

设计地点图书馆A307

指导教师黄陈蓉

设计起止时间： 2011 年 1月4 日至 2011 年 1月 6日

目录

一、设计任务 (3)

二、总体设计思路 (4)

三、画出程序总体框图 (4)

四、系统的调试 (6)

五、收获体会 (8)

六、源代码 (9)

七、主要参考资料 (23)

一、设计任务

（1）程序启动后，显示主界面。首先单击“产生10个随机数”按钮来产生10个随机数，并显示在10个文本框中；然后选择一种“演示模式”和“排序方式”，其中演示模式可以直接给出排序结果，也可以通过动画动态演示整个排序过程，排序方式可以按从小到大顺序，也可以按从大到小顺序排序。

（2）在主窗口的空白区单击鼠标右键，弹出快捷菜单。从中选择“排序算法”命令，打开对话框，从中选择一种排序方式，单击不同排序方式时，“算法描述”中简要介绍了这种算法。单击“确定”按钮返回到主窗口，主窗口中最上方框架控件的标题文字显示当前所选的排序算法。

（3）设置完毕，单击“开始排序”按钮（此按钮在生成数据之前是不可用的），启动排序过程。若选择了动画方式，红色背景的文本框表示当前正在比较的元素，黄色的代表已排序的元素，2个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条的位置来控制演示过程的速度。排序结束后程序以消息框的形式报告数据交换的次数。可以使用快捷菜单中的“将数据写入文件”命令将排序后的数据保存到“data.txt”中覆盖原有内容。

（4）选择窗口主菜单中的“颜色设置”命令，主窗口扩大，底部显示“颜色设置”框架，可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择此命令，窗口恢复到原来的大小。（5）选择主菜单中的“退出”命令可退出本程序，程序显示消息对话

框予以确认。

二、系统总体设计方案

三、画出程序整体框图

1.快捷菜单

排序方法多重窗体窗体编辑器

设计界面

排

序

演

示

模块代码

信息提示框

编写代码

2.启动后的主界面

3.确认退出对话框

4.颜色设置

5.显示交换次数

6.“排序算法选择”对话框

四、系统的调试

1、问题：停止按钮不能使其在开始运行时候停止。

解决：利用了Boolean（逻辑变量）定义了一个使程序停止的变量f，然后又定义了一个Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ，声明sleep函数，可以使程序暂停一段时间，最后用时钟（timer）来设定所需暂停的随机时间（s）。注意timer函数设置时的interval值，以毫秒为单位，1000ms=1s。

2、问题：消息对话框（msgbox）的形式，及msgbox函数的返回值如何的选取，设置。

解决：在对“停止”按钮编码时，一开始未给msgbox赋值，导致程序不起作用，后来赋值后，采用了msgbox函数里的vbyes与vbno，采用了if...then...else...但程序无法退出，最后只对vbno做了代码编制，退出程序则采用了“unload”函数，最后程序终于调试成功。

3、问题：动态演示如何演变，交换次数无法得到。

解决：采用timer函数，以时间来对它进行控制，也可以拖得滚动条来控制它动态演示时的速度。

演示代码：If a(k) > a(j) And Option1.Value Then

Text1(k - 1).BackColor = yanse1 '''''''''''''''交换元素颜色

Text1(j - 1).BackColor = yanse1

DoEvents

Call Sleep(1000) 调用了函数sleep

linshi = a(j)

a(j) = a(k)

a(k) = linshi

jiaohuan = jiaohuan + 1

Text1(k - 1).Text = a(k)

Text1(j - 1).Text = a(j)

Text1(k - 1).BackColor = yanse '''''''''''''已经排序的颜色

Text1(j - 1).BackColor = yanse

End If

If a(k) < a(j) And Option2.Value Then

Text1(k - 1).BackColor = yanse1

Text1(j - 1).BackColor = yanse1

linshi = a(j)

a(j) = a(k)

a(k) = linshi

jiaohuan = jiaohuan + 1

DoEvents

Sleep (1000)

Text1(k - 1).Text = a(k)

Text1(j - 1).Text = a(j)

Text1(k - 1).BackColor = yanse

Text1(j - 1).BackColor = yanse

End If

If k = 9 Then

j = 0

k = 0

Timer1.Enabled = False

MsgBox Frame1.Caption & "排序结束" & "共用" & jiaohuan & "次", vbOKOnly + vbInformation, "系统提示"

4、问题:快捷菜单无法弹出。

解决：设计到了窗体编辑器，及弹出菜单所使用的方法PopupMenu。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

If Button = 2 Then Form1.PopupMenu youjian '''右键弹出菜单

End Sub

五、收获体会

这是我进入大学以来第一次学习vb，第一次知道了什么是vb，第一次了解到了原来平时我们看到计算机上那些普普通通的小程序需要那么多的代码才能够运行起来，终于发现这其中的奥秘。

学习vb首先就是要对所有常用函数了如指掌，这样在编程的时候才能够很快想到并用对地方，做这个程序设计的一开始，简直是一头雾水，无从下手，后来经过翻书，查找资料，网上资料，等等...终于对所要编的程序有了一定的认识，在同学互相讨论的基础上，终于编出排序演示，但是还存在不足，在动态演示的时候，缺了正在交换文本框的动态形式，但是基本能运行起来，大致的符合了设计任务。

程序中所涉及的内容很多，有比较法排序，插入法排序，冒泡发

排序，选择法排序，集合了所有的排序，以前对排序的编程就有点不理解，因为它很绕，真正理解它真的有点困难。还有一些我们vb书上第七章的一些窗体编辑器，快捷菜单的做法，定时器的编码，这些更加巩固了我对这些知识的理解，通过这几天对vb的深入研究，发现其实慢慢的对vb产生了兴趣，从以前的没兴趣到产生兴趣，这是一种好的现象，兴趣是最好的老师，相信我会越学越好的。

六、源代码

模块：

Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByV al dwMilliseconds As Long)

颜色设置：

Private Sub Combo1_Click()

Dim i As Integer

Select Case Combo1.ListIndex

Case 0

For i = 0 T o 9

T ext1(i).BackColor = vbBlue

Next i

Case 1

For i = 0 T o 9

T ext1(i).BackColor = vbGreen

Next i

Case 2

For i = 0 T o 9

T ext1(i).BackColor = vbRed

Next i

Case 3

For i = 0 T o 9

T ext1(i).BackColor = vbY ellow

Next i

End Select

End Sub

Private Sub Combo2_Click()

Dim i As Integer

Select Case Combo2.ListIndex Case 0

For i = 0 T o 9

T ext1(i).ForeColor = vbBlue

Next i

Case 1

For i = 0 T o 9

T ext1(i).ForeColor = vbGreen Next i

Case 2

For i = 0 T o 9

T ext1(i).ForeColor = vbRed Next i

Case 3

For i = 0 T o 9

T ext1(i).ForeColor = vbY ellow Next i

End Select

End Sub

Private Sub Combo3_Click() Select Case Combo3.ListIndex

Case 0

yanse = vbBlue

Case 1

yanse = vbGreen

Case 2

yanse = vbRed

Case 3

yanse = vbY ellow

End Select

End Sub

Private Sub Combo4_Click() Select Case Combo4.ListIndex

Case 0

yanse1 = vbBlue

Case 1

yanse1 = vbGreen

Case 2

yanse1 = vbRed

Case 3

yanse1 = vbY ellow

End Select

End Sub

退出按钮：

Private Sub Command1_Click()

If MsgBox("您真的要退出吗？", 4 + 32, "请您确认！") = vbNo Then Exit Sub

End If

Unload Form1

Unload Form2

End Sub

产生随机数:

Private Sub Command2_Click()

Dim i As Integer

Randomize T ime

For i = 1 T o 10

a(i) = Rnd * 200

T ext1(i - 1).T ext = a(i)

Next i

Command3.Enabled = T rue

Command4.Enabled = T rue

End Sub

开始排序直接给出排序结果:

Private Sub Command3_Click()

Dim i As Integer, k As Single

If Form1.Optzhijie.V alue Then

If Form2.Option1.V alue Then

Call bijiao(a)

For i = 1 T o 10

T ext1(i - 1).T ext = a(i)

Next

ElseIf Form2.Option2.V alue Then

Call xuanze(a)

For i = 1 T o 10

T ext1(i - 1).T ext = a(i)

Next

ElseIf Form2.Option3.V alue Then

Call charu(a)

For i = 1 T o 10

T ext1(i - 1).T ext = a(i)

Next

ElseIf Form2.Option4.V alue Then

Call maopao(a)

For i = 1 T o 10

T ext1(i - 1).T ext = a(i)

Next

End If

If a(1) > a(10) Then

T ext2(0).T ext = a(1)

T ext2(1).T ext = a(10)

Else

T ext2(0).T ext = a(10)

T ext2(1).T ext = a(1)

End If

For i = 1 T o 10

k = a(i) + k

Next i

T ext2(2).T ext = k / 10

End If

----------------------------------------------------------------------------------------- 动态演示结果：

If Form1.Optdongtai.V alue Then

If Form2.Option1.V alue Then

T imer1.Enabled = T rue

ElseIf Form2.Option2.V alue Then

T imer1.Enabled = T rue

ElseIf Form2.Option3.V alue Then

T imer1.Enabled = T rue

ElseIf Form2.Option4.V alue Then

T imer1.Enabled = T rue

End If

End If

End Sub

暂停运行命令：

Private Sub Command4_Click()

Dim i%, n%, s%

f = False

T imer1.Enabled = False

T imer1.Interval = 1000

For i = 1 T o n

s = n + 1

Next i

Sleep (n)

End Sub

默认：

Private Sub Command5_Click()

Dim i%

Combo1.T ext = "蓝色"

Combo2.T ext = "绿色"

Combo3.T ext = "红色"

Combo4.T ext = "黄色"

T ext1(i).BackColor = vbBlue

T ext1(i).ForeColor = vbGreen

yanse = vbRed

yanse1 = vbY ellow

Next

End Sub

窗体启动的时候加载的程序：

Private Sub Form_Load()

Command3.Enabled = False

Command4.Enabled = False

Frame4.V isible = False

Form2.Option1.V alue = T rue

End Sub

快捷菜单：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu youjian

End Sub

速度

Private Sub HScroll1_Change()

T imer1.Interval = HScroll1.Smallchange

End Sub

菜单退出的按钮：

Private Sub mnu_end_Click()

Unload Form1

Unload Form2

End Sub

显示设置按钮：

Private Sub mnu_set_Click()

If mnu_set.Checked = T rue Then

Form1.Height = Form1.Height + 1650

Frame4.V isible = T rue

mnu_set.Checked = False

ElseIf mnu_set.Checked = False Then

Form1.Height = Form1.Height - 1650

mnu_set.Checked = T rue

End If

End Sub

写入数据：

Private Sub shujuxie_Click()

Open App.Path + "\data.txt" For Output As #1

For i = 1 T o 10

Write #1, a(i);

Next i

Close #1

End Sub

显示窗体2：

Private Sub suanfa_Click()

Form2.Show

End Sub

时间控件用来动态演示：

Private Sub T imer1_T imer()

Static k As Integer, j As Integer, linshi As Integer, jiaohuan As Integer, i As Integer Dim X As Integer, m As Single

f = T rue

If f = False Then

Exit Sub

End If

If Form2.Option1.V alue Then 比较法排序

If k = 0 Then

k = 1

j = 2

End If

If j = 11 Then

k = k + 1

j = k + 1

End If

If a(k) > a(j) And Option1.V alue Then 交换元素颜色

T ext1(k - 1).BackColor = yanse1

T ext1(j - 1).BackColor = yanse1

DoEvents

Call Sleep(1000)

linshi = a(j)

a(j) = a(k)

a(k) = linshi

jiaohuan = jiaohuan + 1

T ext1(k - 1).T ext = a(k)

T ext1(j - 1).T ext = a(j)

T ext1(k - 1).BackColor = yanse 已经排序的元素颜色

T ext1(j - 1).BackColor = yanse

End If

If a(k) < a(j) And Option2.V alue Then

T ext1(k - 1).BackColor = yanse1

linshi = a(j)

a(j) = a(k)

a(k) = linshi

jiaohuan = jiaohuan + 1

DoEvents

Sleep (1000)

T ext1(k - 1).T ext = a(k)

T ext1(j - 1).T ext = a(j)

T ext1(k - 1).BackColor = yanse

T ext1(j - 1).BackColor = yanse

End If

If k = 9 Then

j = 0

k = 0

T imer1.Enabled = False

MsgBox Frame1.Caption & "排序结束" & "交换次数为：" & jiaohuan & "次", vbOKOnly + vbInformation, "系统提示"

jiaohuan = 0

If a(1) > a(10) Then

T ext2(0).T ext = a(1)

T ext2(1).T ext = a(10)

Else

T ext2(0).T ext = a(10)

T ext2(1).T ext = a(1)

End If

For X = 1 T o 10

m = a(X) + m

Next X

T ext2(2).T ext = m / 10

End If

j = j + 1 选择法排序

ElseIf Form2.Option2.V alue Then

k = k + 1

linshi = a(k + 1)

i = k + 1

If Option1.V alue Then

For j = k + 1 T o UBound(a)

If linshi > a(j) Then

linshi = a(j)

i = j

End If

Next j

If a(k) > a(i) Then

T ext1(i - 1).BackColor = yanse1

DoEvents

Sleep (1000)

linshi = a(i)

a(i) = a(k)

a(k) = linshi

T ext1(k - 1).T ext = a(k)

T ext1(i - 1).T ext = a(i)

jiaohuan = jiaohuan + 1

T ext1(k - 1).BackColor = yanse

T ext1(i - 1).BackColor = yanse

End If

End If

If Option2.V alue Then

For j = k + 1 T o UBound(a)

If linshi < a(j) Then

linshi = a(j)

i = j

End If

Next j

If a(k) < a(i) And Option2.V alue Then

T ext1(k - 1).BackColor = yanse1

T ext1(i - 1).BackColor = yanse1

DoEvents

Sleep (1000)

linshi = a(i)

a(i) = a(k)

a(k) = linshi

T ext1(k - 1).T ext = a(k)

T ext1(i - 1).T ext = a(i)

jiaohuan = jiaohuan + 1

T ext1(k - 1).BackColor = yanse

T ext1(i - 1).BackColor = yanse

End If

End If

If k = 9 Then

i = 0

j = 0

k = 0

T imer1.Enabled = False

MsgBox Frame1.Caption & "排序结束" & "交换次数为：" & jiaohuan & "次", vbOKOnly + vbInformation, "系统提示"

jiaohuan = 0

If a(1) > a(10) Then

T ext2(0).T ext = a(1)

T ext2(1).T ext = a(10)

Else

T ext2(0).T ext = a(10)

T ext2(1).T ext = a(1)

End If

For X = 1 T o 10

m = a(X) + m

Next X

T ext2(2).T ext = m / 10

End If

ElseIf Form2.Option3.V alue Then 插入法排序 i = i + 1

For j = 1 T o i

If a(i) < a(j) And Option1.V alue Then

T ext1(i - 1).BackColor = yanse1

T ext1(j - 1).BackColor = yanse1

DoEvents

Sleep (1000)

linshi = a(i)

For k = i T o j + 1 Step -1

a(k) = a(k - 1)

Next k

a(j) = linshi

jiaohuan = jiaohuan + 1

For X = j T o i

T ext1(X - 1).T ext = a(X)

Next X

T ext1(i - 1).BackColor = yanse

T ext1(j - 1).BackColor = yanse

End If

If a(i) > a(j) And Option2.V alue Then

T ext1(i - 1).BackColor = yanse1

T ext1(j - 1).BackColor = yanse1

DoEvents

Sleep (1000)

linshi = a(i)

For k = i T o j + 1 Step -1

a(k) = a(k - 1)

Next k

a(j) = linshi

T ext1(i - 1).BackColor = yanse

T ext1(j - 1).BackColor = yanse

jiaohuan = jiaohuan + 1

For X = j T o i

T ext1(X - 1).T ext = a(X)

Next X

End If

Next j

If i = 10 Then

i = 0

j = 0

k = 0

T imer1.Enabled = False

MsgBox Frame1.Caption & "排序结束" & "交换次数为：" & jiaohuan & "次", vbOKOnly + vbInformation, "系统提示"

jiaohuan = 0

If a(1) > a(10) Then

T ext2(0).T ext = a(1)

T ext2(1).T ext = a(10)

Else

T ext2(0).T ext = a(10)

T ext2(1).T ext = a(1)

End If

For X = 1 T o 10

m = a(X) + m

Next X

T ext2(2).T ext = m / 10

End If

ElseIf Form2.Option4.V alue Then 冒泡法排序

j = j + 1

If j = 10 - k Then

k = k + 1

j = 1

End If

If a(j) > a(j + 1) And Option1.V alue Then

T ext1(j - 1).BackColor = yanse1

T ext1(j).BackColor = yanse1

DoEvents

Sleep (1000)

linshi = a(j + 1)

a(j + 1) = a(j)

a(j) = linshi

jiaohuan = jiaohuan + 1

T ext1(j - 1).T ext = a(j)

T ext1(j).T ext = a(j + 1)

T ext1(j - 1).BackColor = yanse

T ext1(j).BackColor = yanse

End If

If a(j) < a(j + 1) And Option2.V alue Then

T ext1(j - 1).BackColor = yanse1

T ext1(j).BackColor = yanse1

DoEvents

Sleep (1000)

linshi = a(j + 1)

a(j + 1) = a(j)

a(j) = linshi

jiaohuan = jiaohuan + 1

T ext1(j - 1).T ext = a(j)

T ext1(j).T ext = a(j + 1)

T ext1(j - 1).BackColor = yanse

T ext1(j).BackColor = yanse

End If

If k = 9 Then

k = 0

j = 0

T imer1.Enabled = False

MsgBox Frame1.Caption & "排序结束" & "交换次序为：" & jiaohuan & "次", vbOKOnly + vbInformation, "系统提示"

jiaohuan = 0

If a(1) > a(10) Then

T ext2(0).T ext = a(1)

T ext2(1).T ext = a(10)

Else

T ext2(0).T ext = a(10)

T ext2(1).T ext = a(1)

End If

For X = 1 T o 10

m = a(X) + m

Next X

T ext2(2).T ext = m / 10

End If

End If

End Sub

Private Sub wenjiandu_Click() 从文件中读取数据

Dim i As Integer

Open App.Path + "\data.txt" For Input As #1

For i = 1 T o 10

Input #1, a(i)

T ext1(i - 1).T ext = a(i)

Next i

Command3.Enabled = T rue

Command4.Enabled = T rue

End Sub

比较法排序

Private Function bijiao(paixu() As Integer) As Integer Dim k As Integer, j As Integer, linshi As Integer jiaohuan = 0

For k = 1 T o UBound(paixu) - 1

If Option1.V alue Then

For j = k T o UBound(paixu)

If paixu(k) > paixu(j) Then

linshi = paixu(j)

paixu(j) = paixu(k)

paixu(k) = linshi

End If

Next j

ElseIf Option2.V alue Then

For j = k T o UBound(paixu)

If paixu(k) < paixu(j) Then

linshi = paixu(j)

paixu(j) = paixu(k)

paixu(k) = linshi

End If

Next j

End If

Next k

End Function

比较法排序

Private Function maopao(paixu() As Integer) As Integer Dim k As Integer, j As Integer, linshi As Integer

For k = 1 T o UBound(paixu) - 1

If Option1.V alue Then

For j = 1 T o UBound(paixu) - k

If paixu(j) > paixu(j + 1) Then

linshi = paixu(j + 1)

paixu(j + 1) = paixu(j)

paixu(j) = linshi

End If

Next j

ElseIf Option2.V alue Then

心得体会数据库VB课程设计心得体会

三一文库（https://www.wendangku.net/doc/0d10659221.html,）/心得体会范文/心得体会数据库VB课程设计心得体会 数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇*，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹 并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下（老大劝我学https://www.wendangku.net/doc/0d10659221.html,），我接触到microsoft公司的.net产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.net是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如

使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sqlserverxx，以前学asp的时候用的是access，那个时候只是照着人家做，理论是什么也不是很清楚。 通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，justdoit！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseuml建模工具。在此之前，我脑袋里面没有软件建模的思想，什么uml建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。

VB图书管理系统 课程设计报告

VB语言程序设计课程设计报告 系 (部) 专业班级 学生姓名 学号/序号 指导教师 完成时间

图书管理系统 一、功能描述 使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等），建立了这个简易的图书管理系统，方便图书管理人员对图书的管理。用户可以通过此系统的添加、删除，还回，借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。 二、概要设计 1、系统功能模块框图设计 首先程序运行，出现一个MDI主窗体，里面分别有登录，书籍信息管理系统，退出三个菜单选项，登录前，管理按钮不可用，当正确输入用户名以及密码以后，点管理按钮，图书管理窗体显示，用户可对图书信息进行管理。 2、数据库设计 创建一个数据库为mydb.mdb，该数据库共包含3张表，分别为“书籍信息表”、“图书归还表”和“图书借出表”，表结构如下：

书籍信息表：图书编号、图书名、作者、出版社、数量、出版日期、价格 图1. 书籍信息表 图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期； 图2. 图书归还表 图书借出表：图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。 图3. 图书借出表

三、详细设计 1、MDI主界面 用户登录模块中登录与取消两按钮，单击登录会进入系统进行下一步的操作，用户名文本框与数据库相连接，当在用户名文本框输入用户名后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该用户名，且该用户名的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该用户名或密码与用户名不相匹配，则会提示“密码错误”，用户名文本框会得到焦点，让重新输入。 （1）窗体截图（如图5.1） 图1 MDI主界面

VB课程设计 打地鼠论文

武汉工业学院 VB程序设计 课程设计报告 打地鼠—VB课程设计 学号 姓名： 学院： 专业班级： 指导教师： 日期：

目录 第一章课程设计概述 (3) 第一节课程设计名称 (3) 第二节任务要求 (3) 第三节开发环境 (3) 第二章总体设计 ................. 错误！未定义书签。 第一节系统功能需求分析 (4) 第二节系统总体设计框架....... 错误！未定义书签。第三章界面设计 . (5) 第四章源程序代码及解释 (6) 第五章程序运行效果及出错处理 (13) 第六章课程设计体会 (17) 参考文献 (18)

第1章课程设计概述 第一节课程设计名称 课程设计目的：本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。 程序名称：打地鼠游戏 游戏简介：打地鼠是一种非常有趣的益智游戏，老少皆宜。游戏进行时，地鼠不断从洞中探出头再缩回去，当地鼠头在洞外时，可以通过按键的方式打击地鼠，时间到时游戏结束，打中地鼠次数越多得分越高，击错、逃跑数越多得分越低。人们在游戏的同时还能锻炼自己的反映能力，不同的难度选项适用于不同的打地鼠选手。在英雄榜中保留前五名最高得分信息。 第二节任务要求 1.课程设计的预备知识：熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。 2.按照课程设计指导书提供的课题，每人设计一个完整的应用程序，要求根据根据规定设计程序的具体要求，按照应用程序的设计步骤，和VB的基本能知识完成应用程序的分析和实现。 第三节开发环境 硬件要求能运行Windows 9.X操作系统的微机系统。 软件：Microsoft Visual Basic 6.0 VB是由美国微软公司于1991年开发出来的一种可视化的，面向不同对象和驱动环境的各类应用程序。它简单易学，效率高，功能大。在VB环境下，利用事件驱动的编程程序机制，可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL），对象的链接与嵌入（OLE），开发式数据连接（ODBC）等技术，可以高效，快速的开发Windows 环境下功能强大的，图形界面丰富的应用软件。

Vb课程设计-学生成绩处理

学生成绩处理设计报告 一、设计思路 1.要达到的目的 学习VB程序设计的方法，充分体会VB在程序设计方面的强大功能和特点，培养运用VB解决实际问题的能力。通过本次课程设计，使学生进一步巩固课堂上学到的知识，能利用VB中的基本控件和数组编写一个小的应用软件—学生成绩处理。 2.关键问题的解决 ①设计程序界面 ②选取ProgressBar 控件 ③添加TXT文件 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Dim data(100, 3) As String Dim num As Integer Private Sub Command1_Click(Index As Integer) Close #1 Select Case Index Case 0 Open "d:\成绩.txt" For Append As #1 Dim flag As Boolean For i = 0 To 3 If Text1(i) = "" Then MsgBox "请确认学号,姓名,分数都已输入", vbOKOnly, "提示" flag = True

Next If Not flag Then Write #1, Text1(0).Text; Text1(1).Text; Val(Text1(2).Text); Val(Text1(3).Text) MsgBox "添加成功" End If Case 1 Picture1.Cls Dim StrLine As String, a() As String Dim x As Integer, b As Integer Open "D:\成绩.txt" For Input As #1 i = 0 Do While Not EOF(1) Line Input #1, StrLine If StrLine <> "" Then a() = Split(StrLine, ",") For j = 0 To 3 data(i, j) = a(j) Next End If i = i + 1 Loop num = i For x = 0 To num For j = 0 To 3 Picture1.Print data(x, j) + " "; Next Picture1.Print Next Case 2 Picture2.Cls Open "d:\成绩.txt" For Input As #1 While Not EOF(1) Line Input #1, StrLine ss = ss + StrLine + vbCrLf Wend Picture2.Print ss End Select Close #1 End Sub Private Sub Form_Load() Open "D:\成绩.txt" For Append As #1

排序演示 vb课程设计论文

成绩南京工程学院课程设计报告（论文） 题目排序演示 课程名称程序设计基础---VB 院（系、部、中心）先进制造技术工程中心 专业机械制造及其自动化 班级D机加工091 学生姓名钱丽 学号231090406 设计地点图书馆A307 指导教师黄陈蓉 设计起止时间： 2011 年 1月4 日至 2011 年 1月 6日

目录 一、设计任务 (3) 二、总体设计思路 (4) 三、画出程序总体框图 (4) 四、系统的调试 (6) 五、收获体会 (8) 六、源代码 (9) 七、主要参考资料 (23)

一、设计任务 （1）程序启动后，显示主界面。首先单击“产生10个随机数”按钮来产生10个随机数，并显示在10个文本框中；然后选择一种“演示模式”和“排序方式”，其中演示模式可以直接给出排序结果，也可以通过动画动态演示整个排序过程，排序方式可以按从小到大顺序，也可以按从大到小顺序排序。 （2）在主窗口的空白区单击鼠标右键，弹出快捷菜单。从中选择“排序算法”命令，打开对话框，从中选择一种排序方式，单击不同排序方式时，“算法描述”中简要介绍了这种算法。单击“确定”按钮返回到主窗口，主窗口中最上方框架控件的标题文字显示当前所选的排序算法。 （3）设置完毕，单击“开始排序”按钮（此按钮在生成数据之前是不可用的），启动排序过程。若选择了动画方式，红色背景的文本框表示当前正在比较的元素，黄色的代表已排序的元素，2个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条的位置来控制演示过程的速度。排序结束后程序以消息框的形式报告数据交换的次数。可以使用快捷菜单中的“将数据写入文件”命令将排序后的数据保存到“data.txt”中覆盖原有内容。 （4）选择窗口主菜单中的“颜色设置”命令，主窗口扩大，底部显示“颜色设置”框架，可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择此命令，窗口恢复到原来的大小。（5）选择主菜单中的“退出”命令可退出本程序，程序显示消息对话

VB课设报告

沈阳航空航天大学 课程设计任务书 学院：机电工程学院专业：机械设计制造及其自动化班级：94060106 学号：2009040601204 题目：简单的汽车站售票系统 一、课程设计时间 2011年3月14日~20日（第二周），共计一周。 二、课程设计内容 假设每天“沈阳→植物园”有4个班次的汽车，具体的数据如下： 班次发车时间载客量已售票数 1 06:40 50 0 2 09:30 40 0 3 13:00 40 0 4 16:00 40 0 数据保存在文本文件或Access数据库中，请你为售票员开发一个程序，实现每天的“沈阳→植物园”的售票、退票等业务。要求：售票时按旅客要求选择班次，如果某个班次已过了发车时间，则该班次今天不再售票，如果某个班次的票已售完，则也不能再售票。 用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“退出”4项。 三、课程设计要求 程序质量： ?贯彻事件驱动的程序设计思想。 ?用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 ?代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： ?课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语

目录 需求分析 (4) 设计分析 (4) 技术要点 (6) 主要界面截图 (7) 总结 (9) 完整的源程序 (10) 参考文献 (15)

需求分析 介于乘客买票十分麻烦，需要开发一套自动的售票系统，实现乘客自主的买票，退票，查询，为乘客创造方便。 设计分析 （1）概述： 本次设计涉及到数据库系统，SQL查询语言，ADO数据控件技术，实现了用户买票，退票，售票查询等功能，并且在售票界面，根据时间判断车次是否已经发车，且在查询系统中可以显示售票情况。 （2）总体设计： 汽车站售票系统应该有一个主界面，在主界面下，应该有售票界面，退票界面和查询界面。 （3）详细设计：

vb课程设计心得体会范文

vb课程设计心得体会范文 vb课程设计心得体会范文 vb课程设计心得体会范文1 经过近一个月的设计与制作，我们组的《20xx世界杯观战指南》终于完成了，现将过程中遇到的问题、获得的体会记录如下。 这次数据库课程设计中我主要负责用户登录、注册及数据库维护方面的设计。 1.Delphi是一款功能很强大的软件，其控件之多超出了我的想象，因此在运用时要借助很多资料。要学会查找和利用现有资料来解决问题 2.在设计中用到了很多SQL语句，因此对SQL及程序语句地掌握也是必不可少的。 3.后期的软件制作都是以前期的工作为基础的，因此在前期的需求分析及数据库设计阶段要认真、细致。 4.我们是三个人的小组，在设计过程要互相协调，合作。这样才能充分发挥每个人的作用。 vb课程设计心得体会范文2 首先了解到VB的特点，VB是在原来的Basic语言基础上发展而来的。Visual指的是可视的图形用户界面开发方法。不需编写大量代码去描述界面元素的外观和位置，只要把预先建立的对象添加到屏

幕上的某点即可。如果使用者诸多PAINT之类的绘图程序，则实际上已经掌握了创建用户界面的必要技巧。 BASIC指的是B语言，一种在计算机技术发展历史上应用得最为广泛的语言之一。VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句，函数及关键词，其中很多和WINDOWS GUI有直接关系，VB不仅是可视语言，而且是面向对象的编程语言。其特点是概念多，实践性强，涉及面广。 之后，了解到一些基本的概念，含义。例如类，就是创建对象实例的模板包含了创建的属性描述和行为特征的定义。而此中的对象又是类的一个实例，继承了类的属性，方法，而VB中长用的对象有窗体，控件等。但我们在建立之前必须清楚对象的三要素:属性，方法和事件。而建立程序的步骤大致可分为: (1)启动程序，装载和显示窗体。 (2)窗体等待事件的发生。 (3)事件发生时，执行对应的事件发生过程。 (4)再重复(2)(3)的过程(5)最后直接遇到“END”结束语句结束程序的运行或按“结束”强行停止程序的运行。 再用VB创建一个应用程序，第一步骤是创建窗体，它是用户与应用程序进行交互操作的可视部分，窗体是创建界面的基本构造模块，也是创建应用程序所使用的对象。而后必要设置窗体的属性，从而构出窗体的外观，设置好的窗体，窗体就作为对象，能够对其定义的事件作出响应，这也是所谓的窗体事件，而窗体事件又包括窗体本

VB程序设计课程设计报告完整版

V B程序设计课程设计 报告 HEN system office room 【HEN16H-HENS2AHENS8Q8-HENH1688】

《VB程序设计》 课程设计报告（2016 — 2017 学年第 1 学期） 题目：排序演示 学院：经济与管理学院 班级：物流管理1502 学号： 姓名： 指导教师：阮冰 时间：起 2017年1月3日止 1月6日

一、课程设计基本信息 课程代码：05190124 课程名称：计算机基础课程设计 课程英文名称: Computer-based Course Design 课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群 课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制 剂、物流管理 课程类型：必修课 先修课程：大学计算机基础通识选修课程、Visual Basic程序设计课程学分：1 总学时：16 二、课程设计目标 掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。通过综合设计要求达到下列基本技能： 1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。 2．通过对所选题目方案分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。 3．系统设计编程简练，可用，功能全面，并有一定的容错能力。用户界面良好，有较好的输出功能。在完成课题基本要求后，具有创新型设计，具有一定的实用价值。 4．根据个人的设计调试过程，撰写设计报告。 三、课程设计内容 利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。在强化巩固已有编程知识基础之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。 四、课程设计要求 1.要求每个同学都要认真对待，积极参与。 2.课程设计结束时，提交完成的所有源程序、相关文件和可执行文件。同 时填写并完成《课程设计报告册》。 3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计 中完全未参与的将作不及格处理。 五、考核方式

VB课程设计总结

通过几周对ＶＢ的学习，使我增加了对ＶＢ课程的了解． 首先了解到ＶＢ的特点，ＶＢ是在原来的Ｂasic语言基础上发展而来的．Ｖisual指的是可视的图形用户界面开发方法.不需编写大量代码去描述界面元素的外观和位置,只要把预先建立的对象添加到屏幕上的某点即可.如果使用者诸多PAINT之类的绘图程序,则实际上已经掌握了创建用户界面的必要技巧.BASIC指的是B语言,一种在计算机技术发展历史上应用得最为广泛的语言之一.VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句,函数及关键词,其中很多和WINDOWS GUI有直接关系,VB不仅是可视语言,而且是面向对象的编程语言.其特点是概念多,实践性强,涉及面广. 之后,了解到一些基本的概念,含义.例如类,就是创建对象实例的模板包含了创建的属性描述和行为特征的定义.而此中的对象又是类的一个实例,继承了类的属性,方法,而VB中长用的对象有窗体,控件等.但我们在建立之前必须清楚对象的三要素:属性,方法和事件.而建立程序的步骤大致可分为:(1)启动程序,装载和显示窗体.(2)窗体等待事件的发生.(3)事件发生时,执行对应的事件发生过程.(4)再重复(2)(3)的过程(5)最后直接遇到"END"结束语句结束程序的运行或按"结束"强行停止程序的运行. 再用VB创建一个应用程序,第一步骤是创建窗体,它是用户与应用程序进行交互操作的可视部分,窗体是创建界面的基本构造模块,也是创建应用程序所使用的对象.而后必要设置窗体的属性,从而构出窗体的外观,设置好的窗体,窗体就作为对象,能够对其定义的事件作出响应,这也是所谓的窗体事件,而窗体事件又包括窗体本身事件,键盘事件和鼠标事件.在了解窗体基本知识就还应了解VB的语言基础,其中包括了代码模块(窗体模块,标准模块,类模块),注释,分行和续行,数据类节(字节型,逻辑型,数值型,日期型),变量与常数,运算符与表达式,数组,控制结构,子过程和函数.同时,为了编程,我们还应培养良好的编程习惯,首先是对象,变量及过程的命名约定,然结构化编码约定. 在VB中创建应用程序之际也就是和对象打交道之时,对象是代码和数据的组合,可以作为一个单位来处理,对象可以是应用程序的一部分,比如可以是控件,窗体,或数据访问对象.控件也是对象中的一种,主要用来获取用户的输入信息和显示输出信息.应用程序中可用的控件包括文本框,命令按扭和列表框.而通过另外一些控件可以访问其他应用程序并处理数据. VB程序设计同时可设计出一个更好的菜单系统,这样就可以使用户了解到更大量有关应用程序设计和结构的信息,精心规划菜单与工具栏有助于提高应用程序的可用性.同时在基于WINDOWS的应用程序中,对话框被用来提示应用程序继续运行所需的数据或者用户显示信息.对话框是一种特殊类型的窗体对象,在VB中按对话框的创建有三种类型的对话框,他们是

VB课程设计(论文)-学生成绩管理系统(赵成军)

中央广播电视大学 课程名称： VB课程设计 学生成绩管理系统 学习中心（点）：旬阳实训中心 专业：计算机 层次：本科 姓名：赵成军

前言 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。 本文介绍了在VISUAL BASIC6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析学生成绩管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生成绩管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统面友好，操作简单，比较实用。

目录 前言 (2) 第一章学生成绩管理系统 (5) 1．1需求分析 (6) 1．1．1系统概述 (8) 1. 1. 2功能需求描述 (10) 第二章总体设计及流程图 (14) 2.1开发与设计的总体思想 (15) 2.2系统模块结构图 (16) 2.2.1模块设计 (16) 2.2.2界面设计 (17) 2.2.3数据库设计……………………………………………………………… 107 第三章详细设计 (12) 3.1学生管理模块 (12) 3.2教师管理模块 (13) 3.3课程管理模块 (23) 3.4成绩管理模块 (23) 参考文献 (27) 致谢 (27)

前言 几年的学习即将结束，经过几个月的努力，我所设计的“学生成绩管理系统”也已完成。以往学的都是理论性很强的知识，再加上实践机会不多，更增强了我对计算机科学的兴趣。在这段时间里，我增强了自己动手的能力，更重要的是似乎把握住了计算机的一些实质性的东西，终于能够用我所学的知识解决一些实际应用的问题了。但我知道，数据库技术只是计算机科学的一个小小分支，计算机还有更广阔的领域有待我们去探索。 这次毕业设计是用Visul Basic语言设计的“学生成绩管理系统”，?这就要求对Visul Basic语言及数据库技术能够真正了解和熟练的掌握，并且能够灵活的运用。 当今的时代是信息的时代，数据库技术是数据管理的最新方法，也是信息管理中一项非常重要的新技术，数据库管理是帮助人们处理大量信息，实现科学化和现代化的强有力工具，数据库管理子系统已发展成为通用的系统软件。由于数据库具有数据结构化、最低冗余度、较高的程序独立性、易于扩充、易于编制应用程序等优点，因而是近年来发展非常迅猛的计算机软件。数据库技术是数据信息管理技术的最新成果，被广泛应用于国民经济、文化教育、军事情报、科学计算、人工智能和计算机辅助设计领域，为计算机的应用开辟了广阔的天地。

VB课程设计报告--拼图游戏

VB课程设计报告 —拼图游戏 知识点：控件数组，公共对话框控件，PictureClip控件，多模块程序设计，图片的应用。 1.题目介绍 “拼图”是一种老少皆宜、容易上手的益智类小游戏，本题目要求编制一个拼图游戏程序。使用方法如下： （1）指定一幅图片，将其分割成m × n 个小图块并且打乱顺序后重新排列，其中有一块没有图块的“空挡”。 （2）使用鼠标单击与空挡相邻的图块使该图块与空挡的位置互换。（3）利用空挡位置移动各图块，最终恢复图片原貌，完成拼图。移动的步数越少则说明游戏者的水平越高。游戏过程中，可以打开参考图帮助找到正确的位置。 2.功能要求 （1）运行程序，在进入游戏之前显示一个背景图片。 （2）选择菜单中的“打开图片”命令，显示打开图片对话框，“打开图片”对话框使用公共对话框控件实现，并且只能指定以*.jpg *.bmp 为扩展名的文件。可以在查看菜单中选着“缩略图”进行预览。（3）选择图片之后，程序弹出“指定行列数”对话框，提示将图片分几行几列。使用微调按钮可以调节行数和列数，限制在3-7之间。（4）指定行列数之后，单击确定返回主窗口，程序自动按照指定的

行列数将图片进分割，然后随机排列。 （5）打乱的图片中一空挡位置，用户单击与空挡相邻的图块可以与其互换位置。点击了空挡或者与其不相邻的，程序不做任何操作。原图只少右下角的图块。 （6）图片复原时，程序显示消息框表示祝贺，同时显示游戏共使用的步数。 （7）游戏过程中，如果用户希望参考原图，可以单击“显示原图”按钮，打开“参考图”窗口。 （8）窗体中的背景颜色可以改变，从菜单中选择“背景颜色”命令，弹出“颜色”飞、公共对话框，用户从中选择一颜色即可。 （9）在游戏过程中或在完成后，均可退出程序或选择“打开图片”菜单命令重新开始一个新图片。 （10）“参考图”窗口应是一个非模态窗口，在关闭主窗口时同时卸载，而不是隐藏，否则该程序不会完全关闭，仍会驻留内存。 3.程序设计 概述：（1）PictureClip 控件来管理打开图片并将其分为指定的行列图块，其Picture、Rows、Cols等属性值应在程序中设定。 （2）使用image控件数组来显示图块，设计时只需在窗体上放置一个image控件并将其的index设为0 ，其他的用load语句加载。 （3）“打开图片”和“颜色”对话框commondialog控件实现。设置其filter属性使之只能打开bmp和jpg类型的图片文件。 （4）将image控件的stretch属性设计为TRUE。

-vb点菜系统-课程设计报告书

基于ＶＢ６.０饭店点菜系统设计 单位分院(系) 专业 学号 学生姓名 指导教师 完成日期 2011年 8 月 31日

摘要 进行点菜是饭店为顾客服务的重要环节之一。传统的点菜环节由于是手工操作，工作量大且容易出错。随着计算机和网络技术的迅速发展，越来越多的饭店、酒店都拥有自己的点菜系统，制作一个方便、快捷的点菜系统能使点菜环节显得更加美观且便于操作。 饭店点菜系统技术基础是VB6.0，它有许多优点，例如：“编写一次、随处运行”的特性、方便存取数据的数据库, 使用者只需在窗体上进行操作而不用关心程序代码等等。饭店点菜系统提供给顾客一个用来满足高可用性、高可靠性以及可扩展性的应用需求的软件，给饭店点菜提供了良好的机制、使饭店的工作流程更加顺利。 本文基于VB6.0，采用多窗体结构,设计并实现了顾客在饭店消费时的点菜、结账、抽奖、留言及工作人员管理等多项功能。 本文首先介绍了软件设计涉及的相关技术，围绕VB6.0的相关技术进行软件的解释。其次，介绍了饭店点菜系统的总体分析与设计，包括需求分析、功能模块分析和数据库设计。最后，对于主要功能进行了实现，并作了详细描述，主要采用图片与代码结合的方式详细地叙述了系统功能的实现。 关键词：文件、数据库、控件使用、图片载入

目录 1.选题的意义................................................... 2.系统功能分析。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 2.1系统概述。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 2.2系统的组成及各模块的功能 ........................................... 2 .3系统运行环境。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。3．系统设计 ................................................... 3.1总体结构设计....................................................... 3.2数据库设计......................................................... 4．系统实现 ................................................... 4.1点菜系统的设计与实现 ............................................... 4.2管理系统模块的设计与实现 ........................................... 5．总结....................................................... 5.1总结................................................................ 5.2致谢词 ............................................................. 5.3存在的主要问题...................................................... 参考文献......................................................

VB课程设计报告

课程设计(论文)任务书 机电学院专业班 一、课程设计(论文)题目：数学宝典 二、课程设计(论文)工作自20 年 1 月4日起至 20 年1 月 8 日止 三、课程设计(论文) 地点: 计算中心机房 四、课程设计(论文)内容要求： 1. 本课程设计的目的 （1）掌握VB语言的数据类型和各种语句、各种控件和函数的使用； （2）培养学生独立设计算法、编写调试程序的能力； （3）培养学生分析、解决问题的能力； （4）提高学生的科技论文写作能力。 2. 课程设计的任务及要求 设计一个提供计算多项数学问题的程序，至少包含3个数学问题（例如求1!+2!+3!+……+n!；用公式计算e的近似值；）用户可自行选择计算的问题。 1）基本要求： （1）贯彻事件驱动的程序设计思想； （2）要求界面设计简洁、美观、实用； （3）编程、调试、运行结果正确； （4）给程序做出必要的注释，以增强程序的可读性。 （5）.提供条件控制功能，如计算e的近似值时要将精度控制在10-9，（键盘提示出n 的取值范围）防止计算结果溢出； 2）创新要求： 在基本要求达到后，可进行创新设计，可以对界面或内容进行创新，界面友好，人性化，内容新颖。 3) 课程设计报告撰写及装订要求

课程设计报告的撰写要求语句通顺，格式规范，图文并茂。 报告按如下内容和顺序用A4纸进行打印并装订成册。 （1）封面 采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。 （2）设计任务书 （3）评阅书 （4）目录 （5）正文 （6）主要参考文献 4) 课程设计评分标准： （1）考勤与课程设计态度：20分； （2）完成设计过程：40分； （3）完成调试：20分； （4）论文质量：20分。 5）参考文献： （1）吴昊 .《VB程序设计教程》中国铁道出版社 （2）龚沛曾《VB程序设计简明教程》高等教育出版社 （3）王栋《VB程序设计实用教程》清华大学出版社 6）课程设计进度安排 内容天数地点 构思及收集资料1图书馆 编程与调试3实验室 撰写论文1图书馆、实验室 学生签名： 年月日

VB毕业课程设计实验报告

(此文档为word格式，下载后您可任意编辑修改！) 第1章 系统设计的目的与意义: 客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能. 无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义. 系统功能设计 系统设计包括数据库设计,主界面设计,菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示 图1.1 错误!

第2章 数据库设计 旅客信息表为旅客的个人信息加入住客房信息，数据结构如表 旅客信息表设置 表2.1 客房信息表为客房入住情况的基本信息，数据结构如表 客房信息表设置

表2.2 旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表 旅客退房记录表设置 表2.3 管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表第一章主界面的设计(余蕾) 主体内容 3．1 设计标准模块 本系统设计过程中，创建一个通用函数模块，用于实现数据库连接及按需要打开一个数据表。程序代码如下： Option Explicit Public Sub opentable(pado As Adodc, precordsource As String) With pado

有关VB课程设计心得体会范文

有关VB课程设计心得体会范文 VB课程是计算机科学与技术本科专业的专业骨干课本课程主要通过VB论述了面向对象程序设计和组建编程的机理以下是小编整理的有关课程设计心得体会范文欢迎阅读 经过近一个月的设计与制作我们组的《20xx世界杯观战指南》终于完成了现将过程中遇到的问题、获得的体会记录如下 这次数据库课程设计中我主要负责用户登录、注册及数据库维护方面的设计 1.Delphi是一款功能很强大的软件其控件之多超出了我的想象因此在运用时要借助很多资料要学会查找和利用现有资料来解决问 题 2.在设计中用到了很多SQL语句因此对SQL及程序语句地掌握也是必不可少的 3.后期的软件制作都是以前期的工作为基础的因此在前期的需求分析及数据库设计阶段要认真、细致 4.我们是三个人的小组在设计过程要互相协调合作这样才能充分发挥每个人的作用 数据库课程设计大赛的尘嚣渐渐远去怀着对这次大赛的些许不舍怀着对当初课程设计开始时候的豪情万丈的决心的留恋怀着通过 这次课程设计积累的信心与斗志我开始写这篇文章为自己的足迹留 下怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉

首先让我的记忆追溯到大二暑假在老大的指引下(老大劝我学.net)我接触到microsoft公司的.net产品那个时候我已经学过vc 和asp因为windows程序设计实验的课的关系接触过vb但是没有专门去学他因为习惯了c++里面的classint觉得vb的subvar看着就不是很顺心我是一个好奇心很强的人突然看到了一个号称.net是用于创建下一代应用程序的理想而又现实的开发工具而且主推c语言由于对c语言的一贯好感我几乎是立刻对他产生了兴趣我就开始了对c的学习任何语言都不是孤立存在的所以数据交互是很重要的暑假的时候我把我们这学期的课本数据库系统概论看了一遍()我记得以前用c语言编程的时候数据是在内存中申请空间譬如使用数组等等很耗费内存空间这个时候就是数据库站出来的时候啦于是我又装上了sqlserver2000以前学asp的时候用的是access那个时候只是照着人家做理论也不是很清楚 通过一个暑假的学习基本搞清楚了理论方面的东西具体用也不是很清楚但是这为这学期的课程设计打下了铺垫 来到学校后随着这学期的数据库课程大赛开始了我有一个看法就是我自己应该具备的能力不是我会多少而是我应该具备快速学会东西的能力遇到什么就学什么我们有时候很容易被一些专业名词说吓着包括什么建模软件工程数据分析数据挖掘等等我身边就有很多同学被这些纸老虎所唬住而没有勇气去接触他们总是说这个太难了之类的退堂鼓的话他们低估了自己的潜力同时也压抑住了他们自己的好奇心

VB学生信息管理系统课程设计报告

专业实践 课 程 设 计 报 告 班级：08计科一班 姓名：*** 学号：*************

学生信息管理系统 1.需求分析: 随着学校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。实现学生信息关系的系统化，规范化，自动化，用计算机对学生各种信息进行日常管理。 本系统主要包括学生信息查询和信息添加等功能，来初步实现学生信息的计算机化管理，更多相关功能有待以后慢慢完善。 2.系统功能： 本学生信息管理系统采用的语言是Visual Basic,用SQL Sever 2000数据库完成，有以下功能: (1)有较好的权限管理; (2) 原始数据修改简单方便,支持多条件修改; (3)方便的数据查询，支持多条件查询. 2.1采用Visual Basic有以下特点： 2.1.1可视化编程 Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 2.1.2结构化程序设计语言 Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。

VB课程设计 文本编辑器

VB课程设计报告 ——文本编辑器 学院名称： 学生姓名： 专业名称： 班级：

一、课程设计题目 用Visual Basic程序设计语言编写一个简易的文本编辑器 要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。 二、课程设计目的 虽然本学期的Visual Basic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB 应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。 三、课程设计说明 题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序 功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。 本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。四．源代码 Private Sub Command1_Click() Dim i As Integer If Text2.Text<>"123456"Then i=MsgBox("密码错误",5+vbExclamation,"警告") If i<>6Then End Else Text2.Text="" Text2.SetFocus End If End If Form1.Hide Form2.Show End Sub Private Sub Form_Load() Text1.Text="" Text1.MaxLength=6

vb课程设计论文-排序演示

Vb课程设计 题目排序演示 专业自动化 学生姓名 学号 指导教师

目录 一、设计任务 (3) 二、总体设计思路 (4) 三、画出程序总体框图 (4) 四、系统的调试 (6) 五、收获体会 (8) 六、源代码 (9) 七、主要参考资料 (23)

一、设计任务 （1）程序启动后，显示主界面。首先单击“产生10个随机数”按钮来产生10个随机数，并显示在10个文本框中；然后选择一种“演示模式”和“排序方式”，其中演示模式可以直接给出排序结果，也可以通过动画动态演示整个排序过程，排序方式可以按从小到大顺序，也可以按从大到小顺序排序。 （2）在主窗口的空白区单击鼠标右键，弹出快捷菜单。从中选择“排序算法”命令，打开对话框，从中选择一种排序方式，单击不同排序方式时，“算法描述”中简要介绍了这种算法。单击“确定”按钮返回到主窗口，主窗口中最上方框架控件的标题文字显示当前所选的排序算法。 （3）设置完毕，单击“开始排序”按钮（此按钮在生成数据之前是不可用的），启动排序过程。若选择了动画方式，红色背景的文本框表示当前正在比较的元素，黄色的代表已排序的元素，2个运动的文本框表示交换过程。在排序过程中可以调节水平滚动条的位置来控制演示过程的速度。排序结束后程序以消息框的形式报告数据交换的次数。可以使用快捷菜单中的“将数据写入文件”命令将排序后的数据保存到“data.txt”中覆盖原有内容。 （4）选择窗口主菜单中的“颜色设置”命令，主窗口扩大，底部显示“颜色设置”框架，可以对“文本背景色”、“文本前景色”、“已排序元素色”和“交换结点色”进行设置。再选择此命令，窗口恢复到原来的大小。