vb程序设计通过文本框输入三角形任意两边的长度和夹角的度数,求三角形的面积

'Text1输入,Text2结果PrivateSubText1_KeyPress(KeyAsciiAsInteger)Staticint1AsIntegerDebug.PrintKeyAscii'45

你好;因为循环结束后,最后一组单词没有添加到list里的原因,在循环结束的外面添加List1.AddItemc就ok了,希望能帮到你：）如果最后一位也是空格的话,就在循环外加个条件：ifc""then

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

定义一个command四个label四个text.具体属性为command.caption=计算label1.caption=第一条边的长度：label2.caption=第二条边的长度:label3

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

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

下面是我的代码,你也可以优化一下.PrivateSubCommand1_Click()cmdlength=Text1.TextIfLen(Text1.Text)>=3Thencmdmi=Mid(Tex

请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(

PrivateSubCommand1_Click()Dimss=Val(Trim(InputBox("个人收入：","个人所得税计算",2000)))Print"个人收入为";s;"元时,应缴纳的个人

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

Privatesubform_click()Dimnasinteger,sumasdouble,kasintegerN=val(inputbox(“n=”,”请输入自然数n（n>0且nn!Label1

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

那你直接用下拉列表框多方便呢,或者你非要这么做的话在text1_Change里面写验证ifNOT(text1="A++"ORtext1="A+"ORtext1="A")THENMSGBOX"请输入A或

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

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

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

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

0本来就是偶数>_

privatesubCommand1_Click()n=0strold=""s=text1.textfori=1tolen(s)strnew=ucase(mid(s,i,1))if(strold"Z"

这个很简单呀.y=x(x