欢迎来到天天文库
浏览记录
ID:57910051
大小:371.50 KB
页数:9页
时间:2020-04-03
《VB课程实验报告.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、山西财经大学《程序设计(VB+Acces)》实验报告****年*月**日实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学院*****学院班级*******姓名***学号*********理论课教师李平珍上机指导教师李平珍实验目的及要求:1.掌握条件表达式和分支语句2.正确使用If...Then...Else和If...Then...ElseIf等语句3.使用选择性控件实现程序应用编写以下程序段:求一元二次方程ax2+bx+c=0的根设计一个四则运算计算器实验的详细操作步骤、程序代码及运行截图:一.PrivateSubCom
2、mand1_Click()DimAAsSingle,BAsSingle,CAsSingleDimR1AsSingle,R2AsSingleA=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)IfB^2-4*A*C<0ThenMsgBox"该方程无解."ElseIfB^2-4*A*C=0ThenR1=-B/2/AMsgBox"该方程仅有一个根为"&R1&"."ElseR1=(-B+Sqr(B^2-4*A*C))/(2*A)R2=(-B-Sqr(B^2-4*A*C))/(2*A)MsgBox"该方程有两个根分别为"&R1&
3、"和"&R2&"."EndIfEndSub二.PrivateSubcmdCal-Click()Dimx1AsSingle,signAsString,x2AsSingleX1=Val(txtA):sign=txtB:x2=Val(txtC)SelectCase“+”txtD.Text=Str(x1+x2)Case”-“txtD.Text=Str(x1-x2)Case”*”txtD.Text=Str(x1*x2)Case“/”Ifx2<>0ThentxtD.Text=Str(x1/x2)ElseMsgBox”分母不能为0”EndIfCaseElseI=MsgBox(“请重
4、新输入运算符:”vbRetryCancel)IfI=vbretryThentxtB.Text=”“txtB.SetFocusElseEndEndSelectEndSub实验中发现的问题及解决方法:表格之间的距离把握不是很准,通过上方调整距离来实现教师评语成绩山西财经大学《程序设计(VB+Acces)》实验报告****年*月**日实验题目2循环结构程序设计选课课号2015-2016-2-N081002S00-08034-学院*****班级******姓名***学号*****理论课教师李平珍上机指导教师李平珍实验目的及要求:1.掌握循环语句的格式和执行逻辑2.分析前测型和
5、后测型循环的异同3.灵活设置循环终止条件,掌握算法基本思想和常用算法4.学会分析算法的优劣和掌握多重循环的执行规律编写以下程序段:输出100---300之间的所有素数编程求pi=4(1-1/3+1/5-1/7+1/9.....)求20项实验的详细操作步骤、程序代码及运行截图:PrivateSubForm-Click()DimiAsInteger,jAsInteger,xAsIntegerFori=100To300x=0Forj=2To-1Ifimodj=0Thenx=1NextjIfx=0ThenprintiNextiEndSubPrivateSubForm-Clic
6、k()n=1:pi=0:j=1Dowhilen<=20Pi=pi+j*1/(2*n-1)j=-jn=n+1Looppi=4*piEndSub实验中发现的问题及解决方法:Fornext语句ifthen语句运用不是很熟练教师评语成绩山西财经大学《程序设计(VB+Acces)》实验报告****年*月**日实验题目3过程选课课号2015-2016-2-N081002S00-08034-学院*******班级********姓名***学号****理论课教师李平珍上机指导教师李平珍实验目的及要求:1.理解模块和过程的概念和意义,并能够创建和使用模块2.理解传值和引用的概念,并能够
7、正确采用参数传递方式3.理解变量的作用域与生存期,能够正确使用各种变量使用过程求:1!+2!+…+9!,实验的详细操作步骤、程序代码及运行截图:实验中发现的问题及解决方法:Dim的运用不是很到位,经过学习了解深刻教师评语成绩山西财经大学《程序设计(VB+Acces)》实验报告****年*月**日实验题目4Access数据库应用选课课号2015-2016-2-N081002S00-08034-学院******班级********姓名***学号******理论课教师李平珍上机指导教师李平珍实验目的及要求:1.理解关系表、主键、外键、索引、表的关联等概念2
此文档下载收益归作者所有