vb课程设计B类实验说明书.doc

程序设计基础(VB)课程设计说明书 题目： B类选题 姓名： 刘曌 学号： 201205107 班级名称： 工业工程1201 兰州交通大学机电工程学院 2013 年 7 月 11日 目 录 1 前言2 2系统概述2 3 系统分析 2 4 系统详细设计24.1版权页及代码34.2登录页及代码34.3实验总目录及代码54.4 各个实验及代码14 5 总结14 6系统主要流程图15 7参考文献16 1.前言 Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的。 2. 系统概述 此系统由版权页、登录页、实验总目录和六个实验组成。3. 系统分析 六个实验分别为：富翁与陌生人的交易、杨辉三角、选课系统求最大公约数、哥德巴赫猜想、判断完数问题。4.系统详细设计4.1版权页代码如下 ： Private Sub Command1_Click() Form1.Hide Form2.ShowEnd Sub 4.2登录页代码如下：Private Sub Command1_Click()Dim i As IntegerIf Text1.Text = 201205107 And Text2.Text = 1234 Then Form2.Hide Form3.ShowEnd IfIf Text2.Text 1234 Then i = MsgBox(密码有误，请重新输入, 5 + vbExclamation, 警告) If i 4 Then End Text2.Text = Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = Text1.MaxLength = 9Text2.Text = Text2.PasswordChar = *End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox 账号必须是数字, , 警告Text1.Text = Text1.SetFocusEnd IfEnd Sub4.3实验整合页面 代码如下：Private Sub shiyanD8_Click()Form4.ShowEnd SubPrivate Sub shiyanE6_Click()Form5.ShowEnd SubPrivate Sub shiyanE7_Click()Form6.ShowEnd SubPrivate Sub shiyanF2_Click()Form7.ShowEnd SubPrivate Sub shiyanF4_Click()Form8.ShowEnd SubPrivate Sub shiyanF6_Click()Form9.ShowEnd Sub4.4各个实验代码如下：Private Sub Command1_Click()Dim sum As Double, sum1 As DoubleFor i = 1 To 30sum = sum + 10000000Next iPrint sumtemp = 1For i = 1 To 29temp = temp * 2sum1 = sum1 + tempNext iPrint sum1 + 1End SubPrivate P 代码如下：Private Sub Form_Click()n = InputBox(输入n值)ReDim a6%(n + 1, n + 1) a6(0, 0) = 1: a6(1, 1) = 1: a6(1, 0) = 1 For i = 2 To n + 1 For j = 2 To i a6(i, j) = a6(i - 1, j - 1) + a6(i - 1, j) Picture1.Print a6(i, j); ; Next j Picture1.Print NextEnd Sub代码如下：Private Sub Form_Load() List1.Clear List1.AddItem 大学计算机基础 List1.AddItem C/C+程序设计 List1.AddItem VB程序设计 List1.AddItem Web程序设计 List1.AddItem 多媒体技术与应用 List1.AddItem 数据库技术与应用 List1.AddItem 网络技术与应用 List1.AddItem 硬件技术基础 List1.AddItem 软件技术技术基础End SubPrivate Sub List1_Click() If List2.ListCount = 5 Then MsgBox (超过5门课程，不能再选) Exit Sub Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End IfEnd Sub代码如下：Private Sub Command1_Click() Dim mm%, nn% mm = Val(Text1) nn = Val(Text2) Picture1.Print mm; Tab(6); nn; Tab(12); gcd(mm, nn)End SubFunction gcd%(ByVal m%, ByVal n%) If m n Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n: n = r: r = m Mod n Loop gcd = nEnd Function代代码如下：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text1) Then MsgBox 输入非数字串，重新输入 Text1.Text = Text1.SetFocus Else If IsH(Text1) Then Picture1.Print Text1; Else Picture1.Print Text1 End If Text1 = End If End IfEnd SubFunction IsH(ss As String) As Boolean Dim i%, Ls% IsH = True ss = Trim(ss) Ls = Len(ss) For i = 1 To Ls 2 If Mid(ss, i, 1) Mid(ss, Ls + 1 - i, 1) Then IsH = False Exit Function End If Next iEnd Function代码如下：Dim a%()Private Sub Form_Click() Print 1000以内的完数为： For i = 1 To 1000 If IsWs(i) Then Print i; =1; For j = 1 To UBound(a) Print +; a(j); Next j Print End If Next iEnd SubFunction IsWs(m) As Boolean Dim s% s = 0 For i = 1 To m 2 If m Mod i = 0 Then ReDim Preserve a(j) a(j) = i j = j + 1 s = s + i End If Next i If m = s Then IsWs = TrueEnd Function5总结 编程之前必须要熟悉课本上的内容，对vb程序设计有所了解，对程序有一定的了解，才好下手编程。编程过程中还要有个明确的思路，明白编程过程中需要用到的哪些知识，不会的要多想，可以通过各种方法解决问题。开始可能会有一定的难度，但是到了最后，你会越来越明了。 这次的编程是我体会很大，可以体会到其中的乐趣。可以根据自己的思路编出可以实现的功能的使用，尤其是当可以运行时的那份喜悦让人期待。 调试过程中有许许多多的问题，由于文件编程过大，也许一个小小的问题就引发很多的连带问题，一个小小的改动就会变成牵一发而动全身的结果。对于调试过程中的问题，经过分析找出了解决的办法，所以有几个需要注意的调试问题。 类型问题：在输出和输入的时候，可能会由于类型的定义而无法运行，所以在定输入输出一定要统一参数类型。还有可能程序可以运行，但是有些功能错误，例如：开始定义了单价为浮点型，结果后面可能由于设为了整型，这样子， 在输出的时候就会出现错误了。参数一定要进行类型定义。6. 系统主要流程图 开 始 输入密码正确？ No Yes 进入实验总目录 选择要操作的实验判断完数验证哥德巴赫猜想最大公约数选课系统杨辉三角富翁与陌生人7.参考文献1 人杰、殷人昆、陶永雷 实用软件工程（第二版）清华大学出版社 2003年3月 2龙浩健图书馆计算机集成系统管理及维护策略J 现代图书情报技术,2000 , (B03) 3王运坚. VISUAL BASIC 6.0 应用指南M . 北京: 人民邮电出版社, 1998. 4 管丽娜 白海波实用Visual Basic6 教程M .北京:清华大学出版社,2001. 5 黄梯云，管理信息系统导论，机械工业出版社 6段兴 主编 visual Basic数据库实用程序设计100例 人民邮电出版社 7 曹军生等 SQL Server2000实用教程 北京理工大学出版社 2001年9月 8郭军编著网络管理与