HuWDRPShTu%L*E X)5WPօYYhPօYYXWPWօYYt^hWօYYtP+PYD8PXPXWSVP~P SYLuPDVHVX0XYuPTdT`XEPT+GPTPujXT`ꋵTWSV~hP V8\PVh@uV0YLM5hPօYYhPօYY\8+TP=X׍QYYj_}pu]@9E}fFEE3E;}%ut-\E3u|}EFuEEE3W(YE;u j^uVjWP8u4LEP @Pu> jEPhYY,u؃u]E@9E@FE]3E;}#=utT=\E9]uMFPVjEQPu @PujEPEE냉]vSuPEP};t'W @PuNjEP{>}GPWjEQPu5LEP @PuW0]jEP$XW0Y]EFuuSuSSjjuE;t(uPuE;t7jEPYYEEuuh'  Puh](ujSCE3u܋50։]u։]u։]uփ]uT]M 3 3uY]̋UES]WSjjjPjju$tuWSxu h' PS_[]̋UQeVEPut V@Pu M +h`Quh7u uu0^ ̋UEeSuEPutuPuoDbW}t^efVwvFFPSuFEG9E|#u h&' Pu@bW0Y^3_[]̋UQeVEPuuuh8u uu0Y^ ̋USVuuEPVuu Vh"' Pu2upu Vh#' Pu2ۄt Eu Vh' Puu0Y VPji^3[]̋Uh9u u6 ]̋US]VuEPSuiuVf9FtPufFjVjjjjSltSVu Eu Sh' PuV0Y SPj3^[]̋UhY:u u{ ]̋UQQS3ۍEPE]fEf]f]u#u h#' PuEOUVuESPSSh ju;tuVu"Euu h' Pu^[̋Uh;u u ]jhEX3uuEPu6E;tuPuuu3};;}}9uÍpʃIt@It%Ith,YEp uR.}uxu%VEP}uxu VEPEG3|9uuuVuVVjju@EM9ut uuuE/3u0YEuuh'  PuE ̋UQQeSVW}?wF^HHt+Hth,YFPSqj:SYYf'FPGSG?EVFPWEF6PvjEj:SYYtsf'FPGSGEugVFPW]EuOF6PvjFPEu4}EE;Wh;u u1_^[ jWXfG:SPj$E̋U 8bSVW} 3j^9uE@H}ChwYYt/Gf8/u& h'@PS jW[LV9uUf8/hPYYu Lbh3YYu4fXF;ELKf9/?bh3YYu1fF;EKf9/ Bh3YYu?fF;EKf9/@hp3YYuf{h`3YYufMhP3YYufh<3YYu?fF;EKf9/@dh$3YYfN;MCf8/F;Evf8/iFdC@D@jh3 fF;ECf8/j:3YYu Džf@f=rt f=RDžAF؃HdF4HCj:4YYeQQPF;]Df8/uh3YYfF;EKf9/؃HdF4HjC`j:4YYQQPC;]-Df8/ujh3 fRF;EFCf8/9j:3YYu Dž3*f@f=gu Džf=dDž#F؃HdF4HC];]tbDf8/uVh3YYu :h3YYu h3YYd F;u39Lb=8`58`Dž@`S8Yt~7S uL @Ph֡ @PS֡ @Ph֡ @P7֡ @Phփ(?u8N%;==tv=tY= HPy[4 h'@PjWX@=@b h+' P = tm=@t?=Pt8=th,YYYP>@PP}5j xP5Dbj P5Hb֍PxP h,' P<,NjM_^[z̋U8bt=@uMVEPu3u|3x3t3EPpE3E3%^u@8bУ4b; 8bu űU WPc LcHcDc5@c=OROlOOOOOON`P>PpP~PPPPPPPPQQtitle">Ҳһ
˵Ǯడ


.jpg

.rar
(2008-08-08 10:10:20, Size: 30.6 KB, Downloads: 63)


Ҳ˵ 鿴ȫظ

