求高手用vb解决
编写程序，运行后里面的数字如何变成“*”号？
代码如下
Private Sub Form_Load()
Show
For i = 1 To 7
Print Tab(10 - i)
For j = 1 To 2 * i - 1
Print Chr(i + 48);
Next j
Print
Next i
End Sub
VB
[解决办法]
很正常啊，显示结果为

1

222

33333

4444444

555555555

66666666666

7777777777777


[解决办法]

Private Sub Form_Load()
 Show
 For i = 1 To 7
 Print Tab(10 - i)
 For j = 1 To 2 * i - 1
 Print "*"; 'Chr(i + 48);
 Next j
 Print
 Next i
 End Sub