用vb编写星座配对程序代码
就目前的发展来看，由于计算机速度和存储空间的大幅提升，程序(算法)的可读性和结构性是主流要求。
我曾经说过，用一行代码解决一个问题，用1000行代码(例子很极端)，对人在计算机运行时的感受没有任何影响。
你的问题有多种解决方法。当然，会用到数组和复杂的If语句。
我现在用的是一种方法。请你看看它是否简单？
将两个组合框Combo1和Combo2、一个按钮和一个文本框Text1添加到表单中:
代码如下:
选项？明确的
私人？XZ？作为？线
私人？Sub？Command1_Click()
暗淡？m？作为？线
暗淡？d？作为？线
暗淡？d1？作为？日期
暗淡？d2？作为？日期
暗淡？l？作为？整数
m？=?Combo1。文本
d？=?组合2。文本
l？=?仪器(XZ，m)
如果？d？& lt=?Mid(XZ，？l？+?3,?3)?然后
Text1。文字？=?你是什么星座的？& amp？Mid(XZ，？l？-?3,?3)
其他
Text1。文字？=?你是什么星座的？& amp？Mid(XZ，？l？+?6,?3)
结束？如果
结束？潜水艇
私人？Sub？Form_Load()
暗淡？我？作为？整数
Combo1。清楚的
为了什么？我？=?1?去哪？12
如果？我？& lt？10?然后
Combo1。AddItem？"0"?& amp？CStr(一)？& amp？“月亮”
其他
Combo1。AddItem？CStr(一)？& amp？“月亮”
结束？如果
下一个？我
Combo1。文字？=?Combo1。列表(0)
组合2。清楚的
为了什么？我？=?1?去哪？31
如果？我？& lt？10?然后
组合2。AddItem？"0"?& amp？CStr(一)？& amp？“日”
其他
组合2。AddItem？CStr(一)？& amp？“日”
结束？如果
下一个？iCombo2。Text = Combo2。列表(0)
XZ = "摩羯座065438+10月20日水瓶座2月19双鱼座3月20日白羊座4月20日金牛座5月21双子座6月21巨蟹" &；_
“7月22日狮子座8月23日处女座9月23日天秤座65438+10月23日天蝎座65438+10月22日射手座65438+2月21摩羯座”
末端接头
我在这个程序中没有使用数组和复杂的If语句，但是用了Instr()函数，可读性相对较差。
同时，二月还没有考虑闰年和大月小月。