今天做了 印星星 的程式

需要 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

一些可自行修改

完成後 如下圖

創作者介紹

↖Ι n V a D e R ╮

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