VB课程实验报告

VB课程实验报告VB课程实验报告VB课程实验报告VB课程实验报告山西财经大学《程序设计(VB+Acces)》实验报告＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊学院班级＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求:1.掌握条件表达式与分支语句2.正确使用If...Then...Else与If...Then...ElseIf等语句3.使用选择性控件实现程序应用编写以下程序段:求一元二次方程ax2+bx+...

VB课程实验报告 VB课程实验报告VB课程实验报告山西财经大学《程序设计(VB+Acces)》实验报告＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊学院班级＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求:1.掌握条件表达式与分支语句2.正确使用If...Then...Else与If...Then...ElseIf等语句3.使用选择性控件实现程序应用编写以下程序段:求一元二次方程ax2+bx+c=0的根设计一个四则运算计算器实验的详细操作步骤、程序代码及运行截图:一.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-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”*”txtD、Text=Str(x1*x2)Case“/”Ifx2<>0ThentxtD、Text=Str(x1/x2)ElseMsgBox”分母不能为0”EndIfCaseElseI=MsgBox(“请重新输入运算符:”vbRetryCancel)IfI=vbretryThentxtB、Text=”“txtB、SetFocusElseEndEndSelectEndSub实验中发现的问题及解决方法: 表格之间的距离把握不就是很准,通过上方调整距离来实现教师评语成绩山西财经大学《程序设计(VB+Acces)》实验报告＊＊＊＊年＊月＊＊日实验题目2循环结构程序设计选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊班级＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求:1、掌握循环语句的格式与执行逻辑2.分析前测型与后测型循环的异同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-Click()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.理解传值与引用的概念,并能够正确采用参数传递方式3.理解变量的作用域与生存期,能够正确使用各种变量使用过程求:1！+2！+…+9!,实验的详细操作步骤、程序代码及运行截图:实验中发现的问题及解决方法:Dim的运用不就是很到位,经过学习了解深刻教师评语成绩山西财经大学《程序设计(VB+Acces)》实验报告＊＊＊＊年＊月＊＊日实验题目4Access数据库应用选课课号2015-2016-2-N081002S00-08034-学院＊＊＊＊＊＊班级＊＊＊＊＊＊＊＊姓名＊＊＊学号＊＊＊＊＊＊理论课教师李平珍上机指导教师李平珍实验目的及要求:1.理解关系表、主键、外键、索引、表的关联等概念2.了解关系基本运算3.掌握基本查询类型与在Access数据库中创建查询4.掌握结构化查询语言SQL与用SQL语句实现查询应用5.在Access中设计窗体6、在VisualBasic中访问数据库数据库参照教材322页综合题。实验的详细操作步骤、程序代码及运行截图:1、Createtable 课程表 ([课号]char(6)primarykey),[名称]char(40)notnull2、createtable学生表([学号]charprimarykey,[姓名]nchar(4)notnull,[性别]nchar(1)check([性别]in(男,女)),[民族]nchar(8)default’汉族’notnull,[身份证号]char(18)unique3、createtable成绩表(IDintegerIDENTITY(1,1),[学号]char(6)references学生表(学号),[课号]char(6)refernces课程表(课号),[分数]integercheck([分数]between0and100)4、select姓名,性别from学生表where学号=‘’5、select名称,分数from课程表6、select名称,分数from课程表,成绩表where课程表、课号=成绩表、课号and学号=‘’实验中发现的问题及解决方法:打开数据库建立表格不太容易教师评语成绩

                    本文档为【VB课程实验报告】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

VB课程实验报告

你可能还喜欢