Loop_Array Sample

'抄下後，鍵入於VB2010中，觀察執行結果。

'如出現雜訊，請改以Chrome 開啓

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim msg = ""
        '陣列
        Dim na() = {"趙一", "林二", "張三", "李四", "王五", "方六", "白七", "周八", "陳九"}
        Dim ch() = {90, 100, 60, 75, 50, 80, 99, 88, 0}

        ''平均
        Dim s = 0
        For i = 0 To na.Length - 1
            s = s + ch(i)
        Next
        msg = msg & "平均:" & Int(s / na.Length + 0.5) & "分" & vbNewLine

        '最高分
        Dim ma = ch(0)
        For i = 1 To na.Length - 1
            If ch(i) > ma Then ma = ch(i)
        Next
        msg = msg & "最高:" & ma & "分" & vbNewLine

        '最低分
        Dim mi = ch(0)
        For i = 1 To na.Length - 1
            If ch(i) < mi Then mi = ch(i)
        Next
        msg = msg & "最低:" & mi & "分" & vbNewLine

        '李四考？
        Dim ss = "李四"
        Dim sn = ""
        Dim isfound = False

        For i = 0 To na.Length - 1
            If na(i) = ss Then
                sn = ch(i)
                isfound = True
                Exit For
            End If
        Next
        If isfound = True Then
            msg = msg & ss & ":" & sn & "分" & vbNewLine
        End If

        msg = msg & vbNewLine
        '80分以上有多少人？
        Dim c = 0
        For i = 0 To na.Length - 1
            If ch(i) >= 80 Then c = c + 1
        Next
        msg = msg & "80分以上有" & c & "人" & vbNewLine

        '80分以上是那些人？
        For i = 0 To na.Length - 1
            If ch(i) >= 80 Then msg = msg & na(i) & "考" & ch(i) & "分" & vbNewLine
        Next

        MsgBox(msg)
        End
    End Sub
End Class

Loop_Array Sample

'抄下後，鍵入於VB2010中，觀察執行結果。
'如出現雜訊，請改以Chrome 開啓 

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim na() = {"趙一", "李四", "張三", "李四", "王五", "方六"}
        Dim ch() = {90, 60, 100, 75, 50, 80}

        Dim msg = ""

        '平均
        Dim s = 0
        For i = 0 To 5
            s = s + ch(i)
        Next
        msg = msg & "平均:" & Int(s / 6 + 0.5) & "分" & vbNewLine

        '最高分
        Dim ma = ch(0)
        Dim t = ""
        For i = 1 To 5
            If ch(i) > ma Then
                ma = ch(i)
                t = na(i)
            End If

        Next
        msg = msg & "最高分:" & ma & "分是" & t & vbNewLine

        '最低分
        Dim mi = ch(0)
        For i = 1 To 5
            If ch(i) < mi Then
                mi = ch(i)
                t = na(i)
            End If

        Next
        msg = msg & "最低分:" & mi & "分是" & t & vbNewLine

        '李四考幾分?
        For i = 0 To 5
            If na(i) = "李四" Then
                msg = msg & "李四考" & ch(i) & "分" & vbNewLine
            End If
        Next

        '80分以上有多少人？
        msg = msg & vbNewLine
        Dim c = 0
        For i = 0 To 5
            If ch(i) >= 80 Then
                c = c + 1
            End If
        Next
        msg = msg & "80分以上有" & c & "人" & vbNewLine

        '80分以上有誰？
        For i = 0 To 5
            If ch(i) >= 80 Then
                msg = msg & na(i) & "考" & ch(i) & "分" & vbNewLine
            End If
        Next

        msg = msg & vbNewLine
        '國文成績大於平均分數5分以上有誰？
        For i = 0 To 5
            If ch(i) >= Int(s / 6 + 0.5) + 5 Then
                msg = msg & na(i) & "考" & ch(i) & "分-->大於平均(平均：" & Int(s / 6 + 0.5) & ")5分以上" & vbNewLine
            End If
        Next

        MsgBox(msg)

        End
    End Sub
End Class

實例演練題 

抄下後，鍵入於VB2010中，比較執行結果 

1.    Msgbox (8*3)

2.    Msgbox (8/3)

3.    Msgbox (8\3)

4.    Msgbox (8 mod 3)

5.    Msgbox (3 ^ 5)

6.    Msgbox (3/3*3) 

7.    Msgbox (3\3*3) 

8.    Msgbox (3+4*5-4)

9.    Msgbox (3+4*5^2-4)

10.  Msgbox (3+4)*5^2-4)

11. dim a = true :dim b = true

msgbox (a and b) 

12. dim a = true :dim b = true

msgbox (a or b) 

13. dim a = true :dim b = true

msgbox (a xor b) 

14. dim a = true :dim  b = true

msgbox (not(a xor b)) 

15. dim a = true :dim  b = false

msgbox (a and b) 

16.dim  a = true :dim  b = false

msgbox (a or b) 

17.dim  a = true : dim b = false

msgbox (a xor b) 

18. dim  a = true :dim  b = false

msgbox (not(a xor b)) 

19. dim a = false :dim  b = false

msgbox (a and b) 

20. dim a = false :dim b = false

msgbox (a or b) 

21. dim a = false : dim b = false

msgbox (a xor b) 

22. dim a = false : dim b = false

msgbox (not(a or b)) 

23 dim a = 3:dim  b =4 :dim c =5:dim  d=6

s = a>b and c>d

msgbox (s)

24 dim a = 3: dim b =4 :dim c =5: dim d=6

s = a>b or (d>c)

msgbox (s)

25 dim a = 3: dim b =4 :dim c =5: dim d=6

s = a>b and not(c>d)

msgbox (s)

26 dim a = 3: dim b =4 :dim c =5: dim d=6

s = a>b xor not(c>d)

msgbox (s)

27 dim a = 3: dim b =4 :dim c =5: dim d=6

s = a>b or not(c>d)

msgbox (s)

28 dim a = 3: dim b =4 :dim c =5: dim d=6

s = not(a>b) xor not(c>d)

msgbox (s)

29 dim a = 3: dim b =4 :dim c =5: dim d=6

s =  not(a>b) or not(c>d)

msgbox (s)

30  dim a = 3: dim b =4 :dim c =5: dim d=6

s =  a+c-b*d/2^2

msgbox (s)

料二 2013-11-19 程式語言練習

練習要求：
將程式碼抄於紙上後，輸入電腦測試結果。