個人的寫程式小技巧

tryit244178

想要漂亮的原始碼，除了有意義的變數宣告外
提供一下我個人寫程式的小技巧
讓有興趣的人參考參考

=====================================

模組化你的程式碼！
看看下面的程式碼…

1. Sub TestA()
   
2.         Text1.Text = "TestA"
   
3.         Button1.Enabled = False
   
4.         i = 1
   
5. End Sub
   
6. 
   
7. Sub TestB()
   
8.         Text1.Text = "TestB"
   
9.         Button1.Enabled = True
   
10.         i = 1
    
11. End Sub
    
12.         .
    
13.         .
    
14.         .

複製代碼

仔細一看，內容都是類似的！
寫個副程式，把它們包裝起來吧！

1. Sub Test(ByVal strValue As String, ByVal blnValue As Boolean)
   
2.         Text1.Text = strValue
   
3.         Button1.Enabled = blnValue
   
4.         i = 1
   
5. End Sub

複製代碼

=====================================

用函數來傳回布林值！
臨時想不出例子，總之很好用！！

1. Function CheckState() As Boolean
   
2.         [程序]
   
3.         Return True
   
4. End Fucntion
   
5. 
   
6. If CheckState = True Then
   
7.         [程序]
   
8. End If

複製代碼

=====================================

假設有個整數變數 i ，它會記錄執行後的結果
我們會用它記錄的結果來執行程序

1. If i = 1 Then
   
2.    [程序]
   
3. End If
   
4. 
   
5. If i = 2 Then
   
6.    [程序]
   
7. End If
   
8. 
   
9.         .
   
10.         .
    
11.         .

複製代碼

或是

1. If i = 1 Then
   
2.    [程序]
   
3. ElseIf i = 2 Then
   
4.    [程序]
   
5. ElseIf i = 3 Then
   
6.         .
   
7.         .
   
8.         .
   
9. End If

複製代碼

比起用If一行一行判斷，改用Select Case吧！

1. Select Case i
   
2.         Case 1
   
3.                 [程序]
   
4.         Case 2
   
5.                 [程序]
   
6.         .
   
7.         .
   
8.         .
   
9. End Select

複製代碼

=====================================

寫個從1加到10的程式碼

1. Dim intCount As Integer = 0
   
2. 
   
3. For i As Integer = 1 To 10
   
4.         intCount += i
   
5. Next

複製代碼

有個自已呼叫自已的方法，叫做遞迴！(這個有好有壞，但很華麗XD)

1. Function Count(ByVal intValue As Integer) As Integer
   
2.         If intValue = 0 Then Exit Function
   
3.         Return intValue + Count(intValue - 1)
   
4. End Function
   
5. 
   
6. '傳回55
   
7. Debug.Print(Count(10))

複製代碼

=====================================
其他的還沒想到，歡迎補充




...

瀏覽完整內容，請先 註冊 或 登入會員