终于做完了……
Private Sub Command1_Click()
'请在以下区域写代码，实现星座测算
Dim a As Single
Dim b As Single
Dim s As Single
a = Text1.Text
b = Text2.Text
s = a * 100 + b
Select Case s
   Case 120 To 131, 201 To 219
   Text3.Text = "水瓶座"
   Case 220 To 229, 301 To 320
   Text3.Text = "双鱼座"
   Case 321 To 331, 401 To 420
   Text3.Text = "白羊座"
   Case 421 To 430, 501 To 520
   Text3.Text = "金牛座"
   Case 521 To 531, 601 To 620
   Text3.Text = "双子座"
   Case 621 To 630, 701 To 722
   Text3.Text = "巨蟹座"
   Case 723 To 731, 801 To 823
   Text3.Text = "狮子座"
   Case 824 To 831, 901 To 923
   Text3.Text = "处女座"
   Case 924 To 930, 1001 To 1023
   Text3.Text = "天秤座"
   Case 1024 To 1031, 1101 To 1122
   Text3.Text = "天蝎座"
   Case 1123 To 1130, 1201 To 1222
   Text3.Text = "射手座"
   Case 1223 To 1231, 101 To 119
   Text3.Text = "水瓶座"
End Select
  


回复：4楼
……