在一个文本框中输入一个英文句子,找出最长的那个,显示在文本框 VB-搜答案-搜搜考试网

你好;因为循环结束后,最后一组单词没有添加到list里的原因,在循环结束的外面添加List1.AddItemc就ok了,希望能帮到你：）如果最后一位也是空格的话,就在循环外加个条件：ifc""then

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

在excel很容易实现,在A1单元格输入任意三位数B1=MID(A1,1,1)C1=MID(A1,2,1)D1=MID(A1,3,1)下拉

其实就是做一个JS.注：这个是一个模板（雏形）,没有深入判断输入的是否是字母.

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

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

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

下面是我的代码,你也可以优化一下.PrivateSubCommand1_Click()cmdlength=Text1.TextIfLen(Text1.Text)>=3Thencmdmi=Mid(Tex

方法1限制单词长度:#include#include#includeintmain(){charc,*pstr;charszWord[16];while(1){pstr=szWord;while((c

不知道你要用什么语言来写,这里用js来做示例,反正限制只能输入数字的正则表达式是一样用的,就是^[0-9]*$,你在别的语言里也一样用.下面是例子：<html><head>&l

请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(

创建一个VB工程,在窗体上放置一个文本输入框text1,一个标签Label1,三个按钮,名称分别为Command1“开始”Command2“暂停”Command3“退出”再加入一个定时器timer1,

PrivateSubCommand1_Click()Dimss=Val(Trim(InputBox("个人收入：","个人所得税计算",2000)))Print"个人收入为";s;"元时,应缴纳的个人

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

如果你是学生,课本上肯定能找到答案,也许不是太现成,但只要稍微看看一定做得出来

在计算按钮用如下代码：sum=0FORi=1TOthisform.text1.Valuesum=IIF(MOD(i,3)=0,sum+i,sum)ENDFORthisform.text2.Value=

(\d)+.(\d)+,(\d)+.(\d)+

输入待测字串: 根据需要自己修改.

privatesubCommand1_Click()n=0strold=""s=text1.textfori=1tolen(s)strnew=ucase(mid(s,i,1))if(strold"Z"

用excel做的,打开excel文件,在sheet1上点右键,查看代码就可以了1的程序代码PrivateSubCommandButton1_Click()IfVal(TextBox1.Text)Mod