vb程序计算并显示出三位正整数中的完全平方数的个数

我曾用VB编了一个“英语单词通”软件,各种功能十分丰富!你提到的那些功能对它来说简直小菜了,还有动画记忆呢!如需适用请给我50分我可发给你：yichuha@sina.com把你邮箱告诉我我给你发过去

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

#includeintmain(){inta,sum=0;scanf("%d",&a);while(a){sum+=a%10;a/=10;}printf("sum=%d\n",sum);return0

dimi,j,n,tasintegern=inputbox("n=")fori=1tonifimod2=0thent=i\2forj=2toint(sqrt(t))iftmodt=othenexitf

vb,通过公式计算得到一个数值,怎样取到小数点后三位,并...设你上面的E值要取三位小数点：【方法一】E=Round(Sqr((x1-x11)*(x1-x11)+(y1-y11)*(y1-y11))/

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

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

代码：#include <stdio.h>int sum(int n){\x05int s = 0;\x05while(n>

定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也

fpc:varn:string;a,b,i:longint;beginread(n);b:=0;a:=length(n);fori:=1toadob:=ord(n[i])-ord('0')+b;wri

PrivateSubCommand1_Click()Dima(10)RandomizeDimsumAsInteger,minAsInteger,maxAsIntegersum=0:min=100:ma

我来个C语言的吧voidmain(void){unsignedinta;printf("输入一个三位数:");scanf("%d",&a);printf("百位%d;十位%d;个位%d",a/100%

'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS

/>public class Test031 {    /**     *&nb

PrivateSubCommand1_Click()Dimk,a(1To30)Fori=1To30a(i)=Int(Rnd*800+100)Forj=1Toi-1Ifa(i)=a(j)Theni=i-

楼主看看这个：Private Sub Command1_Click()   Dim aNum(19) As Long,&

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

/>import java.util.Scanner;public class MyNum {\x09\x09private static 

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I