برنامه ای که اسم کشور را میگیرد و پایتخت آن را میگوید.

سلام دوستان این برنامه ی سوم منه 

این برنامه اسم کشور را میگیرد و اسم پایتخت آنرا میگوید

برای دیدن کد ها به ادامه ی مطلب بروید

دانلود

و

کد ها

Private Sub Command1_Click()

Dim a As String

a = Text1.Text

If a = "iran" Then

Label1.Caption = "Tehran"

ElseIf a = "hend" Then

Label1.Caption = "Bambaii"

ElseIf a = "USA" Then

Label1.Caption = "Washinton"

Else

MsgBox ("kashvar bayad byn hend.iran.USA bashad")

End If

End Sub

-------------------------------------------------------

Private Sub Command2_Click()

Dim b As String

b = Text1.Text

Select Case b

Case "iran"

Label1.Caption = "Tehran"

             Case "hend"

             Label1.Caption = "Bambaii"

                          Case "USA"

                          Label1.Caption = "Washinton"

End Select

End Sub

--------------------------------------------------

Private Sub Command3_Click()

Dim c As String

Dim d As Variant

c = Text1.Text

d = Switch(c = "iran", "tehran", c = "hend", "bambaii", c = "USA", "Washinton")

Label1.Caption = d

End Sub

-------------------------------------------------

Private Sub Command4_Click()

MsgBox ("www.vatansoftwere.tk")

End Sub