vb程序设计查找最长的单词

四个标签lab1(0),lab1(1),lab1(2),lab1(3),caption为1-3月,4-6月,7-9月,10-12月四个文本框text1(0),text1(1),text1(2),tex

再答：再答：再答：再答：可以吗？再答：谢谢好评！

popularboil煮的意思~cake?

假设要比较的三个数输入在Text1,text2,text3,结果放在text4PrivateSubCommand1_Click()Dima,b,c,dAsDoublea=Val(Text1.Text)

程序设计会涉及到三种运算,这三种运算符以及优先级：1,算术运算符：①*、/②\③mod④＋、－2,关系运算符：,=3,逻辑运算符：①Not,②And,③Or如果一个式子里只有一种运算那么关系运算没有优

PrivateSubCommand1_Click()Dims$,i%,sMax$,sArr$()s=InputBox("任意输入一个英文句子","输入英文","Hello,thisisatestcom

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

单击Command1即可.代码如下.DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,SAsSinglePrivateSubCommand1_Click()OnEr

PrivateSubCommand1_Click()RandomizeTimerFori=1To100x=Int(Rnd()*90+10)IfxMod2=0Thenm=m+xElsen=n+xEndI

(1)integer(2)step2(3)nexti再问：1呢？！！再答：有了

DimnAsIntegerDimmAsDoubleDimiAsIntegern=Val(TextBox1.Text)Ifn>0Thenm=0Fori=1Tonm=m+(n/(n+1))NextiLab

PrivateSubCommand1_Click()DimsAsIntegerFori=100To200IfiMod3=0AndiMod70Thens=s+iNextiPrint"所求的和为："&sE

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

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

’3个label,2个commandPrivateSubCommand1_Click()Dims,i,j,arr(1To10),t,sumFori=1To10s=InputBox("输入评分（0-10

fori=2to88sum=sum+inextprintsum

'是这意思?PrivateSubForm_Activate()DimiAsIntegerFori=1To8Ifi=1ThenPrint"※"ElsePrint"※"&Space(2*(i-2))&"※

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

0本来就是偶数>_

第三版VB程序设计教程课后习题答案龚沛曾陆慰民杨志强主编的发到我已发送,请查收.PS：邮箱提示发送失败,请确认邮箱是否正确.