[计算机软件及应用]VB-HEB.ppt

第十讲--综合程序设计（四） 十 98 一、求37285的最大约数。 1、采用For … Next 语句实现 。 Private Sub Form_Click() For i = 18642 To 1 Step -1 If 37285 Mod i = 0 Then Print i Exit For End If Next i End Sub 第十讲--综合程序设计（四） 十 99 二、自然数对是指两个自然数的和与差都是平方数,如8和17的和8+17=25与其差 17-8=9都是平方数,则称8和17是自然数对(8,17)。假定(a,b)与(a,b)是同一个自然数对,求所有小于或等于100 (即：a=100 , b=100,ab,a和b均不为0)的自然数对的数目。 1、采用For … Next 语句实现 。 Private Sub Form_Click() For a = 100 To 2 Step -1 For b = 1 To a - 1 i = Int(Sqr(a + b)) j = Int(Sqr(a - b)) If (i ^ 2 = a + b) And (j ^ 2 = a - b) Then s = s + 1 End If Next b Next a Print s End Sub 第十讲--综合程序设计（四） 十 100 三、已知a1=1，a2=1/（1+a1），a3=1/（1+a2）… 求a50，精确到小数点后3位。 1、采用Do While … Loop 语句实现 。 Private Sub Form_Click() i = 1 n = 0 Do While i = 50 m = 1 / (1 + n) n = m i = i + 1 Loop Print Round(m, 3) End Sub 第十讲--综合程序设计（四） 十 101 四、a,b,c是三个小于或等于100正整数,当满足1/a^2+1/b^2=1/c^2关系时,称为倒勾股数。例如 :(156,65,60)是倒勾股数,因为：1/156^2+1/65^2=1/60^2。求130A+B+C150且abc的倒勾股数有多少组,并输出符合条件的a，b，c? 1、采用For … Next 语句实现 。(方法一） Private Sub Form_Click() For c = 1 To 100 For b = 1 To 100 For a = 1 To 100 If (a + b + c) 130 And (a + b + c) 150 And _ 1 / b ^ 2 + 1 / a ^ 2 = 1 / c ^ 2 And a b And a c_ Then p = p + 1 Print a, b, c End If Next a Next b Next c Print p End Sub 第十讲--综合程序设计（四） 十 102 四、a,b,c是三个小于或等于100正整数,当满足1/a^2+1/b^2=1/c^2关系时,称为倒勾股数。例如 :(156,65,60)是倒勾股数,因为：1/156^2+1/65^2=1/60^2。求130A+B+C150且abc的倒勾股数有多少组,并输出符合条件的a，b，c? 1、采用For … Next 语句实现 。(方法二） Private Sub Form_Click() For c = 1 To 100 For b = c To 100 For a = b To 100 If (a + b + c) 130 And (a + b + c) 150 And _ 1 / b ^ 2 + 1 / a ^ 2 = 1 / c ^ 2 Then