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

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

vb除号是反斜杠？
我记得反斜杠是换行号吧？

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

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
        Picture1.Print Tab(k + 1 - i)'这里是不是该加个换行？
        For j = 1 To 2 * i - 1
            Picture1.Print "*"
        Next j
    Next i
End Sub

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    j = Val(Text1.Text) 'K为三角形的行数
    For i = 1 To j
        Picture1.Print Tab(10 - i); String(2 * i - 1, "*")  
    Next i
End Sub
  
~~~~~~~~~~~~~
希望能帮到你

    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
        Picture1.Print                                  '啥都不加，让后面输出的内容换行
    Next i
你这样试试着。

print 内容后面的符号有三种：
1、啥都没有的，直接换行，这种的后面的必须另起一行代码写
2、分号 ,后面的输出接着来，可以放在变量列表中间
3、逗号，后面的输出从下一个制表位开始，可以放在变量列表中间使用

如
Picture1.print 1,"2";"3";"4",5
你看看输出什么
 1            234            5