UC知道vb题，请高手解答！谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/07 04:25:41
有个作业，要求当输入11时画出
***********
*********
*******
*****
***
*
但我只能做出
***********
*********
*******
*****
***
*
代码如下
a=11
b = (a + 1) / 2
For x As Integer = 1 To b
For y As Integer = 1 To a
Me.xResultLabel.Text = Me.xResultLabel.Text & "*"
Next y
a = a - 2
Me.xResultLabel.Text = Me.xResultLabel.Text & ControlChars.NewLine
Next x
怎么改？谢谢！（xResultlabel是我显式图案的label）
是加入tab函数还是space函数呢？怎么加
谢谢一楼的回答，不过还是不对。。。请麻烦说清楚（）里面的是什么，是不是要先定义x=0然后在哪里加一个x=x+1？
***********
*********
*******
*****
***
*
但我只能做出
***********
*********
*******
*****
***
*
代码如下
a=11
b = (a + 1) / 2
For x As Integer = 1 To b
For y As Integer = 1 To a
Me.xResultLabel.Text = Me.xResultLabel.Text & "*"
Next y
a = a - 2
Me.xResultLabel.Text = Me.xResultLabel.Text & ControlChars.NewLine
Next x
怎么改？谢谢！（xResultlabel是我显式图案的label）
是加入tab函数还是space函数呢？怎么加
谢谢一楼的回答，不过还是不对。。。请麻烦说清楚（）里面的是什么，是不是要先定义x=0然后在哪里加一个x=x+1？
Dim a As Integer
Dim b As Integer
a = 11
b = (a + 1) / 2
For x As Integer = 1 To b
Me.xResultLabel.Text = Me.xResultLabel.Text & Space(x - 1)
For y As Integer = 1 To a
Me.xResultLabel.Text = Me.xResultLabel.Text & "*"
Next y
a = a - 2
Me.xResultLabel.Text = Me.xResultLabel.Text & ControlChars.NewLine
Next x
当然是用Space(x)呀,放在
Me.xResultLabel.Text = Me.xResultLabel.Text & "*"
这一句之中,即改为
Me.xResultLabel.Text = Space(x) & Me.xResultLabel.Text & "*"