VB编个小程序

来源：百度知道 编辑：UC知道 时间：2024/06/14 08:40:50
写个程序 输入年月日 给星座和性格的测试 还有星座配对测试

新建一个label1控件和text1控件和text2控件。

text1输入月份，text2输入日，label1显示出来。

if (CINT(text1)=1 and CINT(text2)>=15 and CINT(text2)<=30) or (CINT(text1)=2 and CINT(text2)>=1 and CINT(text2)<=15) then
label1="你的星座是双子座。配对是XXX座"

else if ............

else if ............

else
出错信息。
end if

其他的都按照第一个格式去做。

用elseif你不累吗？
select case就好了

给点资料啊,

这种好象用select case更简便

2楼牛比,啥内容也没就能造个出来///