VB课程实验报告

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

＊＊＊＊年＊月＊＊日

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

C = 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)

Select

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）》实验报告

＊＊＊＊年＊月＊＊日

Next j

If x=0 Then print i

Next i End Sub

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!,

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

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

Dim 的运用不是很到位，经过学习了解深刻

教师评语

成绩

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

＊＊＊＊年＊月＊＊日实验题目 4 Access数据库应用

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

学院＊＊＊＊＊＊班级＊＊＊＊＊＊＊＊

姓名＊＊＊学号＊＊＊＊＊＊