Question

VB编程题 在线等，快点帮忙啦

要求输出图形
****** @ $$$$$$$
***** @@ $$$$$
*** @@@ $$$
* @@@@ $

Answer 1

第一个：
For i = 4 To 1 step -1
Print String(i + i - 1, "*")
Next i

第二个：
For i = 1 To 4
Print String(i , "@")
Next i

第三个：
For i = 4 To 1 step -1
Print Space(4-i); String(i + i - 1, "$")
Next i

Answer 2

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim a As String
Dim b As String
Dim c As String
Private Sub Command1_Click()
a = "*******"
For j = 7 To 1 Step -2
a = Left(a, j)
Print a
Next
b = "@"
For i = 1 To 4
Print b
b = b & "@"
Next
c = "$$$$$$$"
For k = 7 To 1 Step -1
c = " " & Left(c, k)
Print c
Next
End Sub

建立一个按钮，把上面代码拷到按钮的单击事件下就可以啦

Answer 3

Private Sub Command1_Click()

    Print

    Print Tab(5); String(6, "*"); Spc(3); String(1, "@"); Spc(3); String(7, "$")

    Print Tab(5); String(5, "*"); Spc(4); String(2, "@"); Spc(3); String(5, "$")

    Print Tab(5); String(3, "*"); Spc(6); String(3, "@"); Spc(3); String(3, "$")

    Print Tab(5); String(1, "*"); Spc(8); String(4, "@"); Spc(3); String(1, "$")

End Sub