vb有关问题 用单循环显示如下图形
vb问题 用单循环显示如下图形

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 1 To 9
Label1.Text &= Space(i - 1)
Label1.Text &= StrDup(18 - 2 * i, Chr(64 + i))
Label1.Text &= vbCrLf
Next
End Sub
我编的运行出来
上边是那样,再一按button又出现一个对的,
哪里错了,怎么改?求高人指点
------解决方案--------------------
------解决方案--------------------
Label1.Text=vbCrLf 改成 Label1.Text="" 应该也行
------解决方案--------------------
应该是的。
我估计在界面设计时,那个Label的文本在无意中输入了一串空格。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 1 To 9
Label1.Text &= Space(i - 1)
Label1.Text &= StrDup(18 - 2 * i, Chr(64 + i))
Label1.Text &= vbCrLf
Next
End Sub
我编的运行出来
哪里错了,怎么改?求高人指点
------解决方案--------------------
Label1.Text=vbCrLf
For i = 1 To 9
Label1.Text &= Space(i - 1)
Label1.Text &= StrDup(18 - 2 * i, Chr(64 + i))
Label1.Text &= vbCrLf
Next
------解决方案--------------------
Label1.Text=vbCrLf 改成 Label1.Text="" 应该也行
------解决方案--------------------
应该是的。
我估计在界面设计时,那个Label的文本在无意中输入了一串空格。