大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net等腰三角形形 vb输出等边三角形

用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输出等边三角形
分享URL:http://dzwzjz.com/article/doeojej.html
在线咨询
服务热线
服务热线:028-86922220
TOP