vb编程,输入一段英文,找出字母a出现次数最多的英文单词

全部转换成小写：Lcase(英文字符串)全部转换成大写：Ucase(英文字符串)再问：还可以复原的那个怎么弄呀再答：那更简单了，用一个变量暂时存储一下输入的英文，还原的时候=这个变量即可再问：可不可以

PrivateSubForm_Click()DimaAsVariantDimstrTAsStringDimiAsLonga=Split(Text1.Text,"")Fori=LBound(a)ToUB

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

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

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

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

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

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

VB函数大全可以满足你,你这种学习方法不对,Vb中有自动完成功能,不需要刻意去记忆,推荐一本书,清华大学出版的VB编程基础.

控件：1个文本框,1个按钮代码：PrivateSubCommand1_Click()a=Len(Text1.Text)b=0Fori=1ToaIf""=Mid(Text1.Text,i,1)Thenb

PrivateSubCommand1_Click()DimiAsInteger,myWord()AsString,myOutputAsString,myTempAsString,myMaxAsInte

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

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

这样写.for语句你懂吧.#include"stdio.h"main(){charc;inti=0,j=0,k=0,l=0;while((c=getchar())!='\n'){if(c>=65&&c

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

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

算法没问题,按你的代码,调整了一下PrivateSubCommand1_Click()Dima!,b!,c!a=Val(InputBox("请输入a"))b=Val(InputBox("请输入b"))

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

建立控件数组Text2(0To9)PrivateSubCommand1_Click()DimSumAsDoubleForI=Val(Text1.Text)-1To0Step-1Sum=Val(Text

SetValue()这个方法在现行元素插入新的价值,替换现有的价值.DeleteCurrent()这个方法从本文去除当前结.记住,您有创造的XPathNavigator二个基本的选择：使用XPathD