VB课程实验报告

山西财经大学程序设计（VB+Acces）实验报告 年 月 日实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学 院学院班 级姓 名学 号理论课教师李平珍上机指导教师李平珍实验目的及要求：1掌握条件表达式和分支语句2正确使用IfThenElse和IfThenElseIf等语句3使用选择性控件实现程序应用编写以下程序段：求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器实验的详细操作步骤、程序代码及运行截图：一Private Sub Command1_Click()Dim A As Single, B As Single, C As SingleDim R1 As Single, R2 As SingleA = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)If B 2 - 4 * A * C 0 ThenMsgBox 该方程无解.ElseIf B 2 - 4 * A * C = 0 ThenR1 = -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 & .End IfEnd Sub二Private Sub cmdCal-Click()Dim x1 As Single,sign As String,x2 As SingleX1=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“/”If x20 ThentxtD.Text=Str(x1/x2)ElseMsgBox”分母不能为0”End IfCase ElseI=MsgBox(“请重新输入运算符：”vbRetryCancel)If I =vbretry Then txtB.Text=” “ txtB.SetFocus Else EndEnd SelectEnd Sub实验中发现的问题及解决方法：表格之间的距离把握不是很准，通过上方调整距离来实现教师评语成 绩 山西财经大学程序设计（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项实验的详细操作步骤、程序代码及运行截图：Private Sub Form-Click()Dim i As Integer,j As Integer,x As IntegerFor i =100 To 300x=0For j=2 To -1If i mod j=0 Then x=1Next jIf x=0 Then print iNext i End SubPrivate Sub Form-Click()n=1:pi=0:j=1Do while n=20Pi=pi+j*1/(2*n-1)j=-jn=n+1Looppi=4*piEnd Sub实验中发现的问题及解决方法：For next语句 if then语句运用不是很熟练教师评语成 绩山西财经大学程序设计（VB+Acces）实验报告 年 月 日实验题目3过程选课课号2015-2016-2-N081002S00-08034-学 院班 级姓 名学 号理论课教师李平珍上机指导教师李平珍实验目的及要求：1理解模块和过程的概念和意义，并能够创建和使用模块2理解传值和引用的概念，并能够正确采用参数传递方式3理解变量的作用域与生存期，能够正确使用各种变量使用过程求：1！+2！+9!,实验的详细操作步骤、程序代码及运行截图：实验中发现的问题及解决方法：Dim 的运用不是很到位，经过学习了解深刻教师评语成 绩山西财经大学程序设计（VB+Acces）实验报告 年 月 日实验题目4 Access数据库应用选课课号2015-2016-2-N081002S00-08034-学 院班 级姓 名学 号理论课教师李平珍上机指导教师李平珍实验目的及要求：1理解关系表、主键、外键、索引、表的关联等概念2了解关系基本运算3掌握基本查询类型和在Access数据库中创建查询4掌握结构化查询语言SQL和用SQL语句实现查询应用5在Access中设计窗体6. 在Visual Basic 中访问数据库数据库参照教材322页综合题。实验的详细操作步骤、程序代码及运行截图：1.Create table 课程表(课号char（6）primary key),名称 char（40）not null2.create table 学生表（学号char primary key,姓名nchar（4）not null,性别nchar （1）check（性别 in（男，女）,民族nchar（8）default汉族 not null,身份证号char(18) unique3.create table 成绩表（ID integer IDENTITY(1,1),学号char (6) references 学生表(学号),课号char(6) refernces 课程表(课号),分数 integer check(分数 between 0 and 100)4.select 姓名，性别 from 学生表 where