VB编一函数过程,实现任意输入一串字母,分别统计26个字母的个数

PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,zAsSinglea=InputBox("输入a的值","")b=InputBox("输入

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

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

在窗体上添加一个按钮,加入如下代码“PrivateSubCommand1_Click()DimN'因为你说的是任意正整数,所以没有给变量指定变量类型DimIAsIntegerDimLAsInteger

PrivateFunctionSUM(Fir_LAsDouble,Fir_SAsDouble,Scend_LAsDouble,Scend_SAsDouble)AsDoubleSUM=Fir_L*Fir

privatefunctiony(xassingle,nasinteger,a()assingle)asdoubley=g(x)+h(x+3,n,a())+g(2*x)printyendfunctio

创建两个text控件和一个command按钮控件再输入以下代码PrivateSubCommand1_Click()Fori=1ToLen(Text1.Text)a=Mid(Text1.Text,i,1

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

dimrassingle,sassingler=inputbox("请输入圆的半径：")s=3.14159*r^2print"圆的面积是：";s

#includeintfunc(intm){inti;for(i=2;i*i>m;\x05if(func(m))\x05{\x05\x05cout

publicf(byvalnasinteger)aslongifn=1thenf=1elsef=f(n-1)+nendifendfunction

defb():list1=[]while1:a=input()ifa=='.':breaklist1.append(eval(a))avg=sum(list1)/len(list1)returnavg

FunctionAverage(mySinge()AsSingle)AsSingleDimsnAsSingleDimcnAsInteger,iAsIntegercn=UBound(mySinge)-L

去http://www.softhy.net/找一下吧

PrivateSubCommand1_Click()DimiAsIntegerFori=1To10Sum=Sum+jc(i)NextMsgBoxSumEndSubFunctionjc(aAsInteg

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

Private Sub zgc(x, diff)    Dim i As Integer 

全是int型的.ABCA=ABC/100；B=ABC/10-A*10；C=ABC%10；然后打印出来就是

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sAsSingle,nAsStringn=InputBox("enterdatan:")Fori=

#includeintGcd(intM,intN){intRem;while(N>0){Rem=M%N;M=N;N=Rem;}returnM;}voidmain(){inta,b