vb编程代码大全

Private Sub Command1_Click()  CurrentY = 0  For i = 1 To 9    If i <= 5 Then      Print Space(9 - i);      For j = 1 To 2 * i - 1        Print "*";      Next j    Else      Print Space(i - 1);      For j = 1 To 2 * (10 - i) - 1        Print "*";      Next j    End If    Print  Next iEnd Sub