vb.net空心三角形 编程空心三角形

VB上怎么画三角形

定义好三角形的三个点，用line画线连接即可。

站在用户的角度思考问题，与客户深入沟通，找到白塔网站设计与白塔网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广、域名与空间、网络空间、企业邮箱。业务覆盖白塔地区。

示例如下：

Private Sub Form_Load()

Me.AutoRedraw = True

Dim x As Integer

Dim y As Integer

CurrentX = 1500

CurrentY = 500

Line -(3000, 2000), RGB(0, 0, 255)

Line -(1500, 2000), RGB(0, 0, 255)

Line -(1500, 500), RGB(0, 0, 255)

End Sub

运行效果：

vb.net画图控件如何画三角网图形？

Imports System.Drawing

Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim g As Graphics = PictureBox1.CreateGraphics

Dim hs As HatchStyle = HatchStyle.Cross

Dim sb As HatchBrush = New HatchBrush(hs, Color.Black, Color.White)

Dim p(3) As Point

p(0).X = 100

p(0).Y = 50

p(1).X = 0

p(1).Y = 100

p(2).X = 200

p(2).Y = 100

p(3).X = 100

p(3).Y = 50

g.FillPolygon(sb, p)

g.DrawPolygon(Pens.Black, p)

End Sub

End Class

用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

大佬们~VisualStudio中vb.net如何画三角函数图像？

VB系统的坐标原点在左上角，X轴的正方向是水平向右，而Y轴的正方向是垂直向下。所以，要绘制三角函数的曲线，自己可以通过改变点坐标的方法来实现，当然，VB.NET提供了相应的方法可以来实现坐标变换，也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现。

下面是我通过自己变换实现的示例，提供参考；我的环境是VB.NET 2010

Imports System.Math

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  '1，获得一个Graphics对象

  Dim MyGraphics As Graphics

  MyGraphics = PictureBox1.CreateGraphics

  '2，定义一个Pen对象，用于绘制图形（轮廓线）

  Dim MyPen As New Pen(Color.Black, 1)

  '3，定义一个Brush对象，用于填充图形（如果需要填充的话）

  Dim MyBrush As New SolidBrush(Color.Orange)

  MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  '1，获得一个Graphics对象

  Dim MyGraphics As Graphics

  MyGraphics = PictureBox1.CreateGraphics

  '2，定义一个Pen对象，用于绘制图形（轮廓线）

  Dim MyPen As New Pen(Color.Black, 1)

  '3，定义一个Brush对象，用于填充图形（如果需要填充的话）

  Dim MyBrush As New SolidBrush(Color.Orange)

  '声明横向和纵向比例变量

  Dim Heng As Integer = 20

  Dim Zong As Integer = 50

  '先获得正弦值，保存到点坐标数组

  Dim MyPoints(700) As Point

  Dim i As Integer

  For i = 0 To 700

      MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)

  Next

  '采用绘制光滑线连接点的方式绘制曲线

  MyGraphics.DrawCurve(MyPen, MyPoints)

End Sub

End Class

显示的效果图：

用vb.net2008打印杨辉三角形(打印10行),要求如图所示？

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim n As Integer, i As Integer, j As Integer, a(,) As Integer

n = 10

ReDim a(n + 1, n + 1)

For i = 1 To n + 1

a(i, 1) = 1 : a(i, i) = 1 : Next i

For i = 3 To n + 1

For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next j, i

For i = 1 To n + 1

For j = 1 To i

TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j))))) Trim(Str(a(i, j))))

Next j

TextBox1.AppendText(vbCrLf)

Next i

End Sub

End Class,9,

xixihahano1 举报

谢谢了，但是你写的代码可以输出多少行？多久会溢出了

举报 ccddty

没试过，你可以试试，将n的值加大 当n》16的时候就显示“参数“Number”必须大于或等于 0。”了 有没有办法解决？,