今天做了 印星星 的程式

需要 button*1 textbox*1

程式碼如下
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 1 To 10
For j As Integer = 1 To i
txtOutput.Text &= "★"
Next
txtOutput.Text &= vbCrLf
Next
End Sub
End Class

一些可自行修改

完成後 如下圖


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 ip612256374 的頭像
    ip612256374

    ↖Ι n V a D e R ╮

    ip612256374 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