VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 3733|回复: 0

[原创] Mel的VB作业集锦[Array of Structure]之一

[复制链接]
 楼主| 发表于 2011-11-23 01:32:27 | 显示全部楼层 |阅读模式
图片正在审核中,好,先传作业。

这次做也的内容是做一个Array of Structure。题目的内容是在美国,美国有56个州和地区,他们分别有全称和简写。题目的内容是在Combo Box当中输入名字,当点击Inquery按钮的时候就会在Result Label里面显示成功或者是不成功。

大家慢慢欣赏哦,请拍砖!

Public Class LookUpStateName
    'PROGRAMMED BY ZIYUAN HUANG

    'DECLARES ABBREVIATION AND STATE NAMES ARRARIES
    Private AbbreviationString(55) As String
    Private StateNamesString(55) As String

    Private Sub LookUpStateName_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'LOAD ABBREVIATION VALUES WHEN THE FORM LOADS
        AbbreviationString(0) = "AL"
        AbbreviationString(1) = "AK"
        AbbreviationString(2) = "AS"
        AbbreviationString(3) = "AZ"
        AbbreviationString(4) = "AR"
        AbbreviationString(5) = "CA"
        AbbreviationString(6) = "CO"
        AbbreviationString(7) = "CT"
        AbbreviationString(8) = "DE"
        AbbreviationString(9) = "DC"
        AbbreviationString(10) = "FL"
        AbbreviationString(11) = "GA"
        AbbreviationString(12) = "GU"
        AbbreviationString(13) = "HI"
        AbbreviationString(14) = "ID"
        AbbreviationString(15) = "IL"
        AbbreviationString(16) = "IN"
        AbbreviationString(17) = "IA"
        AbbreviationString(18) = "KS"
        AbbreviationString(19) = "KY"
        AbbreviationString(20) = "LA"
        AbbreviationString(21) = "ME"
        AbbreviationString(22) = "MD"
        AbbreviationString(23) = "MA"
        AbbreviationString(24) = "MI"
        AbbreviationString(25) = "MN"
        AbbreviationString(26) = "MS"
        AbbreviationString(27) = "MO"
        AbbreviationString(28) = "MT"
        AbbreviationString(29) = "NE"
        AbbreviationString(30) = "NV"
        AbbreviationString(31) = "NH"
        AbbreviationString(32) = "NJ"
        AbbreviationString(33) = "NM"
        AbbreviationString(34) = "NY"
        AbbreviationString(35) = "NC"
        AbbreviationString(36) = "ND"
        AbbreviationString(37) = "OH"
        AbbreviationString(38) = "OK"
        AbbreviationString(39) = "OR"
        AbbreviationString(40) = "PA"
        AbbreviationString(41) = "PR"
        AbbreviationString(42) = "RI"
        AbbreviationString(43) = "SC"
        AbbreviationString(44) = "SD"
        AbbreviationString(45) = "TN"
        AbbreviationString(46) = "TX"
        AbbreviationString(47) = "TT"
        AbbreviationString(48) = "UT"
        AbbreviationString(49) = "VT"
        AbbreviationString(50) = "VI"
        AbbreviationString(51) = "VA"
        AbbreviationString(52) = "WA"
        AbbreviationString(53) = "WV"
        AbbreviationString(54) = "WI"
        AbbreviationString(55) = "WY"

            'LOAD NAME VALUES WHEN THE FORM LOADS
        StateNamesString(0) = "Alabama"
        StateNamesString(1) = "Alaska"
        StateNamesString(2) = "American Samoa"
        StateNamesString(3) = "Arizona"
        StateNamesString(4) = "Arkansas"
        StateNamesString(5) = "California"
        StateNamesString(6) = "Colorado"
        StateNamesString(7) = "Connecticut"
        StateNamesString(8) = "Delaware"
        StateNamesString(9) = "District of Columbia"
        StateNamesString(10) = "Florida"
        StateNamesString(11) = "Georgia"
        StateNamesString(12) = "Guam"
        StateNamesString(13) = "Hawaii"
        StateNamesString(14) = "Idaho"
        StateNamesString(15) = "Illinois"
        StateNamesString(16) = "Indiana"
        StateNamesString(17) = "Iowa"
        StateNamesString(18) = "Kansas"
        StateNamesString(19) = "Kentucky"
        StateNamesString(20) = "Louisiana"
        StateNamesString(21) = "Maine"
        StateNamesString(22) = "Maryland"
        StateNamesString(23) = "Massachusetts"
        StateNamesString(24) = "Michigan"
        StateNamesString(25) = "Minnesota"
        StateNamesString(26) = "Mississippi"
        StateNamesString(27) = "Missouri"
        StateNamesString(28) = "Montana"
        StateNamesString(29) = "Nebraska"
        StateNamesString(30) = "Nevada"
        StateNamesString(31) = "New Hampshire"
        StateNamesString(32) = "New Jersey"
        StateNamesString(33) = "New Mexico"
        StateNamesString(34) = "New York"
        StateNamesString(35) = "North Carolina"
        StateNamesString(36) = "North Dakota"
        StateNamesString(37) = "Ohio"
        StateNamesString(38) = "Oklahoma"
        StateNamesString(39) = "Oregon"
        StateNamesString(40) = "Pennsylvania"
        StateNamesString(41) = "Puerto Rico"
        StateNamesString(42) = "Rhode Island"
        StateNamesString(43) = "South Carolina"
        StateNamesString(44) = "South Dakota"
        StateNamesString(45) = "Tennessee"
        StateNamesString(46) = "Texas"
        StateNamesString(47) = "Trust Territory"
        StateNamesString(48) = "Utah"
        StateNamesString(49) = "Vermont"
        StateNamesString(50) = "Virgin Islands"
        StateNamesString(51) = "Virginia"
        StateNamesString(52) = "Washington"
        StateNamesString(53) = "West Virginia"
        StateNamesString(54) = "Wisconsin"
        StateNamesString(55) = "Wyoming"

    End Sub

    Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
        'CLOSES THE FORM
        Me.Close()

    End Sub

    Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
        'CLEARS THE FORM
        AbbreComboBox.Text = ""
        AbbreComboBox.SelectedIndex = -1
        NameComboBox.Text = ""
        NameComboBox.SelectedIndex = -1
        AbbreviationRadioButton.Checked = False
        StateNameRadioButton.Checked = False
        AbbreComboBox.Enabled = True
        NameComboBox.Enabled = True
        ResultLabel.Text = ""
        ResultLabel.Focus()

    End Sub


    Private Sub AbbreviationRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbbreviationRadioButton.CheckedChanged, StateNameRadioButton.CheckedChanged
        'DECLARE THE RADIOBUTTON OBJECT
        Dim SelectedRadioButton As RadioButton

        SelectedRadioButton = CType(sender, RadioButton)

        'CHECK FOR THE NAME PROPERTY OF THE RADIO BUTTON TO FIND OUT
        'WHICH COLOR RADIO BUTON WAS CHECKED - USING A SELECT CASE STATEMENT
        'THEN, WHEN YOU KNOW WHICH COLOR IS SELECTED, YOU KNOW
        'WHAT THE ACTION SHOULD BE - CHANGE THE FORECOLOR OF THE TITLELABEL

        Select Case SelectedRadioButton.Name
            'HERE YOU ARE COMPARING THE NAME PROPERTY OF THE RADIOBUTTON
            Case "AbbreviationRadioButton"
                NameComboBox.Enabled = False
                NameComboBox.Text = ""
                NameComboBox.SelectedIndex = -1
                AbbreComboBox.Enabled = True
                AbbreComboBox.Focus()
            Case "StateNameRadioButton"
                AbbreComboBox.Enabled = False
                AbbreComboBox.Text = ""
                AbbreComboBox.SelectedIndex = -1
                NameComboBox.Enabled = True
                NameComboBox.Focus()
        End Select

        ResultLabel.Text = ""
    End Sub

    Private Sub InqueryButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InqueryButton.Click
        Dim AbbrevFoundBoolean, NameFoundBoolean As Boolean 'THIS IS FLAG
        Dim AbbreIndexInteger, NameIndexInteger As Integer 'THIS IS COUNTER

        If AbbreviationRadioButton.Checked = True Or StateNameRadioButton.Checked = True Then
            If AbbreComboBox.Enabled = True Then
                'INQUERY FOR STATE ABBREVIATIONS
                Do Until AbbrevFoundBoolean Or AbbreIndexInteger = AbbreviationString.Count
                    If AbbreComboBox.Text.ToUpper = AbbreviationString(AbbreIndexInteger).ToString.ToUpper Then
                        AbbrevFoundBoolean = True
                        Exit Do
                    Else
                        AbbreIndexInteger += 1
                    End If
                Loop

                If AbbreComboBox.Text <> "" Then
                    If AbbrevFoundBoolean = True Then
                        MessageBox.Show("Input matches!", "Correct Match", MessageBoxButtons.OK)
                        ResultLabel.Text = "Match: " & StateNamesString(AbbreIndexInteger).ToString.ToUpper
                        AbbreComboBox.Focus()
                    Else
                        MessageBox.Show("No match!", "Match Error", MessageBoxButtons.OK)
                        AbbreComboBox.SelectAll()
                        ResultLabel.Text = "No Match"
                    End If
                Else
                    MessageBox.Show("Please input an abbreviation of a state!", "Abbreviation Error", MessageBoxButtons.OK)
                    AbbreComboBox.Focus()
                End If

            Else
                'INQUERY FOR STATE NAMES
                Do Until NameFoundBoolean Or NameIndexInteger = StateNamesString.Count
                    If NameComboBox.Text.ToUpper = StateNamesString(NameIndexInteger).ToString.ToUpper Then
                        NameFoundBoolean = True
                        Exit Do
                    Else
                        NameIndexInteger += 1
                    End If
                Loop

                If NameComboBox.Text <> "" Then
                    If NameFoundBoolean = True Then
                        MessageBox.Show("Input matches!", "Correct Match", MessageBoxButtons.OK)
                        ResultLabel.Text = "Match: " & AbbreviationString(NameIndexInteger).ToString.ToUpper
                        NameComboBox.Focus()
                    Else
                        MessageBox.Show("No match!", "Match Error", MessageBoxButtons.OK)
                        NameComboBox.SelectAll()
                        ResultLabel.Text = "No Match"
                    End If
                Else
                    MessageBox.Show("Please input a state name!", "State Name Error", MessageBoxButtons.OK)
                    NameComboBox.Focus()
                End If
            End If
        Else
            MessageBox.Show("Please select an inquery option!", "Option Error", MessageBoxButtons.OK)
        End If
    End Sub
End Class
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-8-19 22:42

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表