欢迎来到天天文库
浏览记录
ID:20822807
大小:414.38 KB
页数:15页
时间:2018-10-16
《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'正弦
此文档下载收益归作者所有