VB编程实现:找出一个英文句子中最长的单词,并输出其长度

VB6.0版本的可以吗?我用的是构成法.Option ExplicitDim a, b, c, d, nPrivate Sub&n

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

PrivateSubCommand1_Click()Dimstra()AsString,changduAsIntegerstra=Split(Text1.Text,"")Fori=LBound(str

主要问题在for(i=0;(c=a[i])!='\0';i++);这行的分号上,这里加了分号等于在这个循环中程序不执行任何操作!当然后面花括号中的语句也不会执行.还有个小问题,按你的写法,num的初值

#includevoidmain(){charx[100];inti;printf("请输入英语句子\n");gets(x);x[0]=x[0]-32;for(i=1;x[i]!='\0';i++){

判断素数的原理是：素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数（能被1,3,9整除）.编程的算法是：穷举法,就是将需要判断的数除2、除3.一直除到这

PrivateSubCommand1_Click()IfText1.Text=""ThenExitSubDimwordAsVariant,sAsStringDimkAsInteger,maxwAsSt

输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的PrivateSubForm_Click()DimaAsVariantDimstrTAsStringDimi

PrivateSubform_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("请输入x值:"))Ifx

Dimb()AsStringb()=Split(a,"")然后判断每一个b数组每一个数据的len即可

PrivateSubCommand1_Click()Dima()AsString,xAsIntegera=Split("7,8,54,69,12,32",",")Randomizet=Int(6*Rn

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

代码如下：dimi,a(100)asintegerrandomizefori=0to99a(i)=int(rnd*(100-1+1))+1'这是一个公式,next

PrivateSubCommand1_Click()Dima,b,cAsIntegerDimmaxRandomizea=Int(900*Rnd+100)b=Int(900*Rnd+100)c=Int(

'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf

1.不明白你是什么意思2.逆序输出PrivateSubText1_Change()Text2=Right(Text1,1)&Left(Text1,1)EndSub3.华氏转摄氏PrivateSubTe

PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re

用递归吧,省时省力,代码如下:OptionExplicitPrivateSubCommand1_Click()MsgBoxcal(103601)EndSubFunctioncal(ByValnAsLo

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton