Question

怎样用VB制作各种三角形 求各种代码

Answer 1

不知道楼主问的什么意思？VB是程序设计语言。三角形是一种形状。

追问

就是各种三角形 比如正三角形 直角三角形等

追答

你说的是绘制三角形吗？

Answer 2

Dim x1, y1, x2, y2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
x1 = X
y1 = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
bl = IIf(Abs(x1 - X) > Abs(y1 - Y), Abs(x1 - X), Abs(y1 - Y))
Line (x1, y1)-(x1 - bl, y1 + bl)
Line (x1, y1)-(x1 + bl, y1 + bl)
Line (x1 - bl, y1 + bl)-(x1 + bl, y1 + bl)
End If

End Sub