VB程序问题 打印如图所示的图形 谢咯 好的答案有加分哦

Private Sub Form_Load()

MeAutoRedraw = True

n = 7 '行数

For i = 1 To n

Print String(7 - i, " "); String(i 2 - 1, "")

Next

End Sub

Private Sub Command1_Click()

Dim str As String

For i = 1 To 5

xstr = ""

For j = 1 To 5

If j = i Then Print String(j, CStr(i))

Next j

Next i

End Sub

Private Sub Form_Click()

Dim i As Integer

Dim j As Integer

Print vbCrLf

For i = 1 To 4

Print Tab(8 - i);

For j = 1 To 2 i

Print "";

Next j

Print

Next i

For i = 1 To 4

Print Tab(8 - i);

For j = 1 To 2 i

Print "";

Next j

Print

Next i

For i = 1 To 4

Print " "

Next

End Sub

是一颗树哈,完整的代码

以上就是关于VB程序问题 打印如图所示的图形 谢咯 好的答案有加分哦全部的内容，包括:VB程序问题 打印如图所示的图形 谢咯 好的答案有加分哦、VB打印图形，谁有知道代码帮帮我！、使用循环语句编程序在窗体中打印如下图形： ** **** ****** ******** VB编程，急！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！