湖南省计算机二级Visual Basic考试.doc

Visual Basic编程题分类稿题型一：根据文字提示，找出数列的组成规律，即如何由已知项求出下一项，这样，经过若干次更迭，可求出数列中任何项，也可以求出前若干项的和。1、 已知数列前3项为0、0、1，以后每项为前3项的和，求此数列的第36项。（334745777）10方法一：Private Sub Form_Click()Dim a&, b&, c&, d&, n%a = 0: b = 0: c = 1For n = 1 To 33 Step 1 d = a+b+c a = b b = c c =dNext nPrint dEnd Sub方法二：Private Sub Form_Click()Dim d(36) As Double, n As Integerd(1) = 0d(2) = 0d(3) = 1For n = 4 To 36 d(n) = d(n - 1) + d(n - 2) + d(n - 3)Next nPrint d(36)End Sub2、 计算y=1+2/3+3/5+4/7+n/(2*n-1) (n=50), 要求：按四舍五入的方式精确到小数点后第二位。 (26.47)Private Sub Form_Click()Dim s As Single, n as integers = 0For n = 1 To 50s = s + n / (2 * n - 1)Next nPrint Round(s, 2)End Sub3、 求数列2/1,3/2,5/3,8/5,，的前10项的和。（16.47991）方法一：private sub form_click()dim I%,a%,b%,t%,s!a=2:b=1for I=1 to 10 step 1 s=s+a/b t=a a=a+b b=tnext Iprint send sub方法二：Private Sub Form_Click()Dim d(10) As Single, n As Integer, s As Singled(1) = 2 / 1s = 2 / 1For n = 2 To 10 d(n) = 1 + 1 / d(n - 1) s = s + d(n)Next nPrint sEnd Sub4、 编程求fibonacci数列：1，1，2，3，5，8的前30个数的和。(2178308)方法一：Private Sub Form_Click()Dim a&, b&, c&, s&a = 1:b = 1:s = 2For i = 3 To 30 c = a + b s = s + c a = b b = cnext iprint sEnd Sub 方法二：Private Sub Form_Click()Dim d(30) As Double, n As Integer, s As Doubled(1) = 1d(2) = 1s = 2For n = 3 To 30 d(n)=d(n-1)+d(n-2)Next i Print sEnd subNext nPrint sEnd sub5、 编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。 （4720）Private Sub Form_Click()Dim a%, b%For a = 0 To 6 For b = 0 To 3 If a + (a + b) + (a + 2 * b) + (a + 3 * b) = 26 And a * (a + b) * (a + 2 * b) * (a + 3 * b) = 880 Then Print a 3 + (a + b) 3 + (a + 2 * b) 3 + (a + 3 * b) 3 + (a + 4 * b) 3 End If Next bNext aEnd Sub6、 猴子吃桃问题：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。 (1534)方法一：Private Sub Form_Click()Dim day As Integer, sum As Integerday = 10: sum = 1Do While day 1sum = (sum + 1) * 2day = day - 1LoopPrint sumEnd Sub方法二：Private Sub Form_Click()Dim day As Integer, sum As Integerday = 10: sum = 1For day = 9 To 1 Step -1 sum = (sum + 1) * 2Next dayPrint sumEnd Sub7、 我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?（9）Private Sub Command1_Click()Dim s&, n%n=0s = 45600Do While s a + b Then n = n + 1 End IfNext iPrint nEnd Sub8、 有一个三位数满足下列条件: (1)三位数字各不相同; (2)此数等于它的各位数字的立方和。Private Sub Form_Click()Dim i%, n%, a%, b%, c%n = 0For i = 100 To 999 a = i 100 b = (i - a * 100) 10 c = i Mod 10 If a b And b c and ac And a 3 + b 3 + c 3 = i Then n = n + 1 End IfNext iPrint nEnd Sub题型三：用“穷举法”将所有可能的结果组合都考虑到，然后从这些结果组合中根据给定条件选择出满足题目要求的结果组合。1、 求方程8x5y=3在|x|=150,|y| max Then max = Abs(x) * Abs(y) End If End If Next yNext xPrint n, maxEnd Sub2、 把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币张数可以为0）Private Sub Form_Click()Dim i%, j%, k%, n%n = 0For i = 0 To 20 For j = 0 To 20 For k = 0 To 20 If 1 * i + 2 * j + 5 * k = 50 And i + j + k = 20 Then n = n + 1 End If Next k Next jNext iPrint nEnd Sub 3、 百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。（3）Private Sub Form_Click()Dim i%, j%, k%, n%n = 0For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If 5 * i + 3 * j + k / 3 = 100 And i + j + k = 100 Then n = n + 1 End If Next k Next jNext iPrint nEnd Sub4、 求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是09之间的一位整数。（5）private sub form_click()Dim i%, j%, k%, n%n = 0for i = 0 to 9for j = 0 to 9for k = 0 to 9if i * 100 + j * 10 + k + k * 100 + j * 10 + i = 1534 then n = n + 1end ifnext knext jnext iprint nend sub5、 有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？（9）Private Sub Form_Click()Dim i%, j%, k%, n%n = 0For i = 1 To 30 For j = 1 To 30 For k = 1 To 30 If 3 * i + 2 * j + k = 50 And i + j + k = 30 Then n = n + 1 End If Next k Next jNext iPrint nEnd Sub6、 求方程9x+4y=1000的正整数解的组数以及|x-y|的最大值。（27，237）Private Sub Form_Click()Dim x%, y%, n%, max&n = 0: Max = 0For x = 1 To 111 For y = 1 To 250 If 9 * x + 4 * y = 1000 Then n = n + 1 If Abs(x - y) Max Then Max = Abs(x - y) End If End If Next yNext xPrint n, MaxEnd Sub7、 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？ （23）题型四：也是求某范围内满足条件的数的和，但不能遍历给定范围的所有数，因为题目要求在满足另一条件时强制结束循环。1、 求1到5000之间的能被5整除的前若干个偶数之和，直到和大于500为止。（550）方法一：Private Sub Form_Click()Dim s%, x%s = 0For x = 2 To 5000 Step 2 If x Mod 5 = 0 Then s = s + x End If If s 500 Then Exit For End ifNext xPrint sEnd Sub方法二：Private Sub Form_Click()Dim s%, x%s = 0x = 1Do While s = 500 If x Mod 5 = 0 And x Mod 2 = 0 And x = 5000 Then s = s + x End If x = x + 1LoopPrint sEnd Sub2、 已知：S=1+3+5+7+9+，求S不大于750的最大值。（729）方法一：Private Sub Form_Click()Dim s%, x%s = 1x = 1Do While s 750 Then s = s - x s此时已经750,必须减去刚加上去的x Exit Do 跳出do whileloop循环 End If x = x + 2LoopPrint sEnd Sub3、 已知：S=2+4+8+16+32+，求S不大于1500的最大值。（1022）Private Sub Form_Click()Dim s%, x%s = 2x = 2Do While s = 1500 x = 2 * x s = s + xLoops = s - xPrint sEnd Sub题型五：完全平方数 弄清楚完全平方数所具有的特征，再将此特征作为选择语句的条件对指定范围内的数进行判断。1、 统计10009999之间的完全平方数的个数，如：25=52，25就是一个完全平方数。（68）方法一：Private Sub Form_Click()Dim i%, n%, j%n = 0For i = 1000 To 9999 For j = 30 To 100 If i = j * j Then n = n + 1 End If Next jNext iPrint nEnd Sub方法二：Private Sub Form_Click()Dim i%, n%n = 0For i = 1000 To 9999 If Sqr(i) = Int(Sqr(i) Then n = n + 1 End IfNext iPrint nEnd Sub2、 统计10009999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和为12，第2位与第4位数字之积为24。（1）Private Sub Form_Click()Dim i%, n%方法二： a = i 1000 千位 b = i100 mod 10 百位 c = i10 mod 10 十位 d = i mod 10 个位n = 0For i = 1000 To 9999a = i 1000 b = (i - 1000 * a) 100 c = (i - 1000 * a - 100 * b) 10 d = i Mod 10 If Sqr(i) = Int(Sqr(i) And a + c = 12 And b * d = 24 Then n = n + 1 End IfNext iPrint nEnd Sub题型六：与因子有关的问题，需要用双重循环来解决。1、 求100,200间有奇数个不同因子的整数的个数。（5）Private Sub Form_Click() m = 0 保存有奇数个不同因子的整数的个数For i = 100 To 200 n = 0 保存i的不同因子的个数 For j = 1 To i If i Mod j = 0 Then n = n + 1 End If Next j If n Mod 2 = 1 Then 判断i的不同因子的个数是否是奇数 m = m + 1 End IfNext iPrint mEnd Sub2、 求 200,300之间的有奇数个不同因子的最大整数。（289）方法一：Private Sub Form_Click()Dim m%,i%,n%,j%,max%m = 0: Max = 1For i = 200 To 300 n = 0 For j = 1 To i If i Mod j = 0 Then n = n + 1 End If Next j If n Mod 2 = 1 Then Max = i End IfNext iPrint MaxEnd Sub方法二：Private Sub Form_Click()Dim i%, j%, n%For i = 300 To 200 step -1 n = 0 For j = 1 To i If i Mod j = 0 Then n = n + 1 End If Next j If n Mod 2 = 1 Then Print i Exit For End IfNext iEnd Sub3、 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问100,300之间有多少个这样的数。（19）Private Sub Form_Click()Dim m%,i%,n%,j%m = 0For i = 100 To 300 n = 0 For j = 1 To i If i Mod j = 0 Then n = n + 1 End If Next j If i Mod n = 0 Then m = m + 1 End IfNext iPrint mEnd Sub4、 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出400以内的所有完数之和。(34)Private Sub Form_Click()Dim s%,i%,t%,j%s = 0 保存完数的和For i = 1 To 400 t = 0 保存i的所有小于它本身的因子之和 For j = 1 To i - 1 If i Mod j = 0 Then t = t + j End If Next j If t = i Then 判断i是否符合完数的条件 s = s + i End IfNext iPrint sEnd Sub其他：关键在于弄清楚要选择出来的数所具备的特征。1、 3，500内所有素数之和。（21534）方法一：Private Sub Form_Click()dim i%,s%s=0 保存素数的和for i=3 to 500 for j=2 to i-1 若内循环正常结束，说明i是素数，此时j的值为i；否则i不是素数，此时j的值小于等于i-1if i mod j =0 then exit forend if next j if j=i then 根据j的取值，判断i是否为素数s=s+i end ifnext iprint send sub方法二：Private Sub Form_Click()Dim i%, s%s = 0 保存素数的和For i = 3 To 500 n = 0 n用来统计i的因子的个数 For j = 2 To i - 1 If i Mod j = 0 Then n = n + 1 End If Next j If n = 0 Then s = s + i End IfNext iPrint sEnd Sub2、 求1，1000之间有多少个同构数。同构数是这样一个数，它出现在它的平方数的右侧，例如：5的平方是25，25的平方是625，故5和25都是同构数。 (7)Private sub form_click( )Dim i&,n%n=0For i=1 to 1000 j=i*iIf i=(j mod 10 ) or i=(j mod 100) or i=(j mod 1000) then i有可能为1位数、2位数、3位数,所以三个条件中只要满足一个条件即可。 n=n+1End ifNext iPrint nEnd sub3、 编写程序，求出3到200之间的所有非偶数非素数的数的个数。（54）Private Sub Form_Click()Dim s%, n%, i%s = 0For n = 3 To 200 Step 2 For i = 2 To n - 1 If n Mod i = 0 Then s = s + 1 Exit For i是n的一个因子，所以n是非素数，exit for 调出内层循环，去取下一个n End If Next iNext nPrint sEnd Sub原始稿141. 编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是09之间的一位整数。 62. 编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的和。15923763. 编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的和。 204544. 编写程序，求三位数的奇数中，所有各位数字之和是15的倍数的数的和。197315. 编写程序，求三位数的奇数中，所有各位数字之和是12的倍数的数的和。 202926. 编写程序，求三位数的奇数中，所有各位数字之和是12的倍数的数的个数。 387. 编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。12985158. 编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的个数。349. 编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。 28884010. 编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500时退出，输出该和值。 55011. 编写程序，求在3000以内能被17或者23整除的正整数的个数。 29912. 编写程序，求在1000以内能被17或者23整除的正整数的个数。9913. 一个数如果刚好与它所有的因子之和相等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。 49614. 编写程序，求在5000以内能被17或者23整除的正整数的个数。 49915. 一个数如果刚好与它所有的因子之和相等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出1000以内的所有的完数之和。 53016. 编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的个数。 30617. 一个数如果刚好与它所有的因子之和相等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出1000以内的完数的个数。 318. 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。 33474577719. 一个数如果刚好与它所有的因子之和相等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出10000以内的完数的个数。 420. 编写程序，求四位数的偶数中，所有各位数字之和是24的倍数的数的个数。 18721. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出400以内的所有完数之和。 3422. 编写程序，求四位数的偶数中，所有各位数字之和是24的倍数的数的和。 129832823. 编写程序，计算在050的范围内有多少个数，其每位数的乘积大于每位数的和。 2324. 编写程序，求出17000以内能被3或者7整除的数的个数。 300025. 编写程序，计算在050的范围内有多少个数，其每位数的乘积小于每位数的和。 2626. 编写程序，求出13000以内能被3或者5整除的数的个数。 140027. 用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚) 1328. 编写程序，求出15000以内能被3或者7整除的数的个数。 214229. 用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为30枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚) 430. 编写程序，求出16000以内能被3或者5整除的数的个数。 280031. 用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚) 1132. 把18元钱分成一元、二元和五元的纸币且纸币张数共为10张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币张数可以为0） 333. 把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币张数可以为0） 434. 编写程序，求出14000以内能被3或者11整除数的个数。 157535. 编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的个数。 1236. 编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的和。 367837. 编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是125的倍数的数的和。 16109538. 编写程序，求出100到400之间同时满足除3余2和除5余3条件的数的个数。 2039. 编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是60的倍数的数的和。 345625440. 编写程序，求出100到400之间同时满足除3余2和除5余3条件的数的和。 511041. 编写程序，求出100到200之间同时满足除3余2和除5余3条件的数的个数。 642. 所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-900之间的所有回文数的个数。 8043. 所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-200的范围内所有回文数的和。 146044. 所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范围内所有能被3整除的回文数的个数。 2645. 编写程序，求出1到300之间同时满足除3余2和除5余3条件的数的个数。 2046. 编写程序，求出100到500之间同时满足除3余2和除5余3条件的数的个数。 2647. 所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范围内所有能被3整除的回文数的和。 1298748. 编写程序，求出1到400之间同时满足除3余2和除5余3条件的数的个数。 2749. 编写程序，求出100到600之间同时满足除3余2和除5余3条件的数的个数。 3350. 编写程序，求出1到600之间同时满足除3余2和除5余3条件的数的个数。 4051. 编写程序，已知：S=2+4+8+16+32+，求S不大于2500的最大值。 204652. 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？ 2353. 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求兔值多少钱？ 2954. “水仙花数”是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至400的范围内有多少个水仙花数。 355. 编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是30的倍数的数的和。 341520656. 编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是18的倍数的数的和。 863859657. 编写程序，求在四位数的偶数中，所有各位数字之和是6的倍数的数的和。 413524858. 水仙花数是指这样的数，其各位数字的立方和等于该数本身。编写程序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。 459. 所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。 1160. 所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。 13161. 编写程序，计算1，1000以内有多少个这样的数，该数既能被6整除又能被8整除。 4162. 编写程序，求出3到200之间的所有非偶数非素数的数之和。 577463. 编写程序，求出3到100之间的所有非偶数非素数的数之和。 144164. 编写程序，求出3到100之间的所有非偶数非素数的数的个数。 2565. 编写程序，求出3到200之间的所有非偶数非素数的数的个数。 5466. 编写程序，计算在0至99的范围内有多少个数，其每位数的乘积大于每位数的和。 6367. 编写程序，计算在0至99的范围内有多少个数，其每位数的乘积小于等于每位数的和。 3768. 水仙花数是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至500的范围内有多少个水仙花数。 469. 编写程序，求在101000之间所有能被4除余3，被7除余5，被9除余2的数之和。 170070. 编写程序，求在2001000之间所有能被4除余3，被7除余5，被9除余2的数之和。 165371. 编写程序，计算1000以内有多少个这样的数，其个位数为6且该数能被9整除。 1172. 编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。 1573. 编写程序，求出1到5000之间的能被7整除的前若干个数之和，当和值大于等于1500时退出并输出和值。 161774. 水仙花数是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至999的范围内有多少个水仙花数。 475. 编写程序，求出1到3000之间的能被3整除的前若干个数之和，当和值大于600时退出并输出和值。 63076. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出600以内的所有完数的平方和。 24683677. 编写程序，求出1到2000之间的能被9整除的前若干个数之和，当和值大于500时退出并输出和值。 59478. 编写程序，求在101000之间所有能被4除余3，被7除余4，被9除余4的数之和。 178079. 编写程序，求出1到6000之间的能被5整除的前若干个偶数之和，当和值大于650时退出并输出和值。 66080. 编写程序，求在2001000之间所有能被4除余3，被7除余4，被9除余4的数之和。 171381. 编写程序，求出1到7000之间的能被5整除的前若干个偶数之和，当和值大于500时退出并输出和值。 55082. 编写程序，求在2001000之间所有能被5除余3，被7除余5，被9除余7的数之和。 188483. 编写程序，求出1到4000之间的能被5整除的前若干个偶数之和，当和值大于400时退出并输出和值。 45084. 编写程序，求在5001000之间所有能被5除余3，被7除余5，被9除余7的数的平方和。 128363385. 编写程序，求出1到8000之间的能被5整除的前若干个偶数之和，当和值大于750时退出并输出和值。 78086. 编写程序，求在101000之间所有能被4除余3，被7除余4，被9除余4的数的平方和。 110962087. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3。求出10000以内的所有完数之和。 865888. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出1000以内的所有完数的平方和。 24683689. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。 11090. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是18的倍数，且D=6 ,A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。 1091. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是16的倍数，且B=8，,A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。 592. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是18的倍数，且C=7，A+B=C+D，即第1位数加上第2位数等于第3位数加上第4位数。 993. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+D=B+C，即第1位数加上第4位数等于第2位数加上第3位数。 7794. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是15的倍数，且A+D=B+C，即第1位数加上第4位数等于第2位数加上第3位数。 4595. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是9的倍数，且A= B+C，即第2位数加上第3位数等于第1位数。 6496. 编写程序，求在2002000之间所有能被4除余2，被7除余3，被9除余5的数之和。 7910编写程序，求在101000之间所有能被4除余2，被7除余3，被9除余5的数之和。 200097. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是11的倍数，且A=B+C，即第2位数加上第3位数等于第1位数。 4998. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+C=B，即第1位数加上第3位数等于第2位数。 5799. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是5的倍数，且A+D=B+C，即第1位数加上第4位数等于第2位数加上第3位数。 123100. 编写程序，求一正整数等差数列的前六项的平方和，该数列的前四项之和是26、之积是880。 699101. 编写程序，统计200400之间的所有满足三个数字之积为42，三个数字之和为12的数的个数。 4102. 编写程序，统计200300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。 2103. 编写程序，统计10009999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和