VB课程实验报告.docx
《VB课程实验报告.docx》由会员分享，可在线阅读，更多相关《VB课程实验报告.docx（11页珍藏版）》请在冰豆网上搜索。
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,CAsSingle
DimR1AsSingle,R2AsSingle
A=Val
B=Val
C=Val
IfB^2-4*A*C<0Then
MsgBox"该方程无解."
ElseIfB^2-4*A*C=0Then
R1=-B/2/A
MsgBox"该方程仅有一个根为"&R1&"."
Else
R1=（-B+Sqr（B^2-4*A*C））/（2*A）
R2=（-B-Sqr（B^2-4*A*C））/（2*A）
MsgBox"该方程有两个根分别为"&R1&"和"&R2&"."
EndIf
EndSub
二．
PrivateSubcmdCal-Click（）
Dimx1AsSingle,signAsString,x2AsSingle
X1=Val（txtA）:
sign=txtB:
x2=Val（txtC）
Select
Case“+”
=Str（x1+x2）
Case”-“
=Str（x1-x2）
Case”*”
=Str（x1*x2）
Case“/”
Ifx2<>0Then
=Str（x1/x2）
Else
MsgBox”分母不能为0”
EndIf
CaseElse
I=MsgBox（“请重新输入运算符：
”vbRetryCancel）
IfI=vbretryThen=”“ElseEnd
EndSelect
EndSub
实验中发现的问题及解决方法：
表格之间的距离把握不是很准，通过上方调整距离来实现
教师评语
成绩
山西财经大学《程序设计（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,xAsInteger
Fori=100To300
x=0
Forj=2To-1
Ifimodj=0Thenx=1
Nextj
Ifx=0Thenprinti
NextiEndSub
PrivateSubForm-Click（）
n=1:
pi=0:
j=1
Dowhilen<=20
Pi=pi+j*1/（2*n-1）
j=-j
n=n+1
Loop
pi=4*pi
EndSub
实验中发现的问题及解决方法：
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页综合题。
实验的详细操作步骤、程序代码及运行截图：
table课程表
（[课号]char（6）primarykey）,
[名称]char（40）notnull
table学生表
（[学号]charprimarykey,
[姓名]nchar（4）notnull,
[性别]nchar
（1）check（[性别]in（男，女））,
[民族]nchar（8）default’汉族’notnull,
[身份证号]char（18）unique
table成绩表
（IDintegerIDENTITY（1,1）,
[学号]char（6）references学生表（学号）,
[课号]char（6）refernces课程表（课号）,
[分数]integercheck（[分数]between0and100）
姓名，性别from学生表where学号=‘’
名称，分数from课程表
名称，分数from课程表，成绩表where课程表.课号=成绩表.课号and学号=‘’
实验中发现的问题及解决方法：
打开数据库建立表格不太容易
教师评语
成绩
升级会员 