字串處理練習

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a = "22233577"
        Dim str1 = ""
        Dim p = ""
        Dim n = 1
        For i = 1 To a.Length
            Dim c = Mid(a, i, 1)
            If c <> p Then
                If str1 = "" Then
                    str1 = str1 & c & "^ "
                Else
                    str1 = str1 & n & "*" & c & "^"
                End If
                n = 1
            Else
                n = n + 1
            End If
            p = c
        Next
        str1 = str1 & n
        str1 = Replace(str1, "^1", "")
        MsgBox(str1)
    End Sub
End Class

硬碟、隨身碟、虛擬碟速度比較

文字定位控制練習

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s = ""
        Dim a = "明天會更好"

        For i = 1 To 5
            '左下至右上()
            s = vbNewLine & Space(i * 3) & Mid(a, i, 1) & s
        Next
        For i = 1 To 5
            '左上至右下()
            s = s & vbNewLine & Space(i * 3) & Mid(a, i, 1)
        Next
        For i = 1 To 5
            '右上至左下
            s = s & vbNewLine & Space((6 - i) * 3) & Mid(a, i, 1)
        Next
        For i = 1 To 5
            '右下至左上
            s = vbNewLine & Space((6 - i) * 3) & Mid(a, i, 1) & s
        Next

        MsgBox(s)
    End Sub
End Class

系統工程從複雜問題的總體入手

系統工程的目的是解決總體優化問題，從複雜問題的總體入手，認為總體大於各部分之和，各部分雖較劣但總體可以優化。有的問題，如電話網路，不能只研究個別電話的質量問題，必須從總體網路入手，這種思路是和笛卡兒的方法論相左的。

ref: http://zh.wikipedia.org/w/index.php?title=%E7%B3%BB%E7%BB%9F%E5%B7%A5%E7%A8%8B&variant=zh-tw

研究問題的方法分四個步驟

笛卡兒在方法論中指出，研究問題的方法分四個步驟：

1. 永遠不接受任何我自己不清楚的真理，就是說要盡量避免魯莽和偏見，只能是根據自己的判斷非常清楚和確定，沒有任何值得懷疑的地方的真理。就是說只要沒有經過自己切身體會的問題，不管有什麼權威的結論，都可以懷疑。這就是著名的「懷疑一切」理論。例如亞里士多德曾下結論說，女人比男人少兩顆牙齒。但事實並非如此。
2. 可以將要研究的複雜問題，盡量分解為多個比較簡單的小問題，一個一個地分開解決。
3. 將這些小問題從簡單到複雜排列，先從容易解決的問題著手。
4. 將所有問題解決後，再綜合起來檢驗，看是否完全，是否將問題徹底解決了

Ref : http://zh.wikipedia.org/w/index.php?title=%E6%96%B9%E6%B3%95%E8%AB%96&variant=zh-tw