vb中输入相邻字母的代码

设半径为变量RPI=3.14259265C=2*PI*RS=PI*R*R再问：用到Command，Label或者是Text最好知道相应对象中的代码是什么再答：你连这个最基本的Label框和Text框都

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

'设控件text1为文本text2为开始位置text3为长度代码如下：Private Sub Command1_Click()'设text1为文本 tex

这句是使用quickbasic的颜色的,那应该就是quickbasic的缩写吧

代码发错了吧,这段代码与字符统计无关,好象是在计算数组a(k)中的数等于各位数字的立方和的和有多少个,总和是多少吧.

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

26个英文字线：ABCDEFGHIJKLMNOPQRSTUVWXYZ所以跟K相邻的两个字母就是J和L呢

DimNum1AsDoubleDimNum2AsDoubleDimEqualAsDoubleDimMAsDoubleDimEqual2AsIntegerDimStrNum1AsStringDimStr

ound((ProgressBar1.Value/Text2.Text)*10)不过最好执行公式之前判断text2.text是否为数值且不能为0val(text2.text)会比较好点

SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex

PrivateSubCommand1_Click()Dima,b,c,area,cca=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))c=Val(

dimiaslong,jaslong,kaslongfori=1to1000forj=ito1000fork=jto1000ifi*i+j*j=k*kthenprinti,":",j,":",knex

Case"A"To"Z"aa=Chr$(KryAscii+32)KeyAscii打错了

一楼的很复杂,给你来个简单的：PrivateSubCommandButton1_Click()Dimi,s,kDimnaaa:n=InputBox("请输入大于等于1的数字")IfVal(n)>=1T

dima,b,casdoublePrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa+

PrivateSubCommand1_Click()Fori=1ToVal(Text1)Sum=Sum+1/Val(InputBox("请输入阻值"))NextMsgBox"并联后的阻值"&1/Val

不知你需要什么种类的三角函数,我编了一种,你可以依样画葫芦编出其他Constpi=3.14159PrivateSubCommand1_Click()DimxAsDoublex=InputBox("x=

说明VB不支持ln函数,换句话说,VB的log函数就是数学中的ln函数,而常用对数lg只能使用换底公式lg(x)=log(x)/log(10)条件很简单x>0.

要准确地统计字数,可逐一将字符串转换为ASCII码,依据其值判断是为中文字符还是英文字符.0——127之间的为大小写字母及数字、半角标点符号、回车、换行等,中文字符的ASCII值则不在0——127之列

新建EXE,画4个text文本框和一个按钮,复制下面的代码：PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2