VB课程实验报告.doc

《VB课程实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊学院班级＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊＊＊＊＊理论课教师平珍上机指导教师平珍实验目的及要求：1．掌握条件表达式和分支语句2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用编写以下程序段：求一元二次方程ax2+bx+c=0的根设计一个四则运算计算器实验的详细

2、操作步骤、程序代码及运行截图：一．PrivateSubCommand1_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

3、-4*A*C))/(2*A)R2=(-B-Sqr(B^2-4*A*C))/(2*A)MsgBox"该方程有两个根分别为"&R1&"和"&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”*”txt

4、D.Text=Str(x1*x2)Case“/”Ifx2<>0ThentxtD.Text=Str(x1/x2)ElseMsgBox”分母不能为0”EndIfCaseElseI=MsgBox(“请重新输入运算符：”vbRetryCancel)IfI=vbretryThentxtB.Text=”“txtB.SetFocusElseEndEndSelectEndSub实验中发现的问题及解决方法：表格之间的距离把握不是很准，通过上方调整距离来实现教师评语成绩财经大学《程序设计（VB+Acces）》实验报告＊＊

5、＊＊年＊月＊＊日实验题目2循环结构程序设计选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊班级＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊理论课教师平珍上机指导教师平珍实验目的及要求：1.掌握循环语句的格式和执行逻辑2．分析前测型和后测型循环的异同3．灵活设置循环终止条件，掌握算法基本思想和常用算法4．学会分析算法的优劣和掌握多重循环的执行规律编写以下程序段：输出100---300之间的所有素数编程求pi=4(1-1/3+1/5-1/7+1/9.....)求20项实验的详细操作

6、步骤、程序代码及运行截图：PrivateSubForm-Click()DimiAsInteger,jAsInteger,xAsIntegerFori=100To300x=0Forj=2To-1Ifimodj=0Thenx=1NextjIfx=0ThenprintiNextiEndSubPrivateSubForm-Click()n=1:pi=0:j=1Dowhilen<=20Pi=pi+j*1/(2*n-1)j=-jn=n+1Looppi=4*piEndSub实验中发现的问题及解决方法：Fornext

7、语句ifthen语句运用不是很熟练教师评语成绩财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日实验题目3过程选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊＊＊班级＊＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊理论课教师平珍上机指导教师平珍实验目的及要求：1．理解模块和过程的概念和意义，并能够创建和使用模块2．理解传值和引用的概念，并能够正确采用参数传递方式3．理解变量的作用域与生存期，能够正确使用各种变量使用过程求：1！+2！+…+9!,实验的详细操作步骤

8、、程序代码及运行截图：实验中发现的问题及解决方法：Dim的运用不是很到位，经过学习了解深刻教师评语成绩财经大学《程序设计（VB+Acces）》实验报告＊＊＊＊年＊月＊＊日实验题目4Access数据库应用选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊＊班级＊＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊＊理论课教师平珍上机指导教师平珍实验目的及要求：1．理解关系表、主键、外键、索引、表的关联等概念2．了解关系基本运算3．掌握基本查