在 vb.net windows 程序中选择案例

Question

使用选择案例编写一个 vb.net 程序，该程序在驱动程序超速时做出决定，显示标签上的决定，更改每个决定的标签颜色。

    Dim speed As Integer
    Dim diff As Integer

    'speed limits
    Dim nofine As Integer = 60
    Dim twenty As Integer = 60
    Dim forty As Integer = 80
    Dim sixty As Integer = 100
    Dim last As Integer = 120

    Select Case Val(TextBox1.Text)
        Case 1
            speed = Val(TextBox1.Text)
            diff = speed - nofine
            If diff <= 5 Then
                Label2.Text = "No fine."
            End If
    End Select
End Sub

我的问题是我没有在标签上显示决定。对于每个速度限制，如果驾驶员超速，例如对于速度限制 - 80MpH，该决定将被罚款 40 英镑，并且 label2.text 应显示该决定并将其背景颜色更改为黄色。

Answer 1

我认为这是你的代码

试试看

Public Enum Fines
   twenty = 60
   forty = 80
   sixty = 100
   last = 120
End Enum

Public Class Form1
   Private speed As Integer


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

    Int16.TryParse(TextBox1.Text, speed)

    If speed <= Fines.twenty Then
        Label2.Text = "No fine."
    ElseIf speed >= Fines.last Then
        Label2.Text = Fines.last.ToString()
    ElseIf speed >= Fines.sixty Then
        Label2.Text = Fines.sixty.ToString()
    ElseIf speed >= Fines.forty Then
        Label2.Text = Fines.forty.ToString()
    ElseIf speed >= Fines.twenty Then
        Label2.Text = Fines.twenty.ToString()
    End If

End Sub

End Class