form1.vb

来自「ssd4 PRACTICAL QUIZ 1 答案答案了」· VB 代码 · 共 82 行

Public Class Form1

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

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If inches > 0 Then
            inches -= 1
        End If

        Label3.Text = inches

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

        If inches < 11 Then
            inches += 1
        End If

        Label3.Text = inches

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

        If yards < 9 Then
            yards += 1
        End If

        Label1.Text = yards

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If yards > 0 Then
            yards -= 1
        End If

        Label1.Text = yards

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If feet < 2 Then
            feet += 1
        End If

        Label2.Text = feet

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If feet > 0 Then
            feet -= 1
        End If

        Label2.Text = feet

    End Sub

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

        Me.Close()

    End Sub

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

        Me.Close()

    End Sub
End Class