正章老師的教學部落格
提供高中職階段電腦知識與考試資訊、專題製作…等等資源，
希望對您有所幫助。
2013年3月27日
測試CSS&JS
Option Explicit Private Sub Form_Activate() Dim i As Integer Rem 迴圈變數 Dim a As Integer ' 次數 Dim sum As Long ' 總和 For i = 1 To 10 Step 2 a = a + 1 sum = sum + i Next i Print "次數：" & a Print "總和：" & sum Select Case (sum Mod 2) Case Is > 5 Print "大於5" Case Is > 10 Print "大於10" Case Else Print "其他" End Select End End Sub
較新的文章
較舊的文章
首頁
訂閱：
文章 (Atom)
