c语言程序设计第6章PPT学习教案

1、会计学1c语言程序设计第语言程序设计第6章章第1页/共49页；（4）Friend只能在类模块中使用；第2页/共49页若有多个参数时，各参数之间用逗号分隔，形参没有具体的值。第3页/共49页第4页/共49页一对括号，此时便可输入子程序语句。第5页/共49页第6页/共49页第7页/共49页这是允许的。第8页/共49页查看代码查看代码第9页/共49页第10页/共49页Private Sub cmdJs_Click() Dim a!, b!, c!, w! a = Val(txtA.Text) b = Val(txtB.Text) c = Val(txtC.Text) If a b + c Or b

2、a + c Or c a + b Then MsgBox 输入的三条边不能构成一个三角形！ Else Call area(a, b, c, w) txtMj.Text = Str(w) End IfEnd Sub第11页/共49页第12页/共49页第13页/共49页第14页/共49页第15页/共49页语句。第16页/共49页第17页/共49页第18页/共49页第19页/共49页End Sub 第20页/共49页Private Sub Form_Click() Dim n! s = 1: n = 1: t = 1 Do t = 1 / Fact(n) s = s + t n = n + 1 Lo

3、op While t = 10 -7 Print sEnd Sub调用函数Fact的程序代码如下：Private Function Fact(x!) Dim p! p = 1 For n = 1 To x p = p * n Next Fact = pEnd Function第21页/共49页应用程序窗体模块标准模块类模块声明部分通用过程事件过程全局声明部分模块层声明部分通用过程模块层声明部分通用过程第22页/共49页第23页/共49页第24页/共49页第25页/共49页第26页/共49页第27页/共49页第28页/共49页Dim a As Integer，b As Single第29页/共4

4、9页第30页/共49页查看代码查看代码第31页/共49页第32页/共49页第33页/共49页过程定义：过程定义：Sub Swap2( x%, y%, str$)过程调用：过程调用：Call Swap2( a%, y%, Student)第34页/共49页88实参x形参y在Visual Basic中，传值方式通过关键字ByVal来实现。也就是说，在定义通用过程时，如果形参前面有关键字ByVal，则该参数用传值方式传递。第35页/共49页第36页/共49页8实参x形参y第37页/共49页查看代码查看代码查看代码查看代码第38页/共49页实参x实参y实参y形参x形参y形参z3412420 x=3*z

5、y=2*z8z=x+y第39页/共49页列表中，并略去数组的上下界，但括号不能省略。第40页/共49页存单元。（6）调用时形参数组m和实参数组n进行形实结合，它们共用一段内存单元。第41页/共49页查看代码查看代码第42页/共49页第43页/共49页Function f2(x)f2=f3(x)+3End SubSub f1(x) x=f2(xx)*3End SubSub CmdOk_Click() Call f1(y)End SubFunction f3(x)f3=x*xEnd Sub第44页/共49页第45页/共49页fac(5)=5*fac(4)fac(4)=4*fac(3)fac(3)=3*fac(2)fac(2)=2*fac(1)fac(1)=1fac(