Question

用vb编一个星座配对的程序代码

Answer 1

简单是相对的，如果要求代码少而精，可能可读性与结构性就差，反之，要求可读性与结构性比较好，可能代码会增多。
就目前发展来说，由于计算机的速度和存储空间的极大提升，程序（算法）的可读性与结构性是主流要求。
我曾经说过，解决一个问题用一行代码和用一千行代码（例子举得比较极端），对计算机运行来说人们的感觉没有什么区别。
你的这个问题，有多种多样的解决方法，想当然的方法，会用到数组和比较复杂的If语句。
我现在用一个方法，请你看看是否觉得简单呢？
在窗体添加2个组合框，Combo1和Combo2，一个 按钮和一个文本框Text1:
代码如下：

Option Explicit
Private XZ As String
Private Sub Command1_Click()
Dim M As String
Dim D As String
Dim d1 As Date
Dim d2 As Date
Dim L As Integer
M = Combo1.Text
D = Combo2.Text
L = InStr(XZ, M)
If D <= Mid(XZ, L + 3, 3) Then
   Text1.Text = "你的星座是：" & Mid(XZ, L - 3, 3)
Else
   Text1.Text = "你的星座是：" & Mid(XZ, L + 6, 3)
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
Combo1.Clear
For i = 1 To 12
   If i < 10 Then
      Combo1.AddItem "0" & CStr(i) & "月"
   Else
      Combo1.AddItem CStr(i) & "月"
   End If
Next i
Combo1.Text = Combo1.List(0)
Combo2.Clear
For i = 1 To 31
   If i < 10 Then
      Combo2.AddItem "0" & CStr(i) & "日"
   Else
      Combo2.AddItem CStr(i) & "日"
   End If
Next i

Combo2.Text = Combo2.List(0)
XZ = "魔羯座01月20日水瓶座02月19日双鱼座03月20日白羊座04月20日金牛座05月21日双子座06月21日巨蟹座" & _
    "07月22日狮子座08月23日处女座09月23日天秤座10月23日天蝎座11月22日射手座12月21日魔羯座"
End Sub

我这个程序，没有用数组和复杂的If语句，但是，用了Instr()函数，可读性就相对差一些了。
同时2月份,还没有考虑闰年问题以及大月小月问题.

Answer 2

病情分析：
你以及怀孕两个月多了 假如此时胎儿发育大小正常 那么 建议可以不需要进行上诉药物治疗
指导意见：
有部分患者在怀孕初期由于子宫充血 平时有妇科炎症 可以导致小腹疼痛的症状 如果适当休息后可以缓解 那么 建议不需要进行药物治疗 因为孕早期药物治疗都应该权衡利弊

病情分析：
你好。是可以在医生的指导下用药进行治疗，注意休息。
指导意见：
疼痛可能是有流产的现象，注意合理的饮食，增加全面的营养，定期孕检。