東大B4國文課講義資料：烏臺詩案之始末

烏臺詩案之始末

報告人：資料處理科 二年一班 柯永誠

前言：

表一：5W1H

Who
Where
When
What
Why
How

108年台中家商校內技藝競賽程式設計組參賽證明及獎狀

烏臺詩案_參考資料

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

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

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

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

每日一則：烏台詩案

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

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

烏臺詩案_維基百科

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

獄中寄子由二首

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

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

雷射切割理論及操作步驟

(圖片來源：網路)

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

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

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

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

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.