山西财经大学《程序设计（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!,
实验的详细操作步骤、程序代码及运行截图：
实验中发现的问题及解决方法：
Dim 的运用不是很到位，经过学习了解深刻
教师
评语
山西财经大学《程序设计（VB+Acces）》实验报告
＊＊＊＊年＊月＊＊
日。