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

目标图是 *    ，但是我不知道我的代码该怎么修改，求指导
        ***
       *****
   

你好，右除是整除，问题好像不是这里，我输出的图形都是一列，不能排成三角形