VB课程实验报告

山西财经大学《程序设计（VB+Acces）》实验报告

＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计

选课课号2015-2016-2-N081002S00-08034-

学院

＊＊＊＊＊

学院

班

级

＊＊＊＊＊＊＊

姓名＊＊＊

学

号

＊＊＊＊＊＊＊＊＊

理论课教师李平珍

上机指

导教师

李平珍

实验目的及要求：

1．掌握条件表达式和分支语句

2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用

编写以下程序段：

求一元二次方程ax2+bx+c=0的根

设计一个四则运算计算器

实验的详细操作步骤、程序代码及运行截图：

一．

Private Sub Command1_Click()

Dim A As Single, B As Single, C As Single

Dim R1 As Single, R2 As Single

A = Val

B = Val

If B ^ 2 - 4 * A * C < 0 Then

MsgBox "该方程无解."

ElseIf B ^ 2 - 4 * A * C = 0 Then

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 & "." End If

End Sub

二．

Private Sub cmdCal-Click()

Dim x1 As Single,sign As String,x2 As Single

X1=Val(txtA):sign=txtB:x2=Val(txtC)

Case “+”

=Str(x1+x2)

Case”-“

=Str(x1-x2)

Case”*”

=Str(x1*x2)

Case“/”

If x2<>0 Then

=Str(x1/x2)

Else

MsgBox”分母不能为0”

End If

Case Else

I=MsgBox(“请重新输入运算符：”vbRetryCancel)

If I =vbretry Then =”“ Else End

End Select

End Sub

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

表格之间的距离把握不是很准，通过上方调整距离来实现

教师

评语

成

山西财经大学《程序设计（VB+Acces）》实验报告

＊＊＊＊年＊月＊＊

日

Private Sub Form-Click()

n=1:pi=0:j=1

Do while n<=20

Pi=pi+j*1/(2*n-1)

j=-j

n=n+1

Loop

pi=4*pi

End Sub

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

For next语句 if then语句运用不是很熟练

教师

评语

成

绩

山西财经大学《程序设计（VB+Acces）》实验报告

＊＊＊＊年＊月＊＊

日

实验题

目

3过程

选课课

号

2015-2016-2-N081002S00-08034-

学院

＊＊＊＊＊

＊＊

班

级

＊＊＊＊＊＊＊＊

姓名＊＊＊

学

号

＊＊＊＊

理论课教师李平珍

上机指

导教师

李平珍

实验目的及要求：

1．理解模块和过程的概念和意义，并能够创建和使用模块2．理解传值和引用的概念，并能够正确采用参数传递方式3．理解变量的作用域与生存期，能够正确使用各种变量使用过程求：1！+2！+…+9!,

实验的详细操作步骤、程序代码及运行截图：