Question

求VB编写的以"*" 菱形、三角形、 平行四边形、 直角反三角形、的代码 分不够了 我再加分。！！！

必须用for开头的
求！ 平行四边形代码 直角三角形

Answer 1

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

追问

可以写下 反平行四边形的代码吗？ 和乘加 乘除 代码。 没了呵呵。

追答

For I = 1 To 5 '反平行四边形
Print Space( I); String(7, "*")
Next I
Print

Answer 2

Private Sub Command1_Click()
Cls
For i = 9 To 1 Step -2
Print String(i, "*")
Next i
End Sub
Private Sub Command2_Click()
Cls
For i = 1 To 7
Print Spc(i); String(7, "*")
Next i
End Sub

Private Sub Command3_Click()
Cls
For i = 1 To 7
Print Spc(20 - i); String(2 * i - 1, "*")
Next i
End Sub
Private Sub Command4_Click()
Cls
For i = -3 To 3
Print Spc(Abs(i)); String(7 - 2 * Abs(i), "*")
Next i
End Sub

追问

j

追答

颜色没规律，写不了，除非你的颜色是随机的，如果是随机的，下面是棱形的代码。
Private Sub Command1_Click()
Cls
For i = -5 To 5
Print Spc(Abs(i));

For j = 1 To 11 - 2 * Abs(i)
Me.ForeColor = QBColor(Int(Rnd * 16))
Print "*";
Next j
Print
Next i
End Sub

Answer 3

不懂你到底干嘛，可以说具体点乎？