網路城邦
RSS Feed Link 部落格聯播

文章數:83
VB2005乙級硬體裝修程式碼第一站第一題。
知識學習考試升學 2011/01/12 18:48:24

(),內請直接由物件點擊進入,我就不打了!

Public Class Form1

Dim a,b(99),c As Integer

Private Sub Button1_Click()

a = 0 : c = 0

End Sub

Private Sub Button2_Click()

a = 1 : c = 0

End Sub

Private Sub Button3_Click()

a = 2

End Sub

Private Sub Form1_Load

a=99

b()=1

b()=2

b()=4

b()=8

b()=&H10

b()=&H20

b()=&H40

End Sub

Private Sub Timer_Tick()

If c>14 Then c=14

Text1.Text="Current time:" & timeOfDay()           

 '注意!此行與VB6.0不同(time$)變為(timeOfDay)

Out (&H378,0)

Out (&H37A,4)

Out (&H37A,0)

End If

If a = 0 Then

Out (&H37A8,)

Out (&H378,b(c))

End If

If a = 1 Then

Out (&H378,2^c)

Out (&H37A,4)

Out (&H37A,0)

End If

If a = 2 Then End

c=c+1

End Sub

End Class

最新影像 5129
夕陽
香水百合,近照。
香水百合,好高歐!

精選創作
冬至快到了,提早做手工湯圓!
2010/12/19 19:26:58 |瀏覽 366 回應 0 推薦 9 引用 0
植栽之圈圈!
2010/03/28 19:39:36 |瀏覽 374 回應 0 推薦 4 引用 0
砥礪文:[擇路]
2010/02/20 21:57:56 |瀏覽 384 回應 0 推薦 5 引用 0
山茶花開了!
2009/12/13 13:50:33 |瀏覽 487 回應 0 推薦 2 引用 0
自視甚高
2009/10/24 17:43:09 |瀏覽 528 回應 0 推薦 3 引用 0

最新創作
VB2005乙級硬體裝修程式碼第一站第一題。
2011/01/12 18:48:24 |瀏覽 2268 回應 1 推薦 1 引用 0
冬至快到了,提早做手工湯圓!
2010/12/19 19:26:58 |瀏覽 366 回應 0 推薦 9 引用 0
001
2010/12/07 15:37:08 |瀏覽 275 回應 0 推薦 1 引用 0
沉淪
2010/05/17 16:47:28 |瀏覽 380 回應 0 推薦 6 引用 0
無名嬰塚
2010/05/17 16:43:36 |瀏覽 372 回應 0 推薦 1 引用 0