Re: [.NET] 請問一下這怎麼拆我是新手

看板Visual_Basic作者LiHowDie (我要堅強我可以)時間14年前 (2011/10/12 13:50)推噓2(2推 0噓 2→)

留言4則, 2人參與討論串2/2 (看更多)

我剛剛想了一下有寫出來只是不知道這方法是不是很笨!? 我的寫法如下如果有大大可以提供更好更快速的寫法麻煩告訴小弟^^ 謝謝 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

推

mdjason

10/12 14:24, , 1^F

10/12 14:24, 1^F

→

LiHowDie

10/12 14:55, , 2^F

10/12 14:55, 2^F

→

LiHowDie

10/12 14:56, , 3^F

10/12 14:56, 3^F