求高手用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
Next i
End Sub