VB上机实习报告
院系：化学与环境工程学院
班级：应用化学11002班
姓名：
学号：序号：
指导老师：许老师崔老师
完成时间：2011年12月23日
目录
摘要 (3)
一、实习目的 (3)
二、实习内容 (3)
系统设计 (4)
一、程序设计思路 (4)
二、程序流图 (4)
三、程序说明 (5)
四、窗体界面设计 (5)
（1）窗体一的对象界面和菜单编辑 (5)
2）窗体二的对象界面和菜单编辑 (6)
3）窗体三的对象界面和菜单编辑 (6)
五、代码编写 (7)
六、调试程序并保存 (7)
原始数据及运行结果 (7)
1．原始数据 (7)
2．数据文件夹 (7)
3.运行的结果 (8)
问题及解决方案 (11)
程序缺陷 (12)
实习心得 (12)
附录 (12)
Form1 (12)
Form2: (17)
Form3： (23)
摘要
一、实习目的
这次上机实习的主要目的是使同学们将平日所学的理论知识用于实践，以便更牢固地掌握，同时让同学们熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧。
二、实习内容
（一）用记事本新建一个文本文件，将本班的M名学生在本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的分数定在96分以上，放在第一列；而将别人的大多数课程的分数都定在96分以下）输入到这个文件中,建议按如下形式存放(注：20≤M≤50、5≤N≤8，下文以M=4,N=3为例):
学号姓名英语VB 数学
1 我自已96 98 99
2 李某91 96 67
3 王某75 58 56
4 赵某58 67 77
（二）将本学期的N门课程及其学分(16学时为1个学分)输入到另一个数据文件（文件类型同上题）中，建议如下列形式存放：
编号课程名称课程学分
1 英语 5.0
2 C程序设计 3.5
3 数学 4.5
（三）请编写一个简单的学生成绩管理程序,要求完成以下功能:
1)根据以上两文件内容分别计算每个学生N门课的加权平均分（保留2位小数，4舍5入）,
按平均分排列名次，平均分相同则名次并列，如第1、2、2、4、5、5、7…名。用VB 创建一个数据文件，存放班级的成绩表，建议按以下形式存放。
学号姓名英语C程序设计数学平均成绩名次
1 张某76 89 89 80.5 2
2 李某91 96 67 78.2 3
3 王某75 58 56 88.8 1
4 赵某58 67 77 68.
5 4
2)分别统计全班每门课的平均分，并计算各分数段（60分以下；60～69；70～79；80～89；
90分以上）的学生人数。用VB创建一个新的数据文件，在该文件中存放数据的格式如下：
范围. 英语VB ... ...
>=90 3 5 ... ....
80-89 10 12 ... ...
... ... ... ... ... ... ... ... ... ...
3)打印每名学生成绩条（并将结果存放到用VB创建的一个新的数据文件中）。
4)打印所有存在不及格课程学生的名单（含学号、不及格课程名称、课程的学分及成绩）。
5)打印优等生名单（学号、Ｎ门课成绩、平均分名次）
优等生条件：
a)平均分≥ 90分
b)名次在本班位于前三名
c)平均分≥85分，并且有二门课的成绩都≥ 95分
选做内容：打印每门课成绩分布图
系统设计
一、程序设计思路
由于本程序需要用名为“成绩表”和“课程学分”的文本文档记录成绩数据和学分数据，通过设计程序载入相应数据并处理，使其显示学生的加权平均分和名次以及各门课程的平均分，平均分各分数段人数，每门课程各分数段人数，打印每位同学的成绩条，打印挂科学生名单及优等生名单，并显示各门课程的成绩分布。
（1）我根据本次实验设计要求：要同时表示学生的学号、姓名、成绩等一些信息，及课程、课程学分等一些信息，由于每项信息的意义不同，数据类型也不同，但还要同时作为一个整体来描叙和处理，因此需要通过用户自定义来解决。所以在编程之前我了新建一个标准模块用来定义自定义类型。
（2）我为了便于后面执行求加权平均分、排名等命令，我在Form1发生Load事件时应将学生信息和课程信息读取并放到两个数组中，由于这两个数组在该管理系统的全程序都要用到，因此应定义为全局类型。如是在标准模块中定义两个数组。
（3由于原始数据文件中相邻的两列之间空格的长短不一，因此在调用Split函数之前应窗体通用模块中自定义一个space1函数将原始数据文件中相邻的两列之间空格数变成由n个空格组成的字符串。
（4）由于本次实验的操作系统相对较复杂，我就编辑了多个菜单，以方便我操作。并且，本次实验需要建立多重窗体，在本次实验中，我共建了三个窗体。
（5）本次实验系统运行之前，我必须把记事本里的原始文件先读出来，才能进行后续操作。（6）将文件读入之后，我按要求相应编辑了各段代码。
（6）由于在打印成绩条、不及格名单、优等生等信息时，我应该用write语句分别将数据存入一个新的文件中。
二、程序流图
三、程序说明
本程序可以进行对文本文件的数据读取和处理，实现对学生的加权平均分和名次，每门课程平均分，平均分各分数段人数，每门课程分数段人数，打印每名学生的成绩条，打印挂科名单和优等生名单，并且可以打印每门课程各分数段的分布段。由于程序对读取的文件有要求，我在设计程序时加入了相应的识别和提示功能，使某些功能只能在满足了部分条件后才能使用，以避免错误发生。
四、窗体界面设计
1、加载窗体，在该管理系统中，我共用到了三个窗体。并在每个窗体上编辑相应的菜单。
（1）窗体一的对象界面和菜单编辑
打开所需设计的窗体，单击“工具”选“菜单编辑器”进行编辑。编辑完后，按“确定“即可。如：
（a）、Form1的菜单编辑
编好的窗体1的对象界面
根据所编的菜单写出相应的程序代码
2）窗体二的对象界面和菜单编辑（b）、Form2的菜单编辑
3）窗体三的对象界面和菜单编辑
五、代码编写
根据各窗体所编辑的菜单分别进行代码编写。
六、调试程序并保存
每编辑好一功能代码后应立即调试，若代码错误，程序不能运行，应及时修改，直至运行，然后保存。
保存时应以次保存标准模块、窗体、工程，并将其与原始数据保存在同一个文件夹中。原始数据及运行结果
1．原始数据
学生成绩信息
课程学分
2．数据文件夹
3.运行的结果
（a）原始数据读取
读原始学生成绩
读原始课程信息
（b）加权平均分
每个学生的加权平均分
（c）按平均分排名
学生名次
（d）平均分各分数段人数
平均分个分数段的人数
（e）每门课程平均分
每门课程平均分
（f）计算每门课程各分数段人数
英语各分数段人数
VB各分数段人数
数学各分数段人数
物理各分数段人数
化学各分数段人数
体育各分数段人数
(g)打印学生成绩信息
每名学生成绩条
打印挂科学生名单
打印优生名单
（h）学生成绩分布
英语成绩分布图
ＶＢ成绩分布图
数学成绩分布图
物理成绩分布图
化学成绩分布图
体育成绩分布图
问题及解决方案
我在写计算加权平均分时，出现了上述错误，我检查了很长时间都没发现错误，让同学帮我找也没发现，后来，我自己一句一句的看，然来，我把其中的一个Form1中的1写成l了。
我未将文件存在指定的文件夹。我将文件存储后，程序可以运行。
问题三：我在做作业时遇到最大的问题就是每次做作业未做完需要保存，我每次在存的时候，程序都能运行，可是，我下次打开时，却不能打开，那时我不知道怎么办，但幸亏我事先将代码保存好了，但窗体需要重新设计。后来，我问崔老师，他教我用文件夹保存，此后，我就再也没有遇到这样的问题。
程序缺陷
我觉得本程序太过冗长复杂，变量设置过多，使得程序的调试非常麻烦。其次，程序菜单的名称完全是由程序员按自己的喜好编排的，这样使得除程序员以外的人在看代码是不知道该段程序到底是哪个菜单的。再次，本程序的代码受输入的文件的局限性太大，不能做成通用程序。
实习心得
通过本次的上机实习，我逐渐熟悉了ＶＢ６．０程序开发环境，原本在课堂上不懂的程序代码，现在感觉并不是什么天书了，可以自己编辑一些简单的程序，感觉挺有趣的。其次，我学会了常用控件的编辑和编辑菜单和多窗体的编程，并理解数组和过程及函数的类型定义，以及过程和函数的调用方法，初步认识了文件的读取和存放。再次，我觉得编程不仅需要自己的思维和方法，还应该有足够的细心和耐心，否则，这么长的英文代码让你不断的调试和检查早就让你头晕目眩了。同时，不懂就要问，这样才能不断的进步。认真思考也是非常的重要，只有经过自己思考的东西和知识才会变成自己的。还有，我认为编程不仅要知道自己的方法，还应看懂别人的程序，体验别人的思维方法。这样不仅可以在别人遇到问题时给予帮助，还可以通过对比融会贯通并得出最简洁的程序编写方法。最后，我在实习中遇到的问题帮助了我理解在课堂理论上没有弄懂的问题，更让我发现了我学习中的薄弱环节，让我有机会去改正和提高。我也深刻的懂得了实践是获取知识的最好方法，在今后的学习中，我应该多将理论与实践结合起来。
附录
Form1
Private Sub averge_Click()
Form1.Cls
Form1.FontSize = 16
Form1.ForeColor = RGB(12, 18, 187)
Form1.BackColor = RGB(1, 255, 4)
Form1.Print "学号姓名英语VB 化学物理数学体育加权平均分"
For i = 1 To N Array stu(i).aver = 0
For j = 1 To M
stu(i).aver = stu(i).aver + stu(i).cj(j) * ke(j).学分
Next j
stu(i).aver = Round(stu(i).aver / Zxf, 2)
Next i
For i = 1 To N
Print Tab(2); stu(i).xh; Tab(9); stu(i).xm; Tab(18); stu(i).cj(1); Tab(27); stu(i).cj(2); Tab(34); stu(i).cj(3); Tab(43); stu(i).cj(4); Tab(52); stu(i).cj(5); Tab(60); stu(i).cj(6); Tab(68); Format(stu(i).aver, "00.00")
Next i
End Sub
Public Function space1(ByVal sss As String) Array
Dim x%
x = InStr(sss, " ")
Do While x > 0
sss = Replace(sss, " ", " ")
x = InStr(sss, " ")
Loop
space1 = sss
End Function
Private Sub Form_Load()
Dim st$(), Str1$
Open App.Path + "\成绩表.txt" For Input As #1
Open App.Path + "\课程学分.txt" For Input As #2
N = 0: M = 0: Zxf = 0
Line Input #1, Str1
Do While Not EOF(1)
N = N + 1
ReDim Preserve stu(N)
Line Input #1, Str1
Str1 = Trim(Str1)
Str1 = space1(Str1)
st1 = Split(Str1, " ")
stu(N).xh = st1(0)
stu(N).xm = st1(1)
stu(N).cj(1) = st1(2)
stu(N).cj(2) = st1(3)
stu(N).cj(3) = st1(4)
stu(N).cj(4) = st1(5)
stu(N).cj(5) = st1(6)
stu(N).cj(6) = st1(7)
stu(N).aver = 0
stu(N).mc = 0
Loop
Line Input #2, Str1
Do While Not EOF(2)
M = M + 1
ReDim Preserve ke(M)
Line Input #2, Str1
Str1 = Trim(Str1)
Str1 = space1(Str1)
st1 = Split(Str1, " ")
ke(M).编号= st1(0)
ke(M).课程名= st1(1)
ke(M).学分= st1(2)
Zxf = Zxf + ke(M).学分
Loop
Close #1
Close #2
End Sub
Private Sub mc_Click()
Dim t!, k As Single
Form1.Cls
Form1.FontSize = 18
Form1.BackColor = RGB(252, 180, 14)
Form1.Print "学号姓名英语VB 化学物理数学体育加权平均分名次"
For i = 1 To N
If i Mod 4 = 1 Then
Form1.ForeColor = RGB(123, 12, 45)
ElseIf i Mod 4 = 2 Then
Form1.ForeColor = RGB(45, 78, 100)
ElseIf i Mod 4 = 3 Then
Form1.ForeColor = &HFF00FF
Else:
Form1.ForeColor = &HFF&
End If
t = 1
If stu(i).aver = stu(i - 1).aver Then
stu(i).mc = stu(i - 1).mc
Else
For j = 1 To N
If stu(i).aver < stu(j).aver Then
t = t + 1
End If
Next j
End If
stu(i).mc = t
t = 1
Print Tab(2); stu(i).xh; Tab(9); stu(i).xm; Tab(18); stu(i).cj(1); Tab(27); stu(i).cj(2); Tab(34); stu(i).cj(3); Tab(43); stu(i).cj(4); Tab(52); stu(i).cj(5); Tab(60); stu(i).cj(6); Tab(68); Format(stu(i).aver, "00.00"); Tab(78); stu(i).mc
Next i
End Sub
Private Sub jsmmkcpjf_Click()
Form1.Cls
Form1.BackColor = RGB(2, 180, 214) Dim a, b, c, d, e, f
For i = 1 To N
a = a + stu(i).cj(1)
b = b + stu(i).cj(2)
c = c + stu(i).cj(3)
d = d + stu(i).cj(4)
e = e + stu(i).cj(5)
f = f + stu(i).cj(6)
Next i
a = Format(a / N, "0.00")
b = Format(b / N, "0.00")
c = Format(c / N, "0.00")
d = Format(d / N, "0.00")
e = Format(e / N, "0.00")
f = Format(f / N, "0.00")
Form1.FontSize = 22
Form1.FontSize = 22
Form1.ForeColor = &HFFFF&
Form1.Print Tab(7); "课程平均分"
Form1.Print
Form1.FontSize = 16
Form1.ForeColor = &HC0&
Form1.Print Tab(10); "英语"; Tab(26); a
Form1.ForeColor = &HC0&
Form1.Print
Form1.Print Tab(10); "VB"; Tab(26); b
Form1.Print
Form1.Print Tab(10); "数学"; Tab(26);
Form1.Print
Form1.Print Tab(10); "物理"; Tab(26); d
Form1.Print
Form1.Print Tab(10); "化学"; Tab(26);
Form1.Print
Form1.Print Tab(10); "体育"; Tab(26); f
End Sub
Private Sub jsgkfsdrs_Click()
Form2.Show
End Sub
Form2:
Dim s(5 To 10), i!, k!, j!
Private Sub Command7_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub Command1_Click()
Form2.Cls
Form2.Print
Form2.FontSize = 24
Form2.Print Tab(30); "范围"; Tab(40); "课程"; Tab(47); "人数" Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print
For k = 5 To 10
s(k) = 0
Next k
i = 1
For j = 1 To N
g = stu(j).cj(i) \ 10
Select Case g
Case 0 To 5
s(5) = s(5) + 1
Case 6
s(6) = s(6) + 1
Case 7
s(7) = s(7) + 1
Case 8
s(8) = s(8) + 1
Case 9
s(9) = s(9) + 1
Case 10
s(10) = s(10) + 1
End Select
Next j
Form2.Print Tab(30); "60分以下"; Tab(41); ke(i).课程名; Tab(51); s(5)
Open App.Path + "\英语.Txt" For Output As #1
Write #1, "60分以下", s(5)
For k = 6 To 8
Form2.Print Tab(29); k * 10; "-"; (k * 10 + 9); Tab(41); ke(i).课程名; Tab(51); s(k) Write #1, k * 10 & "-" & (k * 10 + 9), s(k)
Next k
Form2.Print Tab(30); "90-100"; Tab(41); ke(i).课程名; Tab(51); s(9) + s(10)
Form2.Print
Write #1, "90 - 100", s(9) + s(10)
Close #1
For k = 5 To 10
s(k) = 0
Next k
End Sub
Private Sub Command2_Click()
Form2.Cls
Form2.Print
Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print Tab(30); "范围"; Tab(40); "课程"; Tab(47); "人数"
Form2.FontSize = 24
Form2.ForeColor = RGB(221, 180, 114)
Form2.Print
i = 2
For j = 1 To N
g = stu(j).cj(i) \ 10
Select Case g
Case 0 To 5
s(5) = s(5) + 1
Case 6
s(6) = s(6) + 1
Case 7
s(7) = s(7) + 1
Case 8
s(8) = s(8) + 1
Case 9
s(9) = s(9) + 1
Case 10
s(10) = s(10) + 1
End Select
Next j
Form2.Print Tab(30); "60分以下"; Tab(41); ke(i).课程名; Tab(51); s(5)
Open App.Path + "\VB.Txt" For Output As #1
Write #1, "60分以下", s(5)
For k = 6 To 8
Form2.Print Tab(29); k * 10; "-"; (k * 10 + 9); Tab(41); ke(i).课程名; Tab(51); s(k) Write #1, k * 10 & "-" & (k * 10 + 9), s(k)
Next k
Form2.Print Tab(30); "90-100"; Tab(41); ke(i).课程名; Tab(51); s(9) + s(10)
Form2.Print
Write #1, "90 - 100", s(9) + s(10)
Close #1
For k = 5 To 10
s(k) = 0
Next k
End Sub
Private Sub Command3_Click()
Form2.Cls
Form2.Print
Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print Tab(30); "范围"; Tab(40); "课程"; Tab(47); "人数"
Form2.FontSize = 24
Form2.ForeColor = RGB(52, 0, 14)
Form2.Print
i = 3
For j = 1 To N
g = stu(j).cj(i) \ 10
Select Case g
Case 0 To 5
s(5) = s(5) + 1
Case 6
s(6) = s(6) + 1
Case 7
s(7) = s(7) + 1
Case 8
s(8) = s(8) + 1
Case 9
s(9) = s(9) + 1
Case 10
s(10) = s(10) + 1
End Select
Next j
Form2.Print Tab(30); "60分以下"; Tab(41); ke(i).课程名; Tab(51); s(5)
Open App.Path + "\数学.Txt" For Output As #1
Write #1, "60分以下", s(5)
For k = 6 To 8
Form2.Print Tab(29); k * 10; "-"; (k * 10 + 9); Tab(41); ke(i).课程名; Tab(51); s(k) Write #1, k * 10 & "-" & (k * 10 + 9), s(k)
Next k
Form2.Print Tab(30); "90-100"; Tab(41); ke(i).课程名; Tab(51); s(9) + s(10)
Form2.Print
Write #1, "90 - 100", s(9) + s(10)
Close #1
For k = 5 To 10
s(k) = 0
Next k
End Sub
Private Sub Command4_Click()
Form2.Cls
Form2.Print
Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print Tab(30); "范围"; Tab(40); "课程"; Tab(47); "人数"
Form2.FontSize = 24
Form2.ForeColor = RGB(52, 10, 14)
Form2.Print
i = 4
For j = 1 To N
g = stu(j).cj(i) \ 10
Select Case g
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
沈阳航空航天大学 课程设计任务书 学院：机电工程学院专业：机械设计制造及其自动化班级：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语言程序设计课程设计报告 系 (部) 专业班级 学生姓名 学号/序号 指导教师 完成时间
图书管理系统 一、功能描述 使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等），建立了这个简易的图书管理系统，方便图书管理人员对图书的管理。用户可以通过此系统的添加、删除，还回，借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。 二、概要设计 1、系统功能模块框图设计 首先程序运行，出现一个MDI主窗体，里面分别有登录，书籍信息管理系统，退出三个菜单选项，登录前，管理按钮不可用，当正确输入用户名以及密码以后，点管理按钮，图书管理窗体显示，用户可对图书信息进行管理。 2、数据库设计 创建一个数据库为mydb.mdb，该数据库共包含3张表，分别为“书籍信息表”、“图书归还表”和“图书借出表”，表结构如下：
书籍信息表：图书编号、图书名、作者、出版社、数量、出版日期、价格 图1. 书籍信息表 图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期； 图2. 图书归还表 图书借出表：图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。 图3. 图书借出表
三、详细设计 1、MDI主界面 用户登录模块中登录与取消两按钮，单击登录会进入系统进行下一步的操作，用户名文本框与数据库相连接，当在用户名文本框输入用户名后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该用户名，且该用户名的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该用户名或密码与用户名不相匹配，则会提示“密码错误”，用户名文本框会得到焦点，让重新输入。 （1）窗体截图（如图5.1） 图1 MDI主界面
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
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 院（系、部、中心）先进制造技术工程中心 专业机械制造及其自动化 班级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上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
[心得体会]vb程序设计实验心得4篇数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下，我接触到Microsoft 公司的.NET产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql serverXX，以前学asp的时候用的是aess，那个时候只是照着人家做，理论是什么也不是很清楚。
通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么 用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看 法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML 建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。 开发的时候我想过用什么架构，c/s模式？模式有很多，怎么选择？我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it！
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创建一个应用程序，第一步骤是创建窗体，它是用户与应用程序进行交互操作的可视部分，窗体是创建界面的基本构造模块，也是创建应用程序所使用的对象。而后必要设置窗体的属性，从而构出窗体的外观，设置好的窗体，窗体就作为对象，能够对其定义的事件作出响应，这也是所谓的窗体事件，而窗体事件又包括窗体本
第1章 统设计的目的与意义: 客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能. 无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义. 系统功能设计 系统设计包括数据库设计,主界面设计,菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示
第2章 数据库设计 旅客信息表为旅客的个人信息加入住客房信息，数据结构如表 表2.1 客房信息表为客房入住情况的基本信息，数据结构如表 表2.2 旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表 旅客退房记录表设置 表2.3 管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表 管理人员信息表设置
表2.4 第3章 主体内容 3．1 设计标准模块 本系统设计过程中，创建一个通用函数模块，用于实现数据库连接及按需要打开一个数据表。程序代码如下： Option Explicit Public Sub opentable(pado As Adodc, precordsource As String) With pado .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/Total.mdb" .CommandType = adCmdUnknown .RecordSource = precordsource .Refresh End With End Sub 3.2 户登录界面设计 用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入登录界面时要求输入用户名和密码，如果用户名，密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。 3．2．1工作界面设计
通过几周对ＶＢ的学习，使我增加了对ＶＢ课程的了解． 首先了解到ＶＢ的特点，ＶＢ是在原来的Ｂ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中按对话框的创建有三种类型的对话框,他们是
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
vb课程设计报告心得感想 vb课程设计报告心得感想篇1 在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。 刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了?明明是按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。 第一次，在上机课的时候，我根据老师讲的，在机房里做了一次，但没有做完。于是把东西存在了自己的MP3里面，以便以后上机的时候再来做。但真的没有想到，我的MP3，在一次上电子阅览室的时候，忘了拔了。于是乎，我辛辛苦苦做了一大节课的程序就这样没了。心里真的很不舒服，但是，不舒服归不舒服，这个程序，还是得继续做下去，这么以点点小小的失误不算什么，然后跑到学校机房，继续我的VB程序设计。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题，比如说开始的时候打开不了文件，总是出现错误，自己总也找不出来，后来请教了一下同学，结果发现时代码的编写出现了错误，把代码改过来之后，程序终于可以打开运行了。然后，检查的时候，又发现查找运行错误，又是代码那里出现的黄色的字样，结果发现，是代码拼写错误，于是，拿着同学的代码对比一下，发现了错误所在之地，然后更正了过来。 经过一番努力，程序终于做完了。 后来，室友看了我的程序，她说运行不了的，就是出现了错误，出现了错误，就应该改过啊，这时的我才恍然大。是错误，那么就要改正的! 于是当天，我就去了学校机房，再一次运行我的程序，仍然出现错误情况，需要调试，我回忆起上课的时候，老师是怎么跟我们讲的，哪里出现了错误，需要怎么样改正。于是，我就耐着性子，一个一个，一个一个得改正，编辑代码，一个一个得检查，终于完成了。完成之后，我在运行一下，一切正常，心里终于舒了一口气。经过这次的VB程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习. (3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程
VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1
（北京)计算机语言课程设计 ——背单词 院系：地球物理与信息工程学院 专业：自动化09 小组成员：常润秀、覃丹丹、周衍彤 陈建龙、黄冬 完成日期： 2011年7月14 日 小组设计成绩：
一、设计目的： 综合运用面向对象开发工具，设计Windows风格的软件。通过此次程序设计题目，使学生熟练掌握Windows应用程序的开发过程，为以后专业课的学习奠定基础。 二、所选编程语言：Visual Basic 6.0 三、系统总体设计思路： 背单词软件是英语学习类软件的分支，是专门针对用户背诵英语单词，掌握词汇量而制作的辅助学习软件。由于媒介为个人电脑，所以背单词软件有着其它背单词工具无法达到的智能化与互动性，但相对应的，过于依赖电脑和较差的便携性成为其缺陷。所以作为背单词的软件的设计思路应该简单为原则。用户操作必须简单、方便为原则。 （1）本题目共提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件（分别是grade4.txt和grade6.txt），通过“词库设置”中的“词库”组合框可以选择想要的词库。默认的词库是“大学英语四级词汇”。 （2）为了便于用户使用，程序允许选择想要记忆的单词范围。默认的单词范围是“A至Z”，即全部单词。如果选择的范围是“A至C”，那么程序只显示以A、B和C字母开头的单词。程序应保证“起始字母”在“终止字母”之前，即不会出现类似于“C至A” 的情况。 （3）据需要选择“随机”或“循环”复选框。如果不选择“随机”，则显示单词时是以单词在词库中的顺序（即字母的顺序）显示的，否则以随机顺序显示。如果不选择“循 环”复选框，单词显示一遍之后自动停止回到起始状态。如果选择了“循环”复选 框，显示一遍之后会自动从头开始显示。 在随机方式之下，循环是没有意义的，所以当“随机”复选框选定时，“循环”复选 框应变为无效且呈现未选定状态。 （4）毕后，单击“开始”按钮，窗口最上方显示区域从右向左以字幕方式动态显示所选的单词，包括词性和词义。在显示过程中可以改变字体大小、滚动速度和背景显示 颜色。单击“暂停”按钮可以暂停滚动，这时“暂停”按钮变为“继续”，单击会继续滚动。单击“退出”按钮退出主界面。 设计任务分工安排： 由于小组由五名成员构成，可将界面模块分为五个部分： 1.滚动字幕以及部分相关控制控件。设计人员：陈建龙。 2.字体大小，滚动速度，背景颜色控制。设计人员：常润秀。 3.词库选择。设计人员：覃丹丹，黄冬。 4.显示方式（随机，循环）设计人员：覃丹丹，黄冬。 5.主界面其他相关控件，以及其他弹出界面和进入界面。设计人员：周衍彤。 设计进度安排： 设计时间：2011.7.7~2011.7.8, 2011.7.11~2011.7.13 7、8号找到各部分设计思路，进行初步设计
VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()
End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；