作者LiHowDie (我要坚强 我可以)
看板Visual_Basic
标题Re: [.NET] 请问一下这怎麽拆 我是新手
时间Wed Oct 12 13:50:22 2011
我刚刚想了一下 有写出来
只是不知道这方法是不是很笨!?
我的写法如下
如果有大大可以提供更好更快速的写法 麻烦告诉小弟^^ 谢谢
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button15.Click
Label1.Text = ""
Dim a As Integer
Dim b As Integer
For a = 1 To 1
For b = 1 To 5
Label1.Text += a.ToString
Next
Label1.Text += vbCrLf
Next
For a = 2 To 4
For b = 1 To Math.Abs(a - 3) + 1
Label1.Text += a.ToString
Next
For b = Math.Abs(a - 3) * 2 To 2
Label1.Text += "0"
Next
For b = 1 To Math.Abs(a - 3) + 1
Label1.Text += a.ToString
Next
Label1.Text += vbCrLf
Next
For a = 5 To 5
For b = 1 To 5
Label1.Text += a.ToString
Next
Label1.Text += vbCrLf
Next
End Sub
End Class
※ 引述《LiHowDie (我要坚强 我可以)》之铭言：
: 我是学VB的新手
: 现在正在练习回圈
: 我现在想呈现这样的画面
: 11111
: 22 22
: 3 3
: 44 44
: 55555
: 请问上面这范例这样要怎麽拆 请麻烦用简单一点的 我才可以解读
: 我目前会这组
: 11 11
: 2 2
: 4 4
: 55 55
: 因为这有顺序 所以我知道怎麽去拆 我的程式如下
: Dim a,b as integer
: for a = 1 to 5
: for b = 1 to Math.abs(a-3)
: label1.text += a.tostring
: next
: for b = Math.abs(a-3) * 2 + 1 to 5
: label1.text += ""
: next
: for b = 1 to Math.abs(a-3)
: label1.text += a.tostring
: next
: label1.text += vbcrlf
: next
: end sub
: 所以请问那组 也有类似这样的可以拆吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.255.43.131
1F：推 mdjason:不好意思 我最近也在学VB 请问这个是应用在什麽情境@@? 10/12 14:24
2F：→ LiHowDie:这个是在练习 回圈! 10/12 14:55
3F：→ LiHowDie:就是用成 我上一篇想要显示的样子 10/12 14:56
4F：推 mdjason:嗯嗯 现在都在到处看别人code 感谢! 10/12 15:00