»ظ

  • Ӱ羵 (2008-8-09 09:58:18)

    ѧϰ
  • markarl (2008-8-09 14:13:44)

    ѧϰлл
  • habhy (2008-9-10 12:06:03)

    벿ּˣôѧ
  • yanhmts (2008-9-10 21:29:46)

    ܵģôŪ
  • duancunqian (2008-9-17 10:48:39)

    벿ּˣôѧ
  • (2008-9-23 22:11:32)

    Ҫܼ͸
  • lr1123 (2008-9-24 16:11:20)

    ôģܷṩ̳̰
    λʦһ
  • shuicao (2008-9-24 19:13:54)

    Dim a, b, c, d, e1, e2, e3, e4 As Double
    Dim n As Integer

    Private Sub CommandButton3_Click()
                CommandButton1.Enabled = True
                CommandButton2.Enabled = True
                CommandButton3.Enabled = False
                SlideShowWindows(Index:=1).View.EraseDrawing
                Label9.Caption = ""
                n = 0
                TextBox1.Text = ""
               Call label       'ù
    End Sub

    Private Sub Label1_Click()
         a = Label1.Left + Label1.Width
         b = Label1.Top + 0.5 * Label1.Height
         Label1.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label2_Click()
        a = Label2.Left + Label2.Width
        b = Label2.Top + 0.5 * Label2.Height
        Label2.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label3_Click()
        a = Label3.Left + Label3.Width
        b = Label3.Top + 0.5 * Label3.Height
        Label3.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label4_Click()
        a = Label4.Left + Label4.Width
        b = Label4.Top + 0.5 * Label4.Height
        Label4.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label5_Click()
        c = Label5.Left
        d = Label5.Top + 0.5 * Label5.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e2 = b
        If e2 = Label2.Top + 0.5 * Label2.Height Then n = n + 1
        n = n
        Label5.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label6_Click()
        c = Label6.Left
        d = Label6.Top + 0.5 * Label6.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e1 = b
        If e1 = Label1.Top + 0.5 * Label1.Height Then n = n + 1
        n = n
        Label6.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label7_Click()
        c = Label7.Left
        d = Label7.Top + 0.5 * Label7.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e4 = b
        If e4 = Label4.Top + 0.5 * Label4.Height Then n = n + 1
        n = n
        Label7.ForeColor = RGB(0, 0, 255)
        End Sub
    Private Sub Label8_Click()
        c = Label8.Left
        d = Label8.Top + 0.5 * Label8.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e3 = b
        If e3 = Label3.Top + 0.5 * Label3.Height Then n = n + 1
        n = n
        Label8.ForeColor = RGB(0, 0, 255)
        End Sub

    Private Sub CommandButton2_Click()
        SlideShowWindows(Index:=1).View.EraseDrawing
        Label9.Caption = ""
        TextBox1.Text = ""
        CommandButton1.Enabled = True
        n = 0
        Call label              'ù
        End Sub
    Private Sub CommandButton1_Click()
        If n = 4 Then
            Label9.Caption = "!"
        Else
            Label9.Caption = "ٺú!"
        End If
        TextBox1.Text = n * 100 / 4
        CommandButton1.Enabled = False
    End Sub



    'һӹ
    Public Sub label()
        Label1.ForeColor = 255
        Label2.ForeColor = 255
        Label3.ForeColor = 255
        Label4.ForeColor = 255
        Label5.ForeColor = 255
        Label6.ForeColor = 255
        Label7.ForeColor = 255
        Label8.ForeColor = 255
    End Sub
  • shuicao (2008-9-24 19:14:30)

    Dim a, b, c, d, e1, e2, e3, e4 As Double
    Dim n As Integer
    Private Sub CommandButton3_Click()
                CommandButton1.Enabled = True
                CommandButton2.Enabled = True
                CommandButton3.Enabled = False
                SlideShowWindows(Index:=1).View.EraseDrawing
                Label9.Caption = ""
                n = 0
                TextBox1.Text = ""
               Call label       'ù
    End Sub
    Private Sub Label1_Click()
         a = Label1.Left + Label1.Width
         b = Label1.Top + 0.5 * Label1.Height
         Label1.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label2_Click()
        a = Label2.Left + Label2.Width
        b = Label2.Top + 0.5 * Label2.Height
        Label2.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label3_Click()
        a = Label3.Left + Label3.Width
        b = Label3.Top + 0.5 * Label3.Height
        Label3.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label4_Click()
        a = Label4.Left + Label4.Width
        b = Label4.Top + 0.5 * Label4.Height
        Label4.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label5_Click()
        c = Label5.Left
        d = Label5.Top + 0.5 * Label5.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e2 = b
        If e2 = Label2.Top + 0.5 * Label2.Height Then n = n + 1
        n = n
        Label5.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label6_Click()
        c = Label6.Left
        d = Label6.Top + 0.5 * Label6.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e1 = b
        If e1 = Label1.Top + 0.5 * Label1.Height Then n = n + 1
        n = n
        Label6.ForeColor = RGB(0, 0, 255)
    End Sub
    Private Sub Label7_Click()
        c = Label7.Left
        d = Label7.Top + 0.5 * Label7.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e4 = b
        If e4 = Label4.Top + 0.5 * Label4.Height Then n = n + 1
        n = n
        Label7.ForeColor = RGB(0, 0, 255)
        End Sub
    Private Sub Label8_Click()
        c = Label8.Left
        d = Label8.Top + 0.5 * Label8.Height
        SlideShowWindows(Index:=1).View.DrawLine a, b, c, d
        e3 = b
        If e3 = Label3.Top + 0.5 * Label3.Height Then n = n + 1
        n = n
        Label8.ForeColor = RGB(0, 0, 255)
        End Sub
    Private Sub CommandButton2_Click()
        SlideShowWindows(Index:=1).View.EraseDrawing
        Label9.Caption = ""
        TextBox1.Text = ""
        CommandButton1.Enabled = True
        n = 0
        Call label              'ù
        End Sub
    Private Sub CommandButton1_Click()
        If n = 4 Then
            Label9.Caption = "!"
        Else
            Label9.Caption = "ٺú!"
        End If
        TextBox1.Text = n * 100 / 4
        CommandButton1.Enabled = False
    End Sub

    'һӹ
    Public Sub label()
        Label1.ForeColor = 255
        Label2.ForeColor = 255
        Label3.ForeColor = 255
        Label4.ForeColor = 255
        Label5.ForeColor = 255
        Label6.ForeColor = 255
        Label7.ForeColor = 255
        Label8.ForeColor = 255
    End Sub