vb三位正整数中的完全平方数的个数

(a+b+c)^2(a-b-c)^2(a+c-b)^2(-a-b-c)^2答案：(a+b+c)^2=a^2+b^2+c^2+2ab+2bc+2ac(-a-b-c)^2=a^2+b^2+c^2+2ab+

PrivateSubCommand1_Click()Dimx,y,z,a,bAsIntegerFora=10To31'9的平方是2位数,所以从10开始,32的平方是4位数,所以到31为止b=a*ax=

if(a/100==a%100/10||a/100==a%10||a%100/10==a%10)printf("%5d",a);b++;交换位置下面是我编写的#includeintmain(){int

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

2*2*2*3*3=72

先把产生的三个随机数保存在一个数组中,输出该三个随机数,然后将数组中的逆序并输出,

a=2992^2+2992^2*2993^2+2993^2=2992^2-2*2992*2993+2993^2+2*2992*2993+2992^2*2993^2=(2992-2993)^2+2*29

Fori=1To1000s=Str(Sqr(i))IfInStr(s,".")=0ThenForj=1ToLen(s)s1=Mid(s,j,1)Fork=j+1ToLen(s)Ifs1=Mid(s,k

(m+1)^2=m^2+2m+1m^2+m+7＞m^2,故要使得m^2+m+7为完全平方数,需m^2+m+7≥m^2+2m+1(两相邻完全平方数间无完全平方数)m≤6经过检验,m=1,m=6时m^2+

解“由题意可得，这些数可以写为：12，2，3，22，5，6，7，8，32…第k个平方数与第k+1个平方数之间有2k个正整数而数列12，2，3，22，5，6，7，8，32…452共有2025项，去掉45

45*45=2025,46*46=2116由上面两式子可知不删除完全平方数时第2116项对应删除完全平方数的2116-45=2071项,删除完全平方数的第2005项就对应不删除完全平方数的2116-（

dimi,a,b,totalAsIntegerfora=0to9forb=0to9if(800+a*10+b)mod3=0Thenprint(800+a*10+b)total=total+1endif

PrivateSubForm_Load()'函数'MID取字符串中间N个字符'调用格式mid(要取部分字符的字符串,要取的字符的位置,要取的字符的长度)'三位数的个位数就是mid(三位数,3,1)个位

三位数既是完全平方数,又有两位数字相同100、121、144、225、400、441、484、676、900共9个.

在正整数数列中,第2005项本来为：2005与它相邻的完全平方数为：44*44＝1936和45*45＝2025所以,去掉前44个完全平方数后,2005项为2005+44＝2049>2025所以,还要去

PrivateSubCommand1_Click()Fori=100To999IfiMod3=0Andi\10Mod10=5ThenPrinti;n=n+1IfnMod5=0ThenPrints=s+

设a^2+2004a=k^2（k为正整数）,即a^2+2004a-k^2=0,因为a为正整数,所以原方程的判别式为完全平方数（若不是,则根据求根公式,得到a不是整数,矛盾）,所以再设判别式△=n^2,

Private Sub Command1_Click()    Dim a%(0 To 19), b

设新数列第2009项为N,在数字N之前有X个完全平方数2009+X>=X^2计算得-44.32

你确定是正整数吗.为什么我算出来是-3啊.再问：是数不对吗？再答：我觉得可能题有问题，因为算出来是个负整数嘛再问：谢谢。