中市雲端英語學堂開課了！讓學生敢開口講英語

台中市府推動「雲端英語學堂計畫」，在清水高中、台中家商、新社高中設立雲端英語學堂，開放高中學生參加。

學生剛開始練習時很害羞，但在指導老師的引導下，對英文不再懼怕，敢勇於以英語對話。

為增進學生英語口說能力，台中市府教育局推動「雲端英語學堂計畫」，在清水高中、台中家商、新社高中設立雲端英語學堂，開放高中學生免費報名參加，學生每周上課1次，透過提供電腦及視訊設備，學生可以直接與外國老師或同學直接英語對話，提升學生興趣。

教育局長楊振昇說，學生每周上課1次、每次上課２小時，從暑假密集班到開學後常態班都有，並採小班制教學，每班30個名額，每人上課10堂，預計360名同學受惠，讓學子將書本中的英語加以活化，市府將規畫多元國際教育計畫，強化學生的外語能力、國際素養。

台中高工學生莊佑霆表示，常看英美影集，但沒有機會和外師真正用英文溝通，這個計畫讓能夠感受到語言的實用性與有趣性，老師專業又有耐心和學生溝通，學習有效率。

「第一次跟線上外師聊天，用英語溝通表達，投入在英文的世界」，台中家商學生柯永誠說，藉由課程學到全新的學習模式，老師會即時糾正發音，自己也能以過即時造句的方式，訓練了解生字的意思，加強流利的口語表達。

新社高中學生蘇信宇一開始練習時很害羞，但在指導老師的引導下，逐漸投入課程之後，對英文不再懼怕，敢勇於以英語對話。

(中時 )

中時即時╱中市雲端英語學堂開課了！讓學生敢開口講英語
https://www.chinatimes.com/realtimenews/20190712002326-260405?chdtv

中時A12╱雲端英語學堂 強化口語能力
https://www.chinatimes.com/newspapers/20190713000583-260107?chdtv

中廣新聞╱中市開辦雲端英語學堂　與外籍師生對話
http://www.bcc.com.tw/newsView.3437505

勁報╱中市府開辦雲端英語學堂  線上學習無距離
http://www.twpowernews.com/home/news_pagein.php?iType=1010&n_id=163042

指傳媒╱中市府開辦雲端英語學堂  線上學習無距離
http://www.fingermedia.tw/?p=732567

青年日報╱中市雲端英語學堂?提升外語能力
https://www.ydn.com.tw/News/343995

教育人╱雲端英語學堂上線增進學生英語口說能力
http://www.edu.game.tw/zh-tw/news_detail/1276

臺灣導報╱市府開辦雲端英語學堂 線上學習無距離
https://taiwan-reports.com/archives/400758

大宇宙新聞時報╱臺中市開辦雲端英語學堂，線上學習無距離
http://www.macrocosm.tw/indexmain.php?mmenu=18000&sid=82172&cateid=10&imp=1

市政新聞╱中市府開辦雲端英語學堂  線上學習無距離

https://www.taichung.gov.tw/1319032/post

台中市政府教育局雲端英語學堂計畫--TutorABC(tutorJunior)使用心得及活動感想

(0704)
藉由這次的課程，讓我學到了另一種全新的學習模式，第一次跟線上外師哈拉，在每天的45分鐘裡面，沉浸在英文的世界，暢談英文，並且可以跟外師線上互動了解到其他同學在課堂中所想的意思，訓練自已的英聽能力。

昨天遇到的外師是來自美國的Alexandra，平時的英文課，很少有機會可以上到全英文的課程(如果不是應外生的話)，在上課的時候，老師會即時糾正我們的發音，並且讓我們透過即時造句的方式，訓練我們了解生字的意思。

希望在結束之後，能夠有更流利的口語表達。

With this course, I learned another new learning model. I chatted with online and foreign teachers for the first time. In the 45 minutes of the day, I was immersed in the English world, talked about English, and could interact with foreigners online. Train your own English listening ability to what other students think in class.

The foreign teacher I met yesterday was Alexandra from the United States. I usually have an English class. I have a few chances to go to the English course (if it is not an exogenous student). When I am in class, the teacher will correct our pronunciation immediately. And let us train us to understand the meaning of the word by means of instant sentence making.

I hope that after the end, I will be able to have a more fluent oral expression.

(0711)
隨著課堂即將進入尾聲，回顧這幾天，我覺得最大的收穫就是找回自己訓練口說的自信，縱使發音錯誤，仍然可以自在的表達自己腦海中所想的思維，將腦海裡所想的盡我的能力表達出來讓對方可以了解我的意思，也在這10天的課程當中，學到了不少更深的單字，不管是舊的單字當複習也好，還是更多沒有見過具有挑戰性的單字，希望這些在我表達時能夠更精確的表現出我所想的意思。

在課堂中，更要感謝Shirley老師以及各位同學，在這10天當中讓我能夠繼續盡我的能力為大家服務，作為一位崇尚應用外語科且渴望認識更多單字的學生，學習英文的動力在我的心中，永遠不會消失。

As the class is about to come to an end, looking back these days, I think the biggest reward is to find the confidence that I can say in my training. Even if the pronunciation is wrong, I can still express my thoughts in my mind and think about what I think. I can express my ability so that the other party can understand what I mean. In the course of this 10-day course, I have learned a lot of deeper words. Whether it is the old one, when reviewing, or more, I have never seen it challenging. I hope that these words will show me what I think more accurately when I express them.

In the classroom, I would like to thank Shirley and my classmates for allowing me to continue to do my best to serve you during these 10 days. As a student who advocates the application of foreign languages and is eager to know more words, I will learn English. In my heart, it will never disappear.

