VB课程实验报告.docVIP

山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年 ＊ 月 ＊＊日 实验题目 1选择结构程序设计 选课课号 2015-2016-2-N081002S00-08034- 学 院 ＊＊＊＊＊学院 班 级 ＊＊＊＊＊＊＊ 姓 名 ＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师 李平珍 上机指导教师 李平珍 实验目的及要求： 1． 2．．．．．．．．．．．．． 3． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) 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 “+” txtD.Text=Str(x1+x2) Case”-“ txtD.Text=Str(x1-x2) Case”*” txtD.Text=Str(x1*x2) Case“/” If x20 Then txtD.Text=Str(x1/x2) Else MsgBox”分母不能为0” End If Case Else I=MsgBox(“请重新输入运算符：”vbRetryCancel) If I =vbretry Then txtB.Text=” “ txtB.SetFocus Else End End Select End Sub 实验中发现的问题及解决方法： 表格之间的距离把握不是很准，通过上方调整距离来实现 教师评语 成 绩 山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年 ＊ 月 ＊＊日 实验题目 2循环结构程序设计 选课课号 2015-2016-2-N081002S00-08034- 学 院 ＊＊＊＊＊ 班 级 ＊＊＊＊＊＊ 姓 名 ＊＊＊ 学 号 ＊＊＊＊＊ 理论课教师 李平珍 上机指导教师 李平珍 实验目的及要求： 1. 掌握循环语句的格式和执行逻辑 2． 3．． 编程求 pi=4(1-1/3+1/5-1/7+1/9.....) 求20项 实验的详细操作步骤、程序代码及运行截图： Private Sub Form-Click() Dim i As Integer,j As Integer,x As Integer For i =100 To 300 x=0 For j=2 To -1 If i mod j=0 Then x=1 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．…+9!, 实验的详细操作步骤、程序代码及运行截图： 实验中发现的问题及解决方法： D