vb用顺序结构编程 输入球体的半径r,求球体的表面积和体积(

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

dimx,y,k,basintegerk=3b=1x=inputbox("x=")y=k*x+bprinty

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

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

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

代码：Private Sub Command1_Click()    Call max100End SubSub&nbs

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

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

PrivateSubCommandButton1_Click()DimnNumAsLongIfIsNumeric(TextBox1.Text)ThennNum=Val(TextBox1.Text)If

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

PrivateSubCommand1_Click()Dimsum,aAsIntegerFori=1To7a=InputBox("")sum=sum+aNextPrintsum/7EndSu

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

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

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

publicclassTest{//x为数字,且是num的倍数privateintx;//y是需要生成的随机数的个数privateinty;privateinttemp=0;privat

#include#include#defindPI3.141592654main(){doublevolume;floatradius;printf("Inputradius:");scanf("%f

PublicFunctionArea(aAsDouble,bAsDouble,cAsDouble)AsDoubleIfa+bMSGBOX"要求任意两边之和大于第三边"ExitFunctionendif

用递归吧,省时省力,代码如下:OptionExplicitPrivateSubCommand1_Click()MsgBoxcal(103601)EndSubFunctioncal(ByValnAsLo