vb平行四边形编程

1. 关于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
Me.Print s
Next i
End Sub

2. 在VB中怎样编写求平行四边形面积的代码

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

3. 怎样在vb中用*打出平行四边形

长度=10
高度=5
for j=高度 to 1 step-1'j每循环一次，输出一行
？tab（高度）;'确定这行开头留的空，这是平行四边形的关键
for i=1 to 长度'i每循环一次，输出一个星号
print "*";
next i
print'转到下一行
next j

4. 怎样用vb显示由*组成的三角形和平行四边形求代码

'三角形
PrivateSubCommandButton1_Click()
Dimi,j,maxAsInteger
max=5
DimstrAsString
Fori=0Tomax
Forj=0Toi*2
str=str&"*"
Nextj
str=str&vbCrLf
Nexti
MsgBoxstr
EndSub

'平行四边形
PrivateSubCommandButton2_Click()
Dimi,j,maxAsInteger
max=5
DimstrAsString
Fori=0Tomax
Forj=0Toi*2
str=str&""
Nextj
Forj=0Tomax*2
str=str&"*"
Nextj
str=str&vbCrLf
Nexti
MsgBoxstr
EndSub

这是2个方法 分别是三角形和平行四边形

max是行数 你可以自行修改

最后结果是通过msgbox显示出来的 ，你也可以把他们显示到textbox、Lable或者其他你喜欢的控件上

5. vb数字平行四边形

有两种方案，你来选一下：
1、设一个二维数组，将数值写入数组，然后将数组输出。优点代码思路简单易行，缺点是对逻辑思维的培养不利。
2、设计一个过程，输出一个用户同一数字围成的空心矩形。然分别调用用，从输出“1”一圈、再输出“2”一圈……直到输出最中间的一个单个数字。

第一种代码如下：
Private Sub Command1_Click()
Dim 数字() As Integer, N As Integer
Do
N = Val(InputBox("请输入数字圈数（1-9"))
If N < 1 Then
MsgBox "圈数不能少于1", vbExclamation + vbOKOnly
ElseIf N > 9 Then
MsgBox "圈数不能多于9", vbExclamation + vbOKOnly
Else
Exit Do
End If
Loop
ReDim 数字(2 * N - 1, 2 * N - 1)
For i = 1 To N
For j = 1 To N
If i <= j Then
数字(i, j) = i
数字(2 * N - i, j) = i
数字(i, 2 * N - j) = i
数字(2 * N - i, 2 * N - j) = i
Else
数字(i, j) = j
数字(2 * N - i, j) = j
数字(i, 2 * N - j) = j
数字(2 * N - i, 2 * N - j) = j
End If
Next j
Next i
For i = 1 To 2 * N - 1
For j = 1 To 2 * N - 1
Print Trim(Str(数字(i, j)));
Next j
Print
Next i
End Sub

6. 用Vb程序画平行四边形

Private Sub Form_click()
Line (500, 500)-(1500, 500) '上
Line (200, 1500)-(1200, 1500) '下
Line (500, 500)-(200, 1500) '左上连左下
Line (1500, 500)-(1200, 1500) '右上连右下
End Sub

7. 用VB6.0写个程序，三点确定一个平行四边形

Dim A(1 To 4) As Single, B(1 To 4) As Single Dim n As Integer Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) n = n + 1 A(n) = x B(n) = y If n < 3 Then Exit Sub n = 0 A(4) = A(3) - A(2) + A(1) B(4) = B(3) - B(2) + B(1) Me.Cls Me.Line (A(1), B(1))-(A(2), B(2)) Me.Line (A(2), B(2))-(A(3), B(3)) Me.Line (A(3), B(3))-(A(4), B(4)) Me.Line (A(4), B(4))-(A(1), B(1)) End Sub

8. VB里用星号输出平行四边形、正三角、倒三角的程序语句

一、Private Sub Form_Click()

show

Dim m, n, i, j As Integer

m = 4 :n = 7

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To n

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To i

Print " ";

Next j

For j = 1 To 2 * m - 2 * i + 1

Print "*";

Next j

Print

Next i

End Sub

二、Sub Command1_Click()

Dim i As Integer

For i = 1 To 11 Step 2

For m = 11 To i Step -1

Debug.Print "*";

Next

Print Chr(10) & Space(1 + i 2);

Next

End Sub

(8)vb平行四边形编程扩展阅读：

在VB中，注释有2种方式。

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

特征衡量

在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。

参考资料来源：网络-Visual Basic

9. vb 打印平行四边形

Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
n = InputBox("请输入行数")
For i = 1 To n
Print String(n, "*")
Next i
End Sub

10. 用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
Me.Print s
Next i
End Sub