Public Class Form1
    Dim B(4, 4) As Label
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 4
            For j As Integer = 0 To 4
                B(i, j) = Me.Controls("Label" & i * 5 + (j + 1))
                B(i, j).BackColor = Color.SkyBlue
            Next
        Next
        For i As Integer = 0 To 4
            For j As Integer = 0 To 4
                B(i, j).Left = j * 50
                B(i, j).Top = i * 50
            Next
        Next
        Randomize()
        Dim a As Integer
        For i As Integer = 0 To 4
            For j As Integer = 0 To 4
                a = Int(Rnd() * 49) + 1
                B(i, j).Text = a
            Next
        Next
        Label26.Text = ""
        Label26.BackColor = Color.Yellow
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Randomize()
        Dim c As Integer
        Dim d As String = ""
        c = Int(Rnd() * 49) + 1
        d = c & ", "
        Label26.Text = Label26.Text & d
        For i As Integer = 0 To 4
            For j As Integer = 0 To 4
                If B(i, j).Text = c Then
                    B(i, j).ForeColor = Color.Red
                End If
            Next
        Next
    End Sub
End Class

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PrintPreviewDialog1.Document = PrintDocument1
        PrintDialog1.Document = PrintDocument1
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Randomize()
        Dim count(25) As Integer
        Dim MyGraphics As Graphics = e.Graphics
        Dim MyPen1 As New Pen(Color.Blue, 1)
        Dim MyPen2 As New Pen(Color.Red, 1)
        Dim MyFont As New Font("標階體", 20)
        Dim MyFont2 As New Font("標階體", 10)
        Dim MyBrush As New SolidBrush(Color.Blue)
        Dim ans As String = ""
        Dim i, j As Integer
        For i = 1 To 25
            count(i) = Int(Rnd() * 61) + 40
        Next
        For i = 1 To 6
            MyGraphics.DrawLine(MyPen1, 50, i * 50, 300, i * 50)
            MyGraphics.DrawLine(MyPen1, i * 50, 50, i * 50, 300)
        Next
        For i = 1 To 5
            For j = 1 To 5
                MyGraphics.DrawString((i - 1) * 5 + j, MyFont, MyBrush, i * 50 + i, j * 50)
                If count((i - 1) * 5 + j) < 60 Then
                    MyGraphics.DrawEllipse(MyPen2, i * 50, j * 50, 50, 50)
                End If
            Next
        Next
        For i = 1 To 25
            ans = ans & count(i) & ","
        Next
        MyGraphics.DrawString(ans, MyFont2, MyBrush, 50, 310)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintPreviewDialog1.ShowDialog()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim MyGraphics As Graphics = e.Graphics
        Dim MyPen1 As New Pen(Color.Blue, 1)
        Dim MyFont As New Font("標階體", 20)
        Dim MyBrush As New SolidBrush(Color.Blue)

        Dim i, j As Integer
        Dim count As Integer = 0
        For i = 1 To 6
            MyGraphics.DrawLine(MyPen1, 50, i * 50, 300, i * 50)
            MyGraphics.DrawLine(MyPen1, i * 50, 50, i * 50, 300)
        Next
        For i = 1 To 5
            For j = 1 To 5
                MyGraphics.DrawString((i - 1) * 5 + j, MyFont, MyBrush, i * 50 + i, j * 50 + i)
            Next
        Next

    End Sub
End Class

n耐冇打過qz了...好似已經冇左打qz ge意途=(
le個聖誕 => alone 慣了-v-
暫時聖誕開心的日子: 2 Days =)
聖誕聯歡果日算係成功咁係班到搞左唱卡啦ok
不過有d非本班ge人走入泥搶咪唱就真係有d 5踞...自己班又5係冇得唱.
日日好似係屋企發呆咁-3-
頭先去左琴行...彈左首Secret 比果到考琴果個聽...
比我直接學5級...ya~
好想快d可以考級=3=
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
陳柏宇 - 日出前讓愛戀延續

讓美好在延續　牽強地延長結局
可靜聽你聲音　多幾次便滿足
若兩心未平伏　苦笑漫談直到夜色消散
就似秒針兜轉　不想結束

快要倒數終於害怕　到了這刻只管自責
誰能成熟到再沒疑惑