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