Question

十万火急！！！跪求VB高手解答此程序填空题。最好解释一下。还有，这里面的m和n有什么作用啊？

'【程序改错】
'------------------------------------------------

'题目：下面程序可输出如下图形：
' *
' ***
' *****
' *******
' *********

'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer
n = 4
m = 1
s = "*"
For i = 5 To 1 Step -1
'**********FOUND**********
Print Spc(n)
For j = 1 To 2 * m - 1
Print s;
Next j
Print
'**********FOUND**********
n = n + 1
'**********FOUND**********
m = m - 1
Next i
End Sub

Answer 1

1）完全不需要这么多变量来实现。。
2）根据现在的代码，N是控制*前的空格数的 M是控制*的个数的。

Answer 2

Option Explicit
Private Sub Form_Click()
Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer
n = 4
m = 1
s = "*"
For i = 5 To 1 Step -1
'**********FOUND**********
Print Spc(n); 'n表示每行打印时开头的空格个数
For j = 1 To 2 * m - 1 '这里2 * m - 1结果1,3,5,7，就是打印*的个数
Print s;
Next j
Print
'**********FOUND**********
n = n - 1
'**********FOUND**********
m = m + 1
Next i
End Sub