……星座……我爱……

终于做完了……
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楼
……

逻辑很清晰……

回复：4楼
你太高估中学的编程课了~
话说1、VB的话每个case之后不用break吗？
2、最好最后加一个default, 处理输入invalid date的情况

- -！
BASIC的条件判断编程不就是在高中么……

熟练使用键盘鼠标也是初学者的大功课。用游戏来练最合适了。

回复：9楼
你说的还没教