史萊姆論壇 - 查看單個文章

飛行船大大 · 2008-12-08, 10:36 PM

看來你是初學者,還不到10小時.

語法:

Private Sub Form_Activate()
   Dim i As Integer
   For i = 1 To 7
      Print String(i, "★") & vbCrLf
   Next
   For i = 6 To 1 Step -1
      Print String(i, "★") & vbCrLf
   Next
End Sub

2008-12-08, 10:36 PM	#2 (permalink)
飛行船大大註冊會員榮譽勳章勳章總數2 UID - 282126 在線等級: 註冊日期: 2007-10-09 文章: 156 精華: 0 現金: 282 金幣資產: 7282 金幣	看來你是初學者,還不到10小時. 語法: Private Sub Form_Activate() Dim i As Integer For i = 1 To 7 Print String(i, "★") & vbCrLf Next For i = 6 To 1 Step -1 Print String(i, "★") & vbCrLf Next End Sub

	送花文章: 169, 收花文章: 55 篇, 收花: 132 次