【嘉南區】術科評分系統暨Word VBA實務應用教學研習

 

活動名稱
【嘉南區】術科評分系統暨Word VBA實務應用教學研習

活動簡介
透過術科評分系統教師培訓研習，讓參與研習的老師減輕人工批閱乙丙級電腦軟體應用術科的工作負荷。除此之外，藉由實際的操作與講解分享如何以Word VBA開發評分系統，進而提昇教師專業教學能力及檢定成果，與促進落實證照取得全面化。

活動類別
研討會

區域別
南區

主辦單位
高苑科技大學資訊管理系

協辦單位
碁峰資訊股份有限公司

開始研習日期
2010/11/13

結束研習日期
2010/11/13

研習地點
高苑科大-資訊大樓資403室

研習地址
高雄縣路竹鄉中山路1821號

參加對象
一、現職合格專任之公私立科技大學、技術學院、專科學校講師以上教師或專業技術教師及現職合格專任之高級職業學校(含高中附設職業類科與綜合高中專門學程)
二、目前已任教電腦軟體應用乙級或丙級課程或是下學期即將規劃教授相關課程之教師。
三、對Word VBA或評分系統有興趣之現職教師。

主講人
吳進北老師、林文恭老師

活動行程
08:45~09:00 報到
09:00~09:30 丙級軟體應用術科自動評分系統建置及應用(環境建置及評分作業講解與實作)
09:30~10:00 乙級軟體應用術科自動評分系統建置及應用(環境建置及評分作業講解與實作)
10:10~11:00 成績自動收集作業環境之建置及使用說明(個別成績如何自動收集彙總至Excel工作表講解與實作)
11:10~12:00 Word VBA 簡介(Word VBA快速上手)
12:00~13:00 中午用餐
13:10~15:00 評分系統實作
15:10~17:40 乙丙級軟體應用術科評分系統實作(自動評分系統、成績自動收集作業實作演練)
17:40~18:00 綜合研討

報名開始日期
2010/10/25

報名結束日期
2010/11/8

聯絡人姓名
楊佳穎

聯絡人電話
(02)2788-2408分機:854

其他說明
一、 敬請各校惠予參加本研習教師公差假。
二、 本研習活動教師可免費報名參加。
三、 上課教師可自行自備隨身碟，以便儲存資料之用。
四、 本研習由主辦學校提供8小時之研習證書。

相關資訊網址
交通路線圖

報名表
我要報名

【嘉南區】術科評分系統暨Word VBA實務應用教學研習

【高屏區】術科評分系統暨Word VBA實務應用教學研習

 

活動名稱
【高屏區】術科評分系統暨Word VBA實務應用教學研習

活動簡介
透過術科評分系統教師培訓研習，讓參與研習的老師減輕人工批閱乙丙級電腦軟體應用術科的工作負荷。除此之外，藉由實際的操作與講解分享如何以Word VBA開發評分系統，進而提昇教師專業教學能力及檢定成果，與促進落實證照取得全面化。

活動類別
研討會

區域別
南區

主辦單位
美和科技大學--健康產業資訊科技系

協辦單位
碁峰資訊股份有限公司

開始研習日期
2010/11/20

結束研習日期
2010/11/20

研習地點
美和科技大學傍興樓五樓D514多媒體電腦室

研習地址
屏東縣內埔鄉美和村屏光路23號

參加對象
一、現職合格專任之公私立科技大學、技術學院、專科學校講師以上教師或專業技術教師及現職合格專任之高級職業學校(含高中附設職業類科與綜合高中專門學程)
二、目前已任教電腦軟體應用乙級或丙級課程或是下學期即將規劃教授相關課程之教師。
三、對Word VBA或評分系統有興趣之現職教師。

主講人
吳進北老師、林文恭老師

活動行程
08:45~09:00 報到
09:00~09:30 丙級軟體應用術科自動評分系統建置及應用(環境建置及評分作業講解與實作)
09:30~10:00 乙級軟體應用術科自動評分系統建置及應用(環境建置及評分作業講解與實作)
10:10~11:00 成績自動收集作業環境之建置及使用說明(個別成績如何自動收集彙總至Excel工作表講解與實作)
11:10~12:00 Word VBA 簡介(Word VBA快速上手)
12:00~13:00 中午用餐
13:10~15:00 評分系統實作
15:10~17:40 乙丙級軟體應用術科評分系統實作(自動評分系統、成績自動收集作業實作演練)
17:40~18:00 綜合研討

報名開始日期
2010/10/25

報名結束日期
2010/11/12

聯絡人姓名
楊佳穎

聯絡人電話
(02)2788-2408分機:854

其他說明
一、敬請各校惠予參加本研習教師公差假。
二、本研習活動教師可免費報名參加。
三、上課教師可自行自備隨身碟，以便儲存資料之用。
四、本研習由主辦學校提供8小時之研習證書。

相關資訊網址
交通路線圖

