Question

怎么用vb编一个由星号组成的等腰三角形 要求第一行一个星号 第二行两个星号

Answer 1

Dim n As Integer
n = 10

For i = 1 To n
For k = 1 To n - i
Print Chr(32);
Next
For j = 1 To i
Print "*" & Chr(32);
Next
Print ""
Next
放到Form_Paint()里面都可以。