《《VB课程实验报告》》由会员分享，可在线阅读，更多相关《《VB课程实验报告》（10页珍藏版）》请在金锄头文库上搜索。
1、财经大学程序设计(VB+Acces )实验报告大火日火火大年实验题目1选择结构程序设计选课课号2015-2016-2-N081002S00-08034-学 院夫*夫文学院班级*姓 名夫*学号夫*理论课教师平珍上机指导教帅平珍实验目的及要求：1. 掌握条件表达式和分支语句2. 正确使用 If. . Then . Else 和 If. . Then . . Elself 等语句3. 使用选择性控件实现程序应用编写以下程序段：求一兀一.次方程 ax+bx+c=0的根设计一个四则运算计算器实验的详细操作步骤、程序代码及运行截图：一.匕 TS1 - f-zffml =nnIfy. i B ii i i
2、a i a i B ti t a i a u a ii ii i a ii ii n i n r I i n i n n i a n b n i -.4 IE inaii .j iaa bj i a . i . - i nj .a in.4 iejis ui ki bb i. ji i. a Ik . ib iiiai .J io j l a 1 g-i r 1 1 r n 一 1 er 1 1 t 11 9 1 r 1 b f r i r 1 1 b i 1 i - 1 a 1 1 1 r 1 1 r , 1 1 r t 1 1 1 1 s f i i r， r i 1 1 r 1 f !
3、1 b , 11 1 1 1 11 1 1 a 1 1 ti a 1 k a 1 a 1 k 1 i .1 1 1 u 1 a 1 .1 1 1 i J 1 1 a 1 1 1 u 1 1 J s 1 1+ :;: L . .4 H . . . . ii ： ,:4 H LJ 3 L ! 1 1 it ! n ii m ! 1 1 a 1 1 a ti e ti 1 1 an n 1 - J . 1 tiiaiUBiBiiaiaaiaiiii iBaiaiB 1 a, r ! r s r :1- : - i sr1 1 ! r1 s : r:.,_ j._.j t _ j _ j a j, .
4、,_,. j- n t 1 r - 1 h , 1 i 4 1 J 1 L1 r 1 isBir-si- isss-B-t - 1 m s - 1J 1 a 1 1 J 1 1 H 11 a 1 II M 1 J 1 1 J 1 . J u 1 s r i - 11 : t - i si -1 rs ir i - n ir 1 ? s r- 41 L K 4 All a IiJ a a 4 G J .4 j i a a . a . ,: s . a - - J a a4 4 a h 1ubib. I4.H.US. Ii Ii , I4. H . Iid a . Ii-IliBirii-iir
5、! , r 1 a s - i r a B - 1 ! - i 1 S I I 1 r 1 1 ! 1 B s - 1 1 f 1 n n b n 1 a a ! i i B ii ri a n 1 1 a r ! 1 . 41 B a . d 1 B j J b 1 j l .1 1 a 1 i j bB 1 a 1b , r - ,e s - s : - : - : e , r i , 1 e : r h s s ! rPrivate Sub Command1_Click()Dim A As Single, B As Single, C As SingleDim R1 As Single,
6、 R2 As SingleA = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)If B A 2 - 4 * A * C 0 ThenMsgBox ”该方程无解.Elself B a 2 - 4 * A * C = 0 ThenR1 = -B / 2 / AMsgBox ”该方程仅有一个根为& R1 & .ElseR1 = (-B + Sqr(B a 2 - 4 * A * C) / (2 * A)R2 = (-B - Sqr(B a 2 - 4 * A * C) / (2 * A)MsgBox ”该方程有两个根分别为& R1 & 和
7、& R2 &End IfEnd SubPrivate Sub cmdCal-Click()Dim x1 As Single,sign As String,x2 As SingleX1=Val(txtA):sign=txtB:x2=Val(txtC)SelectCase + ”txtD.Text=Str(x1+x2)Case” - txtD.Text=Str(x1-x2)Case” *”txtD.Text=Str(x1*x2)Case /If x20 ThentxtD.Text=Str(x1/x2)ElseMsgBox ”分母不能为0”End IfCase ElseI=MsgBox( 请重新输入
8、运算符：” vbRetryCancel)If I =vbretry Then txtB.Text= ” “txtB.SetFocus Else EndEnd SelectEnd Sub3 F-crml10r6实验中发现的问题及解决方法：表格之间的距离把握不是很准，通过上方调整距离来实现教师评语成 绩财经大学程序设计(VB+Acces )实验报告大火日火火大年实验题目2循环结构程序设计选课课号2015-2016-2-N081002S00-08034-学 院夫* * *班级*姓 名学号夫* * *理论课教师平珍上机指导教师平珍实验目的及要求：1. 掌握循环语句的格式和执行逻辑2. 分析前测型和后测
9、型循环的异同3. 灵活设置循环终止条件，掌握算法基本思想和常用算法4. 学会分析算法的优劣和掌握多重循环的执行规律编写以下程序段：输出100-300 之间的所有素数编程求 pi=4(1-1/3+1/5-1/7+1/9.)求 20 项Private Sub Form-Click()Dim i As Integer, As Integer,x As IntegerFor i =100 To 300x=0For j=2 To -1If i mod j=0 Then x=1Next jIf x=0 Then print iNext i End Sub1-.- 73717 917c7 s 1 1 勺、T
10、ravl 书 7 9 旧 I I 3 & o o o Q 1 7 3 3 3 4 5 5 6 6 r F 8 9 ? 9 9 1 2 2 2 3 3 4 5 5 & & 111-1111-11* 11111111111 r 岩？ E 2 Aiaa四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+1Loop pi=4*pi End Sub实验中发现的问题及解决方法：For next语句 if then语句运用不是很熟练教师评语成 绩财经大学程序设计(VB+Acces )实验报告火火大年实
11、验题目3过程选课课号2015-2016-2-N081002S00-08034-学 院*班级夫 *姓 名学号夫*夫理论课教师平珍上机指导教帅平珍实验目的及要求：1. 理解模块和过程的概念和意义，并能够创建和使用模块2. 理解传值和引用的概念，并能够正确采用参数传递方式3. 理解变量的作用域与生存期，能够正确使用各种变量使用过程求：1! +2 ! + +9!,教师评语财经大学程序设计(VB+Acces )实验报告实验题目4 Access数据库应用选课课号2015-2016-2-N081002S00-08034-学 院*班级夫 *理论课教师平珍上机指导教师平珍实验目的及要求：1. 理解关系表、主键、外键、索引、表的关联等概念2. 了解关系基本运算3. 掌握基本查询类型和在 Access数据库中创建查询4. 掌握结构化查询语言SQL和用SQL语句实现查询应用5 .在 Access中设计窗体6.在Visual Basic中访问数据库数据库参照教材322页综合题。实验的详细操作步骤、程序代码及运行截图：1. Create tabl
