VB课程实验报告.docx

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学号=‘’

实验中发现的问题及解决方法：

打开数据库建立表格不太容易

教师评语

成绩