報名表
我要報名

【高屏區】術科評分系統暨Word VBA實務應用教學研習

雙向排序

'雙向排序
Public Class Form1
    Dim counter = 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '雙向排序 - 一次取得剩餘未處理部份的最大最小值
        Dim n() = {9, 8, 7, 6, 5, 4, 3, 2, 10, 1}
        Dim i1 = 0
        Dim i2 = n.Length - 1
        While i1 < i2
            Dim j1 = i1 + 1
            Dim j2 = i2 - 1
            While j1 <= n.Length - 1
                If n(i1) > n(j1) Then
                    change(n(i1), n(j1))
                End If
                If n(i2) < n(j2) Then
                    change(n(i2), n(j2))
                End If
                j1 = j1 + 1
                j2 = j2 - 1
            End While
            i1 = i1 + 1
            i2 = i2 - 1
        End While
        Dim str1 = ""
        For i = 0 To n.Length - 1
            str1 = str1 & n(i) & Space(3)
        Next
        str1 = str1 & vbNewLine & "交換:" & counter & "次 " & vbNewLine
        '單向排序
        counter = 0
        Dim n1() = {9, 8, 7, 6, 5, 4, 3, 2, 10, 1}
        Dim f1 = 0
        While f1 <= n.Length - 1 - 1
            Dim g1 = f1 + 1
            While g1 <= n.Length - 1
                If n1(f1) > n1(g1) Then
                    change(n1(f1), n1(g1))
                End If
                g1 = g1 + 1
            End While
            f1 = f1 + 1
        End While
        For i = 0 To n.Length - 1
            str1 = str1 & n1(i) & Space(3)
        Next
        str1 = str1 & vbNewLine & "交換:" & counter & "次 " & vbNewLine
        MsgBox(str1)
        End
    End Sub
    Sub change(ByRef x, ByRef y)
        Dim t = x
        x = y
        y = t
        counter = counter + 1
    End Sub
End Class

遞迴版插入排序

'遞迴版插入排序
Public Class Form1
    Dim a() = {9, 1, 8, 7, 6, 5, 4, 10, 3, 2}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim str1 = ""
        Call rsort(1, a)
        For i = 0 To a.Length - 1
            str1 = str1 & a(i) & Space(3)
        Next
        MsgBox(str1)
        End
    End Sub
    Sub rsort(ByVal n, ByRef a)
        If n = a.length Then
            Return
        Else
            Dim p = a(n)
            Dim j = 0
            While a(j) < p
                j = j + 1
            End While
            For k = n To j + 1 Step -1
                a(k) = a(k - 1)
            Next
            a(j) = p
            rsort(n + 1, a)
        End If
    End Sub
End Class

插入排序

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a() = {9, 1, 8, 7, 6, 5, 4, 10, 3, 2}
        For i = 1 To a.Length - 1
            Dim p = a(i)
            Dim j = 0
            While a(j) < p
                j = j + 1
            End While
            For k = i To j + 1 Step -1
                a(k) = a(k - 1)
            Next
            a(j) = p
        Next
        End
    End Sub

窮舉例

'窮舉例
'以1,2,3三個數字, 可重覆方式組成7
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '最佳解
        Dim n = 7
        Dim a() = {3, 2, 1}
        Dim ansStr = ""
        Dim i = 0
        While n > 0
            While n >= a(i)
                n = n - a(i)
                ansStr = ansStr & a(i)
            End While
            i = i + 1
        End While
        MsgBox(ansStr)
        '所有解
        n = 7
        Dim k(a.Length - 1) As Integer
        For i = 0 To a.Length - 1
            k(i) = n \ a(i)
        Next
        Dim str1 = ""
        Dim str2 = ""
        Dim j1, j2, j3
        Dim z = 0
        For j3 = 0 To k(0)
            For j2 = 0 To k(1)
                For j1 = 0 To k(2)
                    If 3 * j3 + 2 * j2 + 1 * j1 = n Then
                        z = z + 1
                        str1 = "解" & z & " --> " & " 3:" & j3 & " 2:" & j2 & " 1:" & j1
                        str2 = str2 & str1 & vbTab
                        If z Mod 5 = 0 Then str2 = str2 & vbNewLine
                    End If
                Next
            Next
        Next
        MsgBox(str2)
        End
    End Sub
End Class

Joseph Problem

'Joseph Problem
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim aL As New ArrayList
        Dim aLB As New ArrayList
        Dim aStr = "123456789ABCDE"
        For i = 1 To aStr.Length
            aL.Add(Mid(aStr, i, 1))
        Next
        Dim k = 3
        Dim ic = 0 + k - 1
        While aL.Count > 1
            ic = ic Mod aL.Count
            aLB.Add(aL.Item(ic))
            aL.RemoveAt(ic)
            ic = ic + k - 1
        End While
        MsgBox(aL.Item(0))
    End Sub
End Class