也感謝我們的Iris校長及教務主任能夠抽空來關心我們，您們的鼓勵是我們最大進步的動力。

Thanks also to our President Iris and the Academic Director for taking the time to care for us. Your encouragement is our driving force for maximum progress.

Microbit_0529

點我進入

陣列排序

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(5) As Integer
        Dim n, temp As Integer
        n = 1
        For i = 1 To 5
            a(i) = Mid(TextBox1.Text, n, 2)
            n = n + 3
        Next
        Label2.Text = "5個陣列元素以選擇排序法排序，共需4次循環" & vbCrLf
        For x = 4 To 1 Step -1
            Label2.Text = Label2.Text & "第" & 5 - x & "循環結果為"
            For y = 1 To x
                If a(y) > a(y + 1) Then
                    temp = a(y)
                    a(y) = a(y + 1)
                    a(y + 1) = temp
                End If
            Next
            For i = 1 To 5
                Label2.Text = Label2.Text & a(i) & " "
            Next
            Label2.Text = Label2.Text & vbCrLf
        Next
    End Sub
End Class

Microbit-(阿瓦隆)數字接收並判斷任務成功或失敗

點我進入

11800-1060306

Public Class Form1

    Dim d(100, 4)
    Dim rno As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rdata()
        For i = 1 To rno
            If d(i, 4) = "" Then sp1(i)
            If d(i, 4) = "" Then sp2(i)
            If d(i, 4) = "" Then sp3(i)
        Next
        wdata()
    End Sub

    Sub rdata()
        FileOpen(1, "C:\940306.sm", OpenMode.Input)
        rno = 0
        Do While Not EOF(1)
            rno += 1
            Input(1, d(rno, 1)) : Input(1, d(rno, 2)) : Input(1, d(rno, 3))
        Loop
        FileClose()
    End Sub

    Sub sp1(ByVal i)
        Dim id = d(i, 1)
        If id Like "[A-Z]#########" Then  Else d(i, 4) = "FORMAT ERROR"
    End Sub

    Sub sp2(ByVal i)
        Dim D1S = Mid(d(i, 1), 2, 1) & d(i, 3)
        If (D1S = "1M") Or (D1S = "2F") Then  Else d(i, 4) = "SEX CODE ERROR"
    End Sub

    Sub sp3(ByVal i)
        Dim s26 = "ABCDEFGHJKLMNPQRSTUVXYWZIO"
        Dim L1 = Mid(d(i, 1), 1, 1)
        Dim X12 = InStr(s26, L1) + 9
        Dim x1 = X12 \ 10
        Dim x2 = X12 Mod 10

        Dim D1 = Mid(d(i, 1), 2, 1)
        Dim D2 = Mid(d(i, 1), 3, 1)
        Dim D3 = Mid(d(i, 1), 4, 1)
        Dim D4 = Mid(d(i, 1), 5, 1)
        Dim D5 = Mid(d(i, 1), 6, 1)
        Dim D6 = Mid(d(i, 1), 7, 1)
        Dim D7 = Mid(d(i, 1), 8, 1)
        Dim D8 = Mid(d(i, 1), 9, 1)
        Dim D9 = Mid(d(i, 1), 10, 1)

        Dim y = x1 + 9 * x2 + 8 * D1 + 7 * D2 + 6 * D3 + 5 * D4 + 4 * D5 + 3 * D6 + 2 * D7 + D8 + D9

        If y Mod 10 = 0 Then  Else d(i, 4) = "CHECK SUM ERROR"
    End Sub

    Sub wdata()
        DGV.columns.add("ID NO", "ID NO")
        DGV.Columns.Add("NAME", "NAME")
        DGV.Columns.Add("SEX", "SEX")
        DGV.Columns.Add("ERROR", "ERROR")

        For i = 1 To rno
            DGV.Rows.Add(d(i, 1), d(i, 2), d(i, 3), d(i, 4))
        Next

        DGV.Sort(DGV.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
        DGV.Columns(2).Width = 50
        DGV.Columns(3).Width = 150
        DGV.AllowUserToAddRows = False
    End Sub
End Class

20190518 漢口國中會考服務

數值轉換 二進位轉十進位

'因十進位轉二進位已張貼過，故不重複貼出。

Public Class Form1
    Dim str1 As String
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        Dim tol As Integer
        str1 = InputBox("請輸入您想要計算的二進位數值")
        For i = 1 To Len(str1)
            a = Mid(str1, i, 1)
            If a = 1 Then
                tol = tol + 2 ^ (Len(str1) - i)
            Else
                tol = tol
            End If
        Next
        MsgBox(tol)
    End Sub
End Class

Microbit_貪食蛇

數值轉換 十進位轉二進位

'純數字轉換系統

Public Class Form1
    Dim D2B As String
    Dim Dec As Integer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dec = InputBox("請輸入0~255之間的任意數字")
        D2B = ""
        Do While Dec > 0
            D2B = Dec Mod 2 & D2B
            Dec = Dec \ 2
        Loop
        MsgBox(D2B)
        End
    End Sub
End Class


'將位數補齊為8位數

Public Class Form1
    Dim D2B As String
    Dim Dec As Integer
    Dim supply As String
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dec = InputBox("請輸入0~255之間的任意數字")
        D2B = ""
        Do While Dec > 0
            D2B = Dec Mod 2 & D2B
            Dec = Dec \ 2
        Loop
        checkD2B(D2B)
        MsgBox(D2B)
        End
    End Sub

    Sub checkD2B(ByRef D2B As String)
        '當二進位數字長度小於八位數時，將其數字補齊。
        If Len(D2B) < 8 Then
            For i = 1 To 8 - Len(D2B)
                supply &= "0"
            Next
        End If
        D2B = supply & D2B
    End Sub
End Class