4)编写“求和”按钮Command2的Cick事 件过程，调用函数过程Sum求数组各元素 第八章 的和，并将和值显示在标签Label1中。 Private Sub Command2 ClickO Label1.Caption=Sum(AO) 过 End sub 程 193 21
第 八 章 过 程 21 4）编写“求和”按钮Command2的Click事 件过程，调用函数过程Sum求数组各元素 的和，并将和值显示在标签Label1中。 Private Sub Command2_Click() Label1.Caption = Sum(A()) End Sub
【例8-6】编写函数过程求两个数的最大公 约数，通过调用该函数过程求三个数的最 大公约数。 第八章 设计界面： Textl Text2 Text3 求最大公约数 过 请输入数据 程 求最大公约数 Command1 Label2 22
第 八 章 过 程 22 【例8-6】编写函数过程求两个数的最大公 约数，通过调用该函数过程求三个数的最 大公约数。 设计界面： Text1 Label2 Text2 Command1 Text3
代码设计： 1)定义求两个数的最大公约数的函数过程： 第 Function ged(m As Integer,n As Integer) As Integer Dim r As Integer r =m Mod n '求m除以n的余数r Do While r<>0'当余数不为0时进入循环 过 m=n 将除数n作为被除数m n=r '将余数r作为除数n 程 r=n Mod n'求m除以n的余数r Loop ged n End Function 23
第 八 章 过 程 23 Function gcd(m As Integer, n As Integer) _ As Integer Dim r As Integer r = m Mod n ' 求m除以n的余数r Do While r <> 0 ' 当余数不为0时进入循环 m = n ' 将除数n作为被除数m n = r ' 将余数r作为除数n r = m Mod n ' 求m除以n的余数r Loop gcd = n End Function 代码设计： 1）定义求两个数的最大公约数的函数过程:
2)在Command1的Click事件过程中调用 函数过程gcd求三个数的最大公约数。 Private Sub Command1 ClickO 第八章 Dim A As Integer,B As Integer,_ CAs Integer Dim X As Integer,Y As Integer 过 A=Val(Text1.Text) B=Val(Text2.Text) 程 C=Val(Text3.Text) X=gcd(A,B) Y=gcd(X,C) Label2.Caption =Y End Sub 24
第 八 章 过 程 24 Private Sub Command1_Click() Dim A As Integer, B As Integer, _ C As Integer Dim X As Integer, Y As Integer A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) X = gcd(A, B) Y = gcd(X, C) Label2.Caption = Y End Sub 2）在Command1的Click事件过程中调用 函数过程gcd求三个数的最大公约数
【例8-7】编写判断一个数是否为素数的函 数过程，利用该函数过程验证哥德巴赫猜 第 想：一个不小于6的偶数可以表示为两个 素数之和。例如6=3+38=3+510=3+7。 设计界面： Textl 验证哥蓓巴韩精想 ▣ 过 请输入一个不小于的偶数： 程 分解为两个素数 Command1 Text2 Text3 193 25
第 八 章 过 程 25 【例8-7】编写判断一个数是否为素数的函 数过程，利用该函数过程验证哥德巴赫猜 想：一个不小于6的偶数可以表示为两个 素数之和。例如6=3+3 8=3+5 10=3+7。 设计界面： Text1 Command1 Text2 Text3