利用文本框1和文本框2输入直角三角形的两条直角边长,计算直角三角形的周长和面积

将这个波浪线字体改为英文字体比如TimesNewRoman

在excel很容易实现,在A1单元格输入任意三位数B1=MID(A1,1,1)C1=MID(A1,2,1)D1=MID(A1,3,1)下拉

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

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

我的ppt2007也出现了这样的问题,看了一下大家给的意见,得出了一个这样的结果：微软会把某些系统的功能与某些软件偷偷绑定,把微软拼音调出来,并设为默认,再打开PPT,汉字一切录入正常了,再恢复以前的

有两个问题.1,dimaas整形'这句话里怎么"整型"都来了,要知道,VB不是我们中国的.所以要把他翻译成为integer.2,a=text1.text'你想要把text1的文本赋值给a变量,但是te

ifthisform.text1.text="hxhy"andthisform.text2.text="5921"thenthisform.caption="welcome."&&当正确输入用户名（h

楼上太长了...四个文本框,前三个输入,最后一个输出一个按钮,按钮的单击响应代码如下:PrivateSubCommand1_Click()DimpingjunAsDoublepingjun=(Val(

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

如果你是学生,课本上肯定能找到答案,也许不是太现成,但只要稍微看看一定做得出来

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

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

1.假如文本框为text1,默认的value为0,增加的click代码为：thisform.text1.value=thisform.text1.value+12.clears=0fori=1to10

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

DimiAsIntegerDimsAsIntegerDimTAsIntegerDimnAsIntegern=Val(InputBox("请输入n值；"))s=0T=0Fori=1TonT=T+is=s

Text1.Text="abc"Text2.Text=Text1.TextText1.Text="xyz"先执行Text1.Text="abc"执行后text1显示abcText2.Text=Text

esult=Math.Sin(number/3.1415926535*180);再问：这个不会精确啊，比如sin（number）当number=30时其结果不会是1/2啊有没有更好的办法呀，何况你这个

选中文本框,左键点击正上方边框突出轴,旋转即可

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

这个没什么难的啊,先把数据随机出来保存到两个数组,一个奇数数组一个偶数数组.然后排序就可以了啊.