Me.AutoRedraw = True
For i = 1 To 4
Print String(i, "★")
Next
print string(i,"★")
next
VB问题:已知三角形三边,求周长和面积!另做一份实验报告!
1、已知三角形三边abc,那么周长2P=a+b+c 2、那么它的面积=根号下【P（P-a）（P-b ）（P -c）】,注P为三角形周长的一半.
vb程序设计求三角形面积
1、海伦公式:p为三角形的周长的一半,而a,b,c分别为三角形三边的长度, S=p(p-a)(p-b)(p-c)=[(a+b+c)(a+b-c)(a+c-b)(b+c-a)]\/2 2、已知底边和高，计算就简单了 3、已知两边和夹角，先求出第三边，再使用第一项计算 其他的类似。源程序如下：Option Explicit Dim A As D...
VB三角形问题
Print "这三边能够成三角形"s = (a + b + c) \/ 2 area = Sqr(s * (s - a) * (s - b) * (s - c))MsgBox "此三角形的面积为：" & area Else Print "这三条边不能组成一个三角形"End If End Sub
vb编程,已知三角形三条边,求它的面积。
Print "三角形的面积是："& d Else Print "不能组成三角形"End If End Sub
在VB中输入三条边怎样判断这三条边能不能构成三角形呢? 下面是我写的...
建议先进行排序再判断，这样将好判断的多。比如你讲三个数进行升序排序，那么对于是不是三角形的问题，你只要判断前两个数相加是否大于第三个数就行了，而不用进行三次判断。代码如下：Private Sub Command1_Click()Dim 数据() As Integer ReDim 数据(1 To 3)数据(1) = Text1 数据(2) = ...
如何用VB实现等腰三角形输出呢?
1、首先处理整个大框，定义一个8行8列的二维数组。2、遍历数组，输出每个数。3、根据杨辉三角特点，每行的第一列和最后一列均为1。4、其他元素的值是其正上方与左上方元素的和。5、打印出来，运行，控制台显示结果。6、最后进行输出时进行处理，实现等腰输出。
VB编程 我想请问下,图中算三角形面积的这个公式是怎么推出来的,不太...
已知三角形的三边分别是a、b、c,先算出周长的一半s=1\/2(a+b+c)则该三角形面积S=根号[s(s-a)(s-b)(s-c)]这个公式叫海伦——秦九昭公式 证明：设三角形的三边a、b、c的对角分别为A、B、C,则根据余弦定理c²=a²+b²-2ab·cosC,得 cosC = (a²+b²...
VB三角形判断
s = "等边三角形"Else s = "等腰三角形"End If ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then s = "直角三角形"Else s = "任意三角形"End If Else s = "不能构成三角形！"End If s = a & "," & b &...
vb 编程(visual studio)给出三角形的三个点,求三角形的边长?
如果已经知道两顶点的坐标 (x1，y1) 和 (x2，y2)相应的边长为: 开方 ((x2-x1)^2 + (y2-y1)^2)
vb实现计算三角形面积根据三角形的坐标
提示：1，根据两点之间的距离公式，可以求得三条边的长度：L1 = Sqr((x1 - x2)^2 + (y1 - y2)^2)2，已知三条边长，求三角形面积，可以根据海伦公式来求得。
