在图片框里输出*三角形
Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, n As Integer
k = Val(Text1.Text) 'K为三角形的行数
For i = 1 To (k \ 2) + 1
Picture1.Print Tab((k \ 2) + 1 - i)
For j = 1 To 2 * i - 1
Picture1.Print "*"
Next j
Next i
End Sub
目标图是 * ,但是我不知道我的代码该怎么修改,求指导
***
*****