如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
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.Left>Form4.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.Left>Form4.HeightThenLabel1.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#1DimlinedateAsStringLineInput#1,linedateText1.Text=linedateClose#1EndSubPrivateSubCommand1_Click(IndexAsInteger)运算数=Val(Text1)新数据=TrueSelectCaseIndexCase0'指数运算OnErrorGoTo溢出了Text1=Exp(运算数)Case1'自然对数运算OnErrorGoTo真数非正Text1=Log(运算数)Case2'常用对数运算OnErro
