September 22, 2009

他是(目前只會加法的)計算機

阿達VB課筆記~~

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Label2.Text = "yes" Then

            Label1.Text = ""
            Label2.Text = "no"
        End If
        Label1.Text = Label1.Text & "1"
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Label2.Text = "yes" Then

            Label1.Text = ""
            Label2.Text = "no"
        End If
        Label1.Text = Label1.Text & "2"
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = Val(Label1.Text) + Val(Label3.Text)
        Label3.Text = Label1.Text
        Label2.Text = "yes"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label1.Text = Val(Label1.Text) + Val(Label3.Text)
        Label3.Text = 0
    End Sub
End Class

 

0推薦此文章
Today's Visitors: 0 Total Visitors: 14
Personal Category: 公告&其他→ Topic: learning / academic / arts
Previous in This Category: 休息一下  
歷史上的今天:
[Trackback URL]

Post A Comment









Yes No



Please input the magic number:

( Prevent the annoy garbage messages )
( What if you cannot see the numbers? )
Please input the magic number

誰來收藏
Loading ...
unlog_NVPO 0