用VB画等腰三角形

Const pi = 3.141593

创新互联建站于2013年成立，是专业互联网技术服务公司，拥有项目网站建设、做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元富民做网站,已为上家服务,为富民各地企业和个人服务,联系电话:13518219792

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Randomize

r = 1000 * Rnd

d = 10 * Rnd

Me.Line (X, Y)-(X + r * Cos(pi / d), Y + r * Sin(pi / d))

Me.Line -(X - r * Cos(pi / d), Y + r * Sin(pi / d))

Me.Line -(X, Y)

End Sub

给出（x，y，z）？？？？

平面图形，哪来的z坐标？

如果点不在三角形内呢？

原点你定义在哪呢？？

VB中,使用*组成一个等腰三角形,应该使用哪种程序结构？

VB中,使用*组成一个等腰三角形,应该使用双重循环的程序结构。外循环决定一共有多少层，使用两个内循环，第一个内循环用来输出每行前面的空格。第2个内循环用来输出若干的星号，两个内循环结束后换行。

用VB.NET.编写一个输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。

Dim a, b, c, s, p As Single

a = Val(InputBox("请输入三角形边长a"))

b = Val(InputBox("请输入三角形边长b"))

c = Val(InputBox("请输入三角形边长c"))

If a + b = c Or b + c = a Or c + a = b Then

MsgBox("这样的三角形不存在")

Else

If a = b Or b = c Or c = a Then

MsgBox("这是一个等腰三角形")

End If

If a = b = c Then

MsgBox("这是一个等边三角形")

End If

If a ^ 2 + b ^ 2 = c ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Or c ^ 2 + a ^ 2 = b ^ 2 Then

MsgBox("这是一个直角三角形")

End If

p = (a + b + c) / 2

s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))

MsgBox("这个三角形的面积是" s)

End If

End Sub

vb打印等腰三角形的代码

vb打印等腰三角形的代码操作如下：

1、打开vb6.0软件，新建一个工程。

2、窗口建立三个commandbutton控件，将其caption依次改为command。

3、双击任意一个commandbutton控件打开代码窗口，输入代码即可。

本文名称：vb.net等腰三角形形 vb输出等边三角形
文章起源：http://cdweb.net/article/doeojej.html