vb输入一行英文句子,找出其中最长funtion
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/30 08:13:45
在窗口上放两个控件,一个text1,一个command1,并注意窗口不要太小、控件不要太靠窗口的顶部.程序如下:PrivateSubcommand1_click()DimLAsInteger,SAsS
如果要判断句子中的英文单词是否正确,那就很麻烦的.如果不要判断单词的正确性,仅仅假设句子中.单词以空格分隔,那么就比较容易实现了.思路:1.计算句子的长度,字符数L2.ZFS----存放英文单词所用到
PrivateSubCommand1_Click()Dimstra()AsString,changduAsIntegerstra=Split(Text1.Text,"")Fori=LBound(str
在main函数中调用测字符串长度函数,用while(i='.')就结束读字符然后输出就好啦!给你思想,程序还是自己写.再问:啊、是指针题啊,函数调用还没有学过。。。再答:main(){inti;cha
PrivateSubCommand1_Click()IfText1.Text=""ThenExitSubDimwordAsVariant,sAsStringDimkAsInteger,maxwAsSt
输入一段英文短文,将其中每个单词的首字母改为大写,若有两个或两个以上的PrivateSubForm_Click()DimaAsVariantDimstrTAsStringDimi
#include#includevoidmain(){charsen[256];intben=0,men=0,spa=0,num=0,oth=0;inti;gets(sen);for(i=0;i='A
#includemain(){intletter=0,number=0,blank=0,other=0;\\分别用来统计字母,数字,空格和其它字符的个数charc;\\用来读取字符while((c=g
#includevoidmain(){\x09intletter,space,number,other;\x09charch;\x09letter=space=number=other=0;\x09w
Dimb()AsStringb()=Split(a,"")然后判断每一个b数组每一个数据的len即可
请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(
PrivateSubCommand1_Click()DimiAsInteger,myWord()AsString,myOutputAsString,myTempAsString,myMaxAsInte
有个缺陷,如果是thisisatest,则把a也大写了,不知道这样是不是符合你的要求.(按你的题目讲是正确的)如果不符合,则稍加个判断即可.#include#includeintmain(){char
PrivateSubCommand1_Click()Dima,b,cAsIntegerDimmaxRandomizea=Int(900*Rnd+100)b=Int(900*Rnd+100)c=Int(
#includevoidmain(){charq[100];char*p;inta=0,b=0,c=0,d=0,e=0,f=0,i;p=q;for(i=0;i再问:请问这是什吗意思?for(i=0;i
'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf
a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif
vars:string;l,i:longint;beginreadln(s);{输入s字符串}l:=0;{l是A的个数,先清零}fori:=1tolength(s)do{length(s)是求s的长度
vars,z:string;i,j:longint;a:array[1..1000]ofinteger;beginreadln(s);readln(z);fillchar(a,sizeof(a),0)
privatesubCommand1_Click()n=0strold=""s=text1.textfori=1tolen(s)strnew=ucase(mid(s,i,1))if(strold"Z"