程序逻辑设计
1. 输入部分：程序首先需要获取用户的出生日期信息，包括年、月、日。
2. 星座计算：根据用户输入的月份和日期，确定其出生在哪一个星座。
3. 生肖计算：根据用户输入的年份，确定其出生在哪一个生肖。
4. 输出部分：将计算结果以友好的方式输出给用户。
VB语言代码实现
以下是一个简单的VB语言程序示例，用于计算生肖与星座：
```vb
'' VB程序代码开始
Private Sub CalculateZodiacAndZodiacSign()
Dim birthYear As Integer
Dim birthMonth As Integer
Dim birthDay As Integer
Dim zodiacSign As String
Dim zodiacAnimal As String
'' 获取用户输入的出生日期信息
birthYear = InputBox("请输入您的出生年份：")
birthMonth = InputBox("请输入您的出生月份：")
birthDay = InputBox("请输入您的出生日：")
'' 判断星座
If birthMonth >= 1 And birthMonth <= 12 Then
If birthDay >= 1 And birthDay <= 20 Then
zodiacSign = "白羊座"
ElseIf birthDay >= 21 And birthDay <= 30 Then
zodiacSign = "金牛座"
'' 以此类推，继续判断其他星座...
End If
End If
'' 判断生肖（以年份的余数确定）
zodiacAnimal = GetZodiacAnimal(birthYear)
'' 输出结果到界面或打印出来给用户看（此处仅展示，实际可显示在窗体上）
MsgBox "您的星座是：" & zodiacSign & "，生肖是：" & zodiacAnimal & "。"
End Sub
'' 定义一个函数用于判断生肖（此处省略具体实现细节）
Function GetZodiacAnimal(year As Integer) As String
'' 根据年份判断生肖的逻辑代码...（例如，余数为4的为兔）
End Function
```
程序功能解释及细节说明
- 程序首先通过`InputBox`函数获取用户输入的出生年、月、日。此处不包括完整的生日校验和异常处理代码。为了实际应用中能正常工作，还需进行适当错误检查和处理。例如，校验出生月份必须在合理的范围内，如计算星座需确认不是跨年度的日子等。但基本逻辑以上述示例为主。对于星座的计算，需要根据具体日期范围判断所属星座。这里仅列举了部分星座作为示例，其他星座可以依此类推。对于生肖的计算，这里通过一个简单的函数`GetZodiacAnimal`来根据年份判断生肖，具体实现根据十二生肖的循环周期进行计算。此处省略了具体的实现细节。在实际应用中，需要确保这些逻辑的准确性。
- 输出部分通过`MsgBox`函数将结果展示给用户。在真实的应用程序中，可以将其展示在窗体上或打印出来给用户查看。程序可以进一步优化和扩展，例如添加界面设计、错误处理等。
- 需要注意的是，本示例代码仅为演示目的，并未包含完整的错误处理和用户界面设计。在实际开发中，还需要考虑更多的细节和功能需求。关于星座和生肖的计算方法可能因地域和文化差异而有所不同，这里仅提供了一种常见的计算方法。如果需要更精确的计算方式，可以参考相关文化资料进行修改和优化。