新建一个工程，实现功能限制：在text1只能输入十个字母，超过在text2显示。

这个就在text1.change里进行判断呀。
if len(text1.text)>10 then
text2.text=str(10,len(text1.text)-10)
endif

谢谢了

为什么我加进去后，会出现“错误的参数或无效的赋值”

不好意思，有个东西掉了。text2.text=str(text1.text，11,len(text1.text)-10)
呵呵。

VB的杨辉三角程序怎么编啊？谢谢

三角行的知道3条边，求面积的程序怎么编啊？谢谢！
为什么，我的打印不出来啊？

Sub Form_Click()
Do Until a = -1
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
If a + b > c And a + c > b And b + c > a Then
s = Sqr((a + b) * (b + c) * (a + c) / 2)
Print s
End If
Loop
End Sub
不知道为什么就是不对，帮忙看看那里出错了，谢了

你是什么啊

If a + b > c And a + c > b And b + c > a Then

用or吧？

还有。。。。loop？

用余弦定理求某一个角的余弦值再求正弦：
s=sinα*b*c/2