锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net空心三角形 空心三角形java

IT技术datagrid

大佬们~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上怎么画三角形定义好三角形的三个点 ， 用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 空三角形Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim j As Integer
n = InputBox("输入三角形高度", "", 5)
【vb.net空心三角形 空心三角形java】Me.Cls
Me.FontName = "宋体"
For i = 1 To n
For j = 1 To n - i
Print " ";
Next j
Print "*";
If i1 Then
For j = 1 To i * 2 - 3
If in Then
Print " ";
Else
Print "*";
End If
Next j
Print "*";
End If
Print
Next i
End Sub
用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.net2008打印杨辉三角形(打印10行)，要求如图所示Public Class Form1

推荐阅读


上一篇：怎样租服务器自己做游戏 怎么靠租服务器赚钱

下一篇：mysql新建表列设置约束，mysql新建表列设置约束怎么设置