烏臺詩案_參考資料

你知道「烏台詩案」是因為哪首詩而起嗎？

閒敘歷史之—「烏台詩案的受害人是誰 烏台詩案對蘇軾的影響」

烏台詩案是一起較大的文字獄？受害人都有誰

宋朝的文字獄烏台詩案受牽連的受害人是誰

每日一則：烏台詩案

歷史上著名的「烏台詩案」，為什麼救蘇軾的全是他的昔日敵人

宋朝時期一篇八股文所引發的「筆禍」案，蘇軾因此入獄受審

烏臺詩案_維基百科

烏臺詩案後，政壇新秀蘇軾蛻變成了文壇大家蘇東坡

獄中寄子由二首

為蘇軾惹來烏台詩案的《湖州謝上表》到底寫了啥？全文解讀

代表台灣特色的鑰匙圈雷切實做

雷射切割理論及操作步驟

(圖片來源：網路)

一、繪製草稿
二、電腦製圖與成形模擬
三、數據測試及修正
四、量產與成形

沒有時間與數量的限制：更正為，視您的情況而定。

修平科技大學_思科網路研習(研習證書)

踩地雷(配合函數與副程式)

Public Class Form1
    Dim bomb As Integer
    Dim bomb1 As Integer
    Dim bomb2 As Integer
    Dim count As Integer

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Randomize()
        bomb = Int(Rnd() * 6) + 1
        For i = 1 To 10
            bomb1 = Int(Rnd() * 6) + 1
            If bomb1 <> bomb Then Exit For
        Next
        For j = 1 To 10
            bomb2 = Int(Rnd() * 6) + 1
            If bomb2 <> bomb And bomb2 <> bomb1 Then Exit For
        Next

    End Sub


    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
        Call checkBomb(1)
        If Label1.Text = "N" Then
            MsgBox("爆炸了！") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次，遊戲結束！")
        End If
    End Sub

    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
        Call checkBomb(2)
        If Label2.Text = "N" Then
            MsgBox("爆炸了！") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次，遊戲結束！")
        End If
    End Sub

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
        Call checkBomb(3)
        If Label3.Text = "N" Then
            MsgBox("爆炸了！") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次，遊戲結束！")
        End If
    End Sub

    Private Sub Label4_Click(sender As System.Object, e As System.EventArgs) Handles Label4.Click
        Call checkBomb(4)
        If Label4.Text = "N" Then
            MsgBox("爆炸了！") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次，遊戲結束！")
        End If
    End Sub

    Private Sub Label5_Click(sender As System.Object, e As System.EventArgs) Handles Label5.Click
        Call checkBomb(5)
        If Label5.Text = "N" Then
            MsgBox("爆炸了！") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次，遊戲結束！")
        End If
    End Sub

    Private Sub Label6_Click(sender As System.Object, e As System.EventArgs) Handles Label6.Click
        Call checkBomb(6)
        If Label6.Text = "N" Then
            MsgBox("爆炸了！") : count = count + 1
            Label8.Text = count
            If Label8.Text = 3 Then MsgBox("連爆三次，遊戲結束！")
        End If
    End Sub

    Sub checkBomb(ByVal x)
        If bomb = x Or bomb1 = x Or bomb2 = x Then

            Select Case x
                Case 1 : Label1.Text = "N"
                Case 2 : Label2.Text = "N"
                Case 3 : Label3.Text = "N"
                Case 4 : Label4.Text = "N"
                Case 5 : Label5.Text = "N"
                Case 6 : Label6.Text = "N"
            End Select
        End If
    End Sub
End Class

樂透彩抽獎小程式(配合函數與副程式)

Public Class Form1
    Dim n(6) As Integer
    '宣告6個位置分別讓電腦依序抽出六個號碼。


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        num()
        printnum()
    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        num()
        printnum()
    End Sub


    Sub num()     
        For i = 1 To 6
            n(i) = Int(Rnd() * 49) + 1
            '抽出1~49之中其中一個號碼
            For j = 1 To i - 1
                If n(j) = n(i) Then n(i) = 0 : i = i - 1
                '如果遇到與之前抽過的號碼有衝突則清空該值，重新輸入。
            Next

        Next
    End Sub


    Sub printnum()
        Label1.Text = n(1)
        Label2.Text = n(2)
        Label3.Text = n(3)
        Label4.Text = n(4)
        Label5.Text = n(5)
        Label6.Text = n(6)
        '最後利用六個Label顯示六個剛剛被抽中的號碼。
    End Sub
