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

1、程序设计基础（VB）课程设计说明书题目：B类选题刘刻201205107班级名称：工业工程1201州交通大学机电工程学院2013年7月11日1前言22系统概述23系统分析24系统详细设计24.1 页与代码34.2 登录页与代码34.3 实验总目录与代码54.4 各个实验与代码145总结146系统主要流程图157参考文献161. 前言VisualBasic,简称VB,是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快

2、速、最简便的。2. 系统概述此系统由页、登录页、实验总目录和六个实验组成。3. 系统分析六个实验分别为：富翁与陌生人的交易、杨辉三角、选课系统求最大公约数、哥德巴赫猜想、判断完数问题。4. 系统详细设计4.1页manreams强权页代码如下：PrivateSubCommand1_Click()Forml.HideForm2.ShowEndSub4.2登录页代码如下：PrivateSubCommand1_Click()DimiAsIntegerIfTextl.Text=201205107AndText2.Text=1234ThenForm2.HideForm3.ShowEndIfIfText2.

3、Text<>1234Theni=MsgBox("密码有误，请重新输入",5+vbExclamation,"警告")Ifi<>4ThenEndText2.Text=""Text1.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Text1.Text=""Text1.MaxLength=9Text2.Text=""Text2.PasswordChar="*

4、"EndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1.Text)ThenMsgBox"账号必须是数字","警告"Text1.Text=""Text1.SetFocusEndIfEndSub4.3 实验整合页面代码如下:PrivateSubshiyanD8_Click()Form4.ShowEndSubPrivateSubshiyanE6_Click()Form5.ShowEndSubPrivateSubshiyanE7_Click()Form6.ShowEndSubPr

5、ivateSubshiyanF2_Click()Form7.ShowEndSubPrivateSubshiyanF4_Click()Form8.ShowEndSubPrivateSubshiyanF6_Click()Form9.ShowEndSub4.4 各个实验代码如下：PrivateSubCommand1_Click()DimsumAsDouble,sumlAsDoubleFori=1To30sum=sum+10000000NextiPrintsumtemp=1Fori=1To29temp=temp*2sum1=sum1+tempNext iPrint suml + 1End Sub实脸E

6、-6杨辉二角1 o o1 21 4o 513 6 112 3 4 5 6输入行数Private P代码如下：PrivateSubForm_Click()n=InputBox("输入n值")ReDima6%(n+1,n+1)a6(0,0)=1:a6(1,1)=1:a6(1,0)=1Fori=2Ton+1Forj=2Toia6(i,j)=a6(i-1,j-1)+a6(i-1,j)Picture1.Printa6(i,j);""NextjPicture1.PrintNextEndSub实验E-7再畸形的生命形念也籍范专出弟抄供选课课程"匚+嘴序设计大

7、学计算机基袖!T史"，一："四，LIB-,!IFB1数据库技术与应用网络按木与应用F基础密术基础哆媒体技术与应用我选代码如下：PrivateSubForm_Load()Listl.ClearListl.AddItem"大学计算机基础"Listl.AddItem"C/C+程序设计"Listl.AddItem"VB程序设计"Listl.AddItem"Web程序设计”Listl.AddItem"多媒体技术与应用Listl.AddItem"数据库技术与应用Listl.AddItem"

8、;网络技术与应用"Listl.AddItem"硬件技术基础"Listl.AddItem"软件技术技术基础EndSubPrivateSubList1_Click()IfList2.ListCount>=5ThenMsgBox("超过5门课程，不能再选")ExitSubElseList2.AddItemListl.TextListl.RemoveltemList1.ListIndexEndIfEndSub代码如下：PrivateSubCommand1_Click()Dimmm%,nn%mm=Val(Text1)nn=Val(Text

9、2)Picture1.Printmm;Tab(6);nn;Tab(12);gcd(mm,nn)EndSubFunctiongcd%(ByValm%,ByValn%)Ifm<nThent=m:m=n:n=tr=mModnDoWhile(r<>0)m=n:n=r:r=mModnLoopgcd=nEndFunction代码如下：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text1)ThenMsgBox"输入非数字串，重新输入”Text1.Text="&qu

10、ot;Text1.SetFocusElseIf IsH(Textl) ThenElsePicturel.Print TextlEnd IfTextl =""End IfEnd IfEnd SubFunction IsH(ss As String) As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)For i = 1 To Ls 2If Mid(ss, i, 1) <> Mid(ss, Ls + 1 - i, 1) ThenIsH = FalseExit FunctionEnd IfNext iEnd

11、Function实险F-6判斯完数S >1 + 2 + 3 28-1+2+4+7 + 14用口口以内的完颓为：S-11 2*328-1+(2+ 4 4-7 + 14436 -1+2+ 4 +8+ 1&+-31恂叩以内的完数为之Picture1.Print Text1;+ 62 + 4+240+ E2 + 124 + 248代码如下：Dima%()PrivateSubForm_Click()Print"1000以内的完数为：Fori=1To1000IfIsWs(i)ThenPrinti;"=1"Forj=1ToUBound(a)Print"+

12、"a(j);NextjPrintEndIfNextiEndSubFunctionIsWs(m)AsBooleanDims%s=0Fori=1Tom2IfmModi=0ThenReDimPreservea(j)a(j)=ij=j+1s=s+iEndIfNextiIfm=sThenIsWs=TrueEndFunction5 总结编程之前必须要熟悉课本上的内容，对vb程序设计有所了解，对程序有一定的了解，才好下手编程。编程过程中还要有个明确的思路，明白编程过程中需要用到的哪些知识，不会的要多想，可以通过各种方法解决问题。开始可能会有一定的难度，但是到了最后，你会越来越明了。这次的编程是我体

13、会很大，可以体会到其中的乐趣。可以根据自己的思路编出可以实现的功能的使用，尤其是当可以运行时的那份喜悦让人期待。调试过程中有许许多多的问题，由于文件编程过大，也许一个小小的问题就引发很多的连带问题，一个小小的改动就会变成牵一发而动全身的结果。对于调试过程中的问题，经过分析找出了解决的办法，所以有几个需要注意的调试问题。类型问题：在输出和输入的时候，可能会由于类型的定义而无法运行，所以在定输入输出一定要统一参数类型。还有可能程序可以运行，但是有些功能错误，例如：开始定义了单价为浮点型，结果后面可能由于设为了整型，这样子，在输出的时候就会出现错误了。参数一定要进行类型定义。6 .系统主要流程图开 始Yes进入实验总目录判断完数f 验证哥德巴赫猜想选课系统富翁与陌生人7 .参考文献1 人杰、殷人昆、陶永雷实用软件工程(第二版)清华大学2003年3月2 龙浩健?图书馆计算机集成系统管理与维护策略J?现代图书情报技术,2000,(B03)3 王运坚.VISUALBASIC6.0应用指南M.:人民邮电,1998.4 管丽娜白海波实用VisualBasic6教程M.:清华大学,2001.5 黄梯云，管理信息系统导论，机械工业6段兴主编visualBasic数据库实用程序设计100例人民邮电7 曹军生等