资源描述：
《湖南省计算机二级题库3程序填空》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、【1】：求方程5X-4Y=2，在
2、X
3、<=100,
4、Y
5、<=50内的整数解中
6、X
7、+
8、Y
9、最大值。PrivateSubForm_click()Max=0Forx=-100To100Fory=-50To50If5*x-4*y=2Thens=Abs(x)+Abs(y)________________________________EndIfNextyNextxPrintMaxEndSub 【86】 【2】：统计[521,8421]之间有多少个这样的整数,其各位数字之和能被7整除。PrivateSubcmdEveryNumCount_Click()D
10、imcountAsIntegercount=0FontSize=14:FontBold=TrueFori=521To8421SelectCaseiCase521To999a=i100b=i10Mod10c=iMod10If(a+b+c)Mod7=0Thencount=count+1Case________________a=i1000b=i100Mod10c=i10Mod10d=iMod10If(a+b+c+d)Mod7=0Thencount=count+1EndSelectNextiPrintcountEndSub 【1126】 【
11、3】：设某四位数的各位数字的平方和等于100，共有多少个这种四位数？PrivateSubcmdFourSqr_Click()Dima,b,c,d,i,countAsIntegercount=0i=1111FontSize=14:FontBold=TruePrint:Print:PrintDoUntili>9999a=i1000b=(iMod1000)100c=________________d=iMod10If100=a^2+b^2+c^2+d^2Thencount=count+1i=i+1LoopPrintcountEndSub 【49】
12、 【4】：求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的和。PrivateSubForm_click()DimsAsIntegerDimxAsIntegerDimaAsIntegerDimbAsIntegerDimcAsIntegers=0x=100DoWhilex<=999a=Int(x/100)b=Int(x/10)-a*100c=x-a*100-b*10IfThens=s+xx=x+1LoopPrintsEndSub 【21980】 【5】：求三位数中，个位数字与十位数字之和除以10所得的余数是百位
13、数字，且百位数字是偶数的数的个数。PrivateSubForm_click()DimsAsIntegerDimxAsIntegerDimaAsIntegerDimbAsIntegerDimcAsIntegers=0x=100DoWhilex<=999a=Int(x/100)b=Int(x/10)-a*100c=x-a*100-b*10If______________________Thens=s+1x=x+1LoopPrintsEndSub 【40】 【6】：“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如:153=1^3+5^3+
14、3^3。求100至999的范围内所有水仙花数之和。PrivateSubcmdDaffodilSum_Click()Dimi%,a%,b%,c%,sum%FontSize=14:FontBold=TruePrint:Print:Printsum=0i=100Doa=i100b=i10Mod10c=iMod10Ifi=a^3+b^3+c^3Thensum=sum+iEndIfi=i+1________________PrintsumEndSub 【1301】 【7】：“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如:153=1^3+
15、5^3+3^3。求100至999的范围内水仙花数的个数。PrivateSubcmdDaffodilCount_Click()Dimi%,a%,b%,c%,count%FontSize=14:FontBold=Truecount=0i=100Doa=i100b=(i-100*a)10c=iMod10Ifi=a^3+b^3+c^3Thencount=count+1EndIfi=i+1________________PrintcountEndSub 【4】 【8】：若两素数之差为2，则称两素数为双胞胎素数，编程求[200,1000]之间有多少对双
16、胞胎素数。PrivateSubcmdTwinsPrime_Click()Dimk,prime,j,i,CountAsInt
