他是(目前只會加法的)計算機
阿達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
[ 更新 ]ㄎㄋ爆肝會
我活故我在(5)

















