VB设计实例

Vb课程设计参考六、参考文献1、龚沛曾，陆慰民，杨志强.VisualBasic程序设计教程（6.0版）.北京：高等教育出版社，20012、龚沛曾，陆慰民，杨志强.VisualBasic实验指导与测试（第三版）.北京：高等教育出版社，20073、罗朝盛.VisualBasic6.0程序设计教程（第二版）.北京：人民邮电出版社，20054、罗朝盛.VisualBasic6.0程序设计基础教程.北京：人民邮电出版社，20055、罗朝盛.VisualBasic6.0程序设计实验指导.北京：科学出版社，20066、罗朝盛.VisualBasic6.0程序设计实用教程（第二版）.北京：清华大学出版社，20087、罗朝盛，胡同森.VisualBasic学习与实践指导.杭州：浙江科学技术出版社，20088、王栋.VisualBasic程序设计实用教程（第二版）.北京：清华大学出版社，2006系统的详细设计5-1、通用定义源代码:OptionExplicitConstPI=3.14159265Dim弧度制AsBooleanDim新数据AsBooleanDim被运算数AsDoubleDim运算数AsDoubleDim当前运算符AsInteger5-2、界面一及源代码:具体使用代码：PrivateSubCommand1_Click()Form4.HideForm5.ShowEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Timer1.Interval=100EndSubPrivateSubTimer1_Timer()CallmymoveEndSubSubmymove()Label1.Left=Label1.Left+Tog+100IfLabel1.LeftForm4.HeightThenLabel1.Left=0EndIfEndSub5-2、界面二及源代码:具体代码：PrivateSubCommand1_Click()Dimworkarea(30000)AsStringDimcounterAsIntegerProgressBar1.Min=LBound(workarea)ProgressBar1.Max=UBound(workarea)ProgressBar1.Visible=TrueProgressBar1.Value=ProgressBar1.MinForcounter=LBound(workarea)ToUBound(workarea)workarea(counter)=initialvalue&counterProgressBar1.Value=counterNextcounterForm5.HideForm1.ShowEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Timer1.Interval=100EndSubPrivateSubTimer1_Timer()CallmymoveEndSubSubmymove()Label1.Left=Label1.Left+Tog+100IfLabel1.LeftForm4.HeightThenLabel1.Left=0EndIfEndSub5-4、界面三及源代码具体代码：OptionExplicitConstPI=3.14159265Dim弧度制AsBooleanDim新数据AsBooleanDim被运算数AsDoubleDim运算数AsDoubleDim当前运算符AsIntegerPrivateSubc_Click()OpenC:\计算结果.datForOutputAs#1Write#1,Text1.TextClose#1EndSubPrivateSubCC_Click()OpenC:\计算结果.datForInputAs#1DimlinedateAsStringLineInput#1,linedateText1.Text=linedateClose#1EndSubPrivateSubCommand1_Click(IndexAsInteger)运算数=Val(Text1)新数据=TrueSelectCaseIndexCase0'指数运算OnErrorGoTo溢出了Text1=Exp(运算数)Case1'自然对数运算OnErrorGoTo真数非正Text1=Log(运算数)Case2'常用对数运算OnErrorGoTo真数非正Text1=Log(运算数)/Log(10)Case3'平方根运算OnErrorGoTo底数为负Text1=Sqr(运算数)Case4'倒数运算OnErrorGoTo除数为零Text1=1/运算数Case6'正弦运算Text1=Sin(运算数)Case8'随机数Text1=Rnd(运算数)Case7'余弦运算Text1=Cos(运算数)Case9'HexText1=Hex(运算数)Case10'ChrText1=Chr(运算数)Case11'正切运算Text1=Tan(运算数)Case5'阶乘运算If运算数1ThenText1=阶乘的自变量不可以小于1！ElseOnErrorGoTo溢出了Dim结果AsLongDimiAsInteger结果=1Fori=1To运算数结果=结果*iNextiText1=结果EndIfEndSelectExitSub溢出了:BeepBeepText1=溢出了！ExitSub真数非正:BeepBeepText1=真数不应该为小于或等于0！ExitSub除数为零:BeepBeepText1=零不能做分母！ExitSub底数为负:BeepBeepText1=平方根的底数不能为负！EndSubPrivateSubCommand2_Click(IndexAsInteger)If新数据ThenIfIndex0ThenText1=CStr(Index)新数据=FalseEndIfElseIfLen(Text1)16ThenBeepBeepExitSubElseText1=Text1&CStr(Index)EndIfEndSubPrivateSubCommand3_Click()Text1.Text=EndSubPrivateSubCommand4_Click()Form3.ShowEndSubPrivateSubCommand5_Click()IfLen(Text1.Text)16OrInStr(Text1,.)0ThenBeepBeepExitSubEndIfIf新数据ThenText1=0.新数据=FalseElseText1=Text1&.EndIfEndSubPrivateSubCommand6_Click()OnErrorGoTo无运算数=Val(Text1)新数据=TrueSelectCase当前运算符Case0'加法Text1=被运算数+运算数Case1'减法Text1=被运算数-运算数Case2'乘法Text1=被运算数*运算数Case3'除法If运算数=0ThenText1.Text=除数为零！BeepBeepElseText1=被运算数/运算数EndIfEndSelectExitSub溢出了:BeepBeepText1=溢出了！EndSubPrivateSubCommand7_Click(IndexAsInteger)被运算数=Val(Text1)当前运算符=Index新数据=TrueEndSubPrivateSubCommand8_Click()Text1.Text=EndSubPrivateSubup_Click()Form1ShowEndSubPrivateSubd_Click()OpenD:\计算结果.datForOutputAs#1Write#1,Text1.TextClose#1EndSubPrivateSubdakai_Click()EndSubPrivateSubDD_Click()OpenD:\计算结果.datForInputAs#1DimlinedateAsStringLineInput#1,linedateText1.Text=linedateEndSubPrivateSube_Click()OpenE:\计算结果.datForOutputAs#1Write#1,Text1.TextClose#1EndSubPrivateSubEE_Click()OpenE:\计算结果.datForInputAs#1DimlinedateAsStringLineInput#1,linedateText1.Text=linedateEndSubPrivateSubExit_Click()EndEndSubPrivateSubf_Click()OpenF:\计算结果.datForOutputAs#1Write#1,Text1.TextClose#1EndSubPrivateSubFF_Click()OpenF:\计算结果.datForInputAs#1DimlinedateAsStringLineInput#1,linedateText1.Text=linedateEndSubPrivateSubForm_Load()Timer1.Interval=100EndSubPrivateSubopen_Click()Form2.ShowEndSubPrivateSubTimer1_Timer()CallmymoveEndSubSubmymove()Label1.Left=Label1.Left+100IfLabel1.LeftForm1.HeightThenLabel1.Left=0EndIfEndSub5-5、界面四和界面五及源代码具体代码：PrivateSubCommand1_Click()Form1.ShowForm2.HideEndSubPrivateSubCommand1_Click()EndEndSub6、结论:在这次课程设计中，我懂得了计算机的巨大作用，也让我懂得努力付出就有回报的道理，很感谢这次的课程设计，它也使我更加深刻地体会到多看专业书的重要性。另在编写过程中也认识到自身的不足，但通过我的努力我还是完成了课程设计，它让我明白，做任何事都要有耐心，不要一遇到困难就退缩；感谢李敏之老师的淳淳教诲，最后,谢谢老师在学习中对我的指导.。7、参考文献：《VisualBasic程序设计教程》---龚沛曾杨志强陆慰民编《VB从入门到精通》------电子工业出版社的邮电出版社出版《VB数据库编程实例》-----邮电出版社出版