تەييارلايدىغان ماتېرىياللار
ئاۋال Form دىن بىرنى قۇرۇپ
Label دىن 2نى
Command دىن 2 نى ئەكىرىپ
تۆۋەندىكى كودنى يازساقلا بولدى

---------------------Command1 غا تۆۋەندىكى كودنى يېزىڭ-------------------------------

Private Sub Command1_Click()
  Dim Year As Integer
  Dim Name As Integer
  Year = Val(InputBox("请输人出生年份：", "生肖查询", 1977))
  Label1.Caption = "您是" & Str(Year) + "年出生的生肖为："
  Name = Year Mod 12
  Select Case Name
    Case 4
      Label2.Caption = "چاشقان"
    Case 5
      Label2.Caption = "كالا"
    Case 6
      Label2.Caption = "يولۋاس"
    Case 7
      Label2.Caption = "توشقان"
    Case 8
      Label2.Caption = "ئەجدىرھا"
    Case 9
      Label2.Caption = "توگە"
    Case 10
      Label2.Caption = "ئات"
    Case 11
      Label2.Caption = "قوي"
    Case 0
      Label2.Caption = "شىر"
    Case 1
      Label2.Caption = "قۇش"
    Case 2
      Label2.Caption = "ئىت"
    Case 3
      Label2.Caption = "چاشقان"
   End Select
End Sub

--------------------------------------Command2 غا تۆۋەندىكى كودنى يېزىڭ--------------------
Private Sub Command2_Click()
  End
End Sub
------------------------------------------------------------------

كۇچۇرۇپ تارقاتماقچى بولسىڭىز
مەنبەنى ئەسكەرتىڭ
مەنبە:ئەقىللىق بلوگى