form1.vb

来自「卡耐基ssd4 exercise6答案 是我自己写的 日历上方还差两个控件 偷懒」· VB 代码 · 共 93 行

Public Class Form1

    Dim yards As Integer = 0
    Dim feet As Integer = 0
    Dim inches As Integer = 0

    Private Function addYrd()
        If yards = 2 Then
            yards = 0
        Else
            yards = yards + 1
        End If
        Return yards
    End Function

    Private Function minYrd()
        If yards = 0 Then
            yards = 2
        Else
            yards = yards - 1
        End If
        Return yards
    End Function

    Private Function addFeet()
        If feet = 11 Then
            feet = 0
        Else
            feet = feet + 1
        End If
        Return feet
    End Function

    Private Function minFeet()
        If feet = 0 Then
            feet = 11
        Else
            feet = feet - 1
        End If
        Return feet
    End Function

    Private Function addInch()
        If inches = 11 Then
            inches = 0
        Else
            inches = inches + 1
        End If
        Return inches
    End Function

    Private Function minInch()
        If inches = 0 Then
            inches = 11
        Else
            inches = inches - 1
        End If
        Return inches
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = addYrd()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = minYrd()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label2.Text = addFeet()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label2.Text = minFeet()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Label3.Text = addInch()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label3.Text = minInch()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Close()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Close()
    End Sub
End Class