End Class

English_Introducing Windows 10 Transcript

2

Good morning, everybody

My name is Mark

Today, I’ll show you the greatest operating system (stop) which I have ever used.

Let’s understand it.

3

Here’s my content today

4

Windows 10, was born on 2015, is a cross-platform system which can be presented on anywhere you can think to, even TV, XBOX, and IOT device.

5

Does it an independent operating system? None. It’s working on the Internet.

So, you can do your homework from anytime, anywhere, anyway.

6

The newest start menu is combined with 7’s start menu and 8’s Metro UI.

All programs on Windows 10 will be presented as an App, like your big cellphone.

7

It’s a faster, safer system which I haven’t seen yet.

And it’s more intelligent and powerful.

8

However, it will show something uncertainly error that make you crazy. No. It will let you to know how to repair your computer.

Besides, it’s also a wonderful system.

11

At last, I introduced it to you guys because I think it’s able to be used by everyone, such as children, the elders.

12

Don’t forget to buy a legal authorization on their official site, enjoy it!

13

Here’s my presentation today, thanks for listening.

樂透彩抽獎小程式

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n(6) As Integer
        '宣告6個位置分別讓電腦依序抽出六個號碼。
        For i = 1 To 6
            n(i) = Int(Rnd() * 49) + 1
            '抽出1~49之中其中一個號碼
            For j = 1 To i - 1
                If n(j) = n(i) Then n(i) = 0 : i = i - 1
                '如果遇到與之前抽過的號碼有衝突則清空該值，重新輸入。
            Next
            MsgBox(n(i))
            '利用訊息框顯示被抽中之開獎號碼。
        Next

        Label1.Text = n(1)
        Label2.Text = n(2)
        Label3.Text = n(3)
        Label4.Text = n(4)
        Label5.Text = n(5)
        Label6.Text = n(6)
        '最後利用六個Label顯示六個剛剛被抽中的號碼。
    End Sub
End Class

五星彩開獎作業

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n(3, 4) As Integer
        Dim a(5) As Integer

        Label1.Text = "近四期5星彩開獎號碼："
        For i = 0 To 3
            Label1.Text = Label1.Text & vbCrLf & vbCrLf & "第" & i + 1 & "期："
            For j = 0 To 4
                n(i, j) = InputBox("輸入第" & i + 1 & "期開獎號碼" & vbCrLf & "第" & j + 1 & "個號碼")
                Select Case n(i, j)
                    Case 0 : a(0) += 1 : Label3.Text = "0出現" & a(0) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 1 : a(1) += 1 : Label4.Text = "1出現" & a(1) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 2 : a(2) += 1 : Label5.Text = "2出現" & a(2) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 3 : a(3) += 1 : Label6.Text = "3出現" & a(3) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 4 : a(4) += 1 : Label7.Text = "4出現" & a(4) & "次" : Label1.Text &= n(i, j) & Space(2)
                    Case 5 : a(5) += 1 : Label8.Text = "5出現" & a(5) & "次" : Label1.Text &= n(i, j) & Space(2)
                        '當程式碼偵測到數值符合我要的條件後，則繼續往後執行下一步驟
                    Case > 5 : MsgBox("請輸入0~5之間的數字", 16, "輸入錯誤") : n(i, j) = 0 : j = j - 1
                        '否則將其j值-1將其值清空後重新給予使用者輸入
                End Select


            Next
        Next
    End Sub

字彙即時通線上單字書

請點我進入

說明：此為有版權之單字(書面)，故請確定有認真想學習之夥伴們再行申請加入班級，謝謝。
(僅限教育教學用途，如作為商業利益，請自行負責後果！)