- 閱讀權限
- 30
- 最後登錄
- 13-1-27
- 精華
- 0
- UID
- 1458669
- 帖子
- 455
- 積分
- 376
- 註冊時間
- 09-9-5
- 在線時間
- 242 小時
  
- UID
- 1458669
- 帖子
- 455
- 積分
- 376
- Good
- 9
- 註冊時間
- 09-9-5
- 在線時間
- 242 小時
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, stars As Integer
Dim starlist As String
stars = TextBox1.Text
starlist = ""
For x = 1 To stars
starlist = starlist & "*"
Next
ListBox1.Items.Add(starlist)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, stars As Integer
Dim starlist As String
stars = TextBox1.Text
starlist = ""
For y = stars To 1 Step -1
starlist = ""
For x = 1 To y
starlist = starlist & "*"
Next x
ListBox1.Items.Add(starlist)
Next y
End Sub
End Class |
|