关于VB，如何在窗体上输出一个平行四边形（要求调用子程序）

Private Sub Command1_Click()

Dim s As String

s = InputBox("请输入打印的字符：", , "#")

PrintShape 8, s

End Sub

Sub PrintShape(ByVal k As Integer, ByVal c As String)

Dim i, j As Integer, s As String

c = Chr(Asc(c))

For i = 0 To k

s = Space(i)

For j = 0 To 8

s = s & c

Next j

MePrint s

Next i

End Sub

'根据你给的为8个代码如下

For a = 1 To 4

For b = 1 To 8

Print "";

Next

Print

Next

private sub form_click()

dim i as integer, j as integer

for i=1 to 5

for j=1 to 5

print space(j-1)&""

next

next

end sub

Private Sub Form_Click()

Dim I As Integer

For I = 1 To 7 '菱形

If I <= 4 Then

Print Space(4 - I); String(2 I - 1, "")

Else

Print Space(I - 4); String(15 - 2 I, "")

End If

Next I

Print

For I = 1 To 4 '三角形

Print Space(4 - I); String(2 I - 1, "")

Next I

Print

For I = 1 To 5 '平行四边形

Print Space(7 - I); String(7, "")

Next I

Print

For I = 1 To 5 '直角反三角形

Print Space(2); String(6 - I, "")

Next I

Print

For I = 1 To 5 '直角三角形

Print Space(2); String(I, "")

Next I

Print

End Sub

说下原理

不管是正方形,还是平行四边形,只不过是四个顶点位置不同罢了~

假设正方形左上顶点为L1,左下顶点为L2,右上顶点为R1,右下顶点为R2

那简单的变成平行四边形就是向同一方向水平平移L2与R2,在移动的过程中不断重绘这四个点的连线,就实现移动的过程了

只用相邻两边是不行的，一个平行四边形中，即使四条边的长度都确定了，面积也是不确定的，因为四边形具有不固定性 我就用平行四边形的底和高来吧 Dim a,h as single a=inputbox("请输入底边","输入数据") h=inputbox("请输入此底边对应的高","输入数据") S=ah messagebox "平行四边形的面积是"S,,结果（注意，那里要打两个逗号） end

以上就是关于关于VB，如何在窗体上输出一个平行四边形（要求调用子程序）全部的内容，包括:关于VB，如何在窗体上输出一个平行四边形（要求调用子程序）、如何用VB打印一个平行四边形、VB中要求实现单击窗体时能够在对话框上显示5行5列的平行四边形，显示图形所用字符为*,如下图等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！