2)编写调用程序 Private Sub Command1 ClickO 第八章 Dim m As Integer,n As Integer, c As Double n=Val(Text1.Text) 过 m Val(Text2.Text) 程 c=Fact(m)/(Fact(n)(Fact(m-n))) Text3.Text c End Sub 16
第 八 章 过 程 16 Private Sub Command1_Click() Dim m As Integer, n As Integer, _ c As Double n = Val(Text1.Text) m = Val(Text2.Text) c = Fact(m) / (Fact(n) * (Fact(m - n))) Text3.Text = c End Sub 2） 编写调用程序
【例8-5】生成10个包含1,51之间的随机整 数的一维数组，调用例83的函数过程求该数 组的所有元素之和。 第八章 设计界面： Command1 Textl 调用数过程求数组元素的和 =回x 过 生成数据 程 求和 Command2 Label1 193 17
第 八 章 过 程 17 【例8-5】生成10个包含[1，5]之间的随机整 数的一维数组，调用例8-3的函数过程求该数 组的所有元素之和。 设计界面： Text1 Label1 Command1 Command2
代码设计： 1)在代码窗口的通用声明段声明数组A为 第八章 具有10个元素的一维整型数组，使A成为 模块级数组。 过 Dim A(1 To 10)As Integer 程 18
第 八 章 过 程 18 1）在代码窗口的通用声明段声明数组A为 具有10个元素的一维整型数组，使A成为 模块级数组。 代码设计： Dim A(1 To 10) As Integer
2)编写例8-3的函数过程Sum: Function Sum(xOAs Integer)As Long 第八章 S=0 For i=LBound(X)To UBound(X) S=S+X(i) 过 Next i Sum=S 程 End Function 193 19
第 八 章 过 程 19 Function Sum(x() As Integer) As Long End Function 2）编写例8-3的函数过程Sum: S = 0 For i = LBound(X)To UBound(X) S = S + X(i) Next i Sum = S
3)在“生成数据”按钮Command1的 Click事件过程中编写代码，生成10个[1,5] 第八章 区间的随机整数，保存到数组A中，同时 显示在文本框Text1中： Private Sub Command1 ClickO Randomize 过 Textl.Text=" Fori=1 To 10 程 A(i)=Int(Rnd 5+1) Text1.Text=Text1.Text Str(A(i)) Next i End Sub 20
第 八 章 过 程 20 Private Sub Command1_Click() Randomize Text1.Text = "" For i = 1 To 10 A(i) = Int(Rnd * 5 + 1) Text1.Text = Text1.Text & Str(A(i)) Next i End Sub 3）在“生成数据”按钮Command1的 Click事件过程中编写代码，生成10个[1,5] 区间的随机整数，保存到数组A中，同时 显示在文本框Text1中: