如何用相对简单的句子在VB中编写一个计算星座的程序，并找出详细的过程？

简单是相对的。如果需要的代码较少，可读性和结构可能会很差；否则，可读性和结构可能会更好，代码可能会增加。

就目前的发展来看，由于计算机速度和存储空间的大幅提升，程序(算法)的可读性和结构性是主流要求。

我曾经说过，用一行代码解决一个问题，用1000行代码(例子很极端)，对人在计算机运行时的感受没有任何影响。

你的问题有多种解决方法。当然，会用到数组和复杂的If语句。

我现在用的是一种方法。请你看看它是否简单？

将两个组合框Combo1和Combo2、一个按钮和一个文本框Text1添加到表单中:

代码如下:

选项显式

字符串形式的私有XZ

私有子命令1_Click()

将M标注为字符串

将D标注为字符串

Dim d1作为日期

将d2标注为日期

将L标注为整数

M = Combo1。文本

D = Combo2。文本

L =仪器(XZ，M)

如果D & lt= Mid(XZ，L + 3，3)那么

Text1。Text = "你的星座是" &；Mid(XZ，L - 3，3)

其他

Text1。Text = "你的星座是" &；中间值(XZ，L + 6，3)

如果…就会结束

末端接头

私有子窗体_Load()

将I标注为整数

Combo1。清楚的

对于i = 1到12

如果我& lt那么10

Combo1。AddItem " 0 " & ampCStr(i)和“月亮”

其他

Combo1。附加项目CStr(i)和“月亮”

如果…就会结束

接下来我

Combo1。Text = Combo1。列表(0)

组合2。清楚的

对于i = 1至31

如果我& lt那么10

组合2。AddItem " 0 " & ampCStr(i)和“日”

其他

组合2。附加项目CStr(i)和“日”

如果…就会结束

接下来我

组合2。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()函数，可读性相对较差。

同时，二月还没有考虑闰年和大月小月。