★國家首都 2010 10 2

Public Class Form1

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

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

NATIONNAME = ListBox1.SelectedItem

If NATIONNAME IsNot Nothing Then
CAPITALNAME = Microsoft.VisualBasic.Switch( _
NATIONNAME = "孟加拉", "達卡", _
NATIONNAME = "不丹", "辛布市", _
NATIONNAME = "汶萊", "斯里百家灣市", _
NATIONNAME = "柬埔寨", "金邊", _
NATIONNAME = "印度", "新德里", _
NATIONNAME = "印尼", "雅加達", _
NATIONNAME = "日本", "東京", _
NATIONNAME = "馬來西亞", "拉加雅", _
NATIONNAME = "馬爾地夫", "馬律", _
NATIONNAME = "緬甸", "賓馬那", _
NATIONNAME = "尼泊爾", "加德滿都", _
NATIONNAME = "菲律賓", "馬尼拉", _
NATIONNAME = "斯里蘭卡", "可倫坡", _
NATIONNAME = "泰國", "曼谷", _
NATIONNAME = "越南", "河內")
Label2.Text = NATIONNAME & "首都 : " & CAPITALNAME
Else
MsgBox("為選取任何國家", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "錯誤訊息")
End If
End Sub

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

End Sub

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