VB设计实例.pdf

《VB设计实例.pdf》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Vb课程设计参考六、参考文献1、龚沛曾，陆慰民，杨志强.VisualBasic程序设计教程（6.0版）.北京：高等教育出版社，20012、龚沛曾，陆慰民，杨志强.VisualBasic实验指导与测试（第三版）.北京：高等教育出版社，20073、罗朝盛.VisualBasic6.0程序设计教程（第二版）.北京：人民邮电出版社，20054、罗朝盛.VisualBasic6.0程序设计基础教程.北京：人民邮电出版社，20055、罗朝盛.VisualBasic6.0程序设计实验指导.北京：科学出版社，20066、罗朝盛.VisualBasic6.0程

2、序设计实用教程（第二版）.北京：清华大学出版社，20087、罗朝盛，胡同森.VisualBasic学习与实践指导.杭州：浙江科学技术出版社，20088、王栋.VisualBasic程序设计实用教程（第二版）.北京：清华大学出版社，2006系统的详细设计5-1、通用定义源代码:OptionExplicitConstPI=3.14159265Dim弧度制AsBooleanDim新数据AsBooleanDim被运算数AsDoubleDim运算数AsDoubleDim当前运算符AsInteger5-2、界面一及源代码:具体使用代码：PrivateSu

3、bCommand1_Click()Form4.HideForm5.ShowEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Timer1.Interval=100EndSubPrivateSubTimer1_Timer()CallmymoveEndSubSubmymove()Label1.Left=Label1.Left+Tog+100IfLabel1.Left>Form4.HeightThenLabel1.Left=0EndIfEndSub5-2、界面二及源代码:具体

4、代码：PrivateSubCommand1_Click()Dimworkarea(30000)AsStringDimcounterAsIntegerProgressBar1.Min=LBound(workarea)ProgressBar1.Max=UBound(workarea)ProgressBar1.Visible=TrueProgressBar1.Value=ProgressBar1.MinForcounter=LBound(workarea)ToUBound(workarea)workarea(counter)="initialval

5、ue"&counterProgressBar1.Value=counterNextcounterForm5.HideForm1.ShowEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Timer1.Interval=100EndSubPrivateSubTimer1_Timer()CallmymoveEndSubSubmymove()Label1.Left=Label1.Left+Tog+100IfLabel1.Left>Form4.HeightThenLabel1.

6、Left=0EndIfEndSub5-4、界面三及源代码具体代码：OptionExplicitConstPI=3.14159265Dim弧度制AsBooleanDim新数据AsBooleanDim被运算数AsDoubleDim运算数AsDoubleDim当前运算符AsIntegerPrivateSubc_Click()Open"C:计算结果.dat"ForOutputAs#1Write#1,Text1.TextClose#1EndSubPrivateSubCC_Click()Open"C:计算结果.dat"ForInputAs#1Diml

7、inedateAsStringLineInput#1,linedateText1.Text=linedateClose#1EndSubPrivateSubCommand1_Click(IndexAsInteger)运算数=Val(Text1)新数据=TrueSelectCaseIndexCase0'指数运算OnErrorGoTo溢出了Text1=Exp(运算数)Case1'自然对数运算OnErrorGoTo真数非正Text1=Log(运算数)Case2'常用对数运算OnErrorGoTo真数非正Text1=Log(运算数)/Log(10)Ca

8、se3'平方根运算OnErrorGoTo底数为负Text1=Sqr(运算数)Case4'倒数运算OnErrorGoTo除数为零Text1=1/运算数Case6'正弦