Question

用VB生成圆:在运行时每点一下窗体就生成一个半径随机,位置随机,颜色随机的实体圆，而且圆是由扇形逐

用VB生成圆:在运行时每点一下窗体就生成一个半径随机,位置随机,颜色随机的实体圆，而且圆是由扇形逐渐变成的(点几下就生成几个圆)

Answer 1

Const pi As Double = 3.1415926

Private Type mcdata
    x As Single
    y As Single
    r As Single
    c As Long
    d As Single
End Type

Dim mc() As mcdata

Private Sub Form_Click()
Dim i As Integer
For i = 0 To UBound(mc)
    If mc(i).d = 0 Then Exit For
Next
If i > UBound(mc) Then ReDim Preserve mc(i)
mc(i).x = Rnd * Me.ScaleWidth
mc(i).y = Rnd * Me.ScaleHeight
mc(i).r = Rnd * Me.ScaleHeight / 2 + 120
mc(i).c = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
mc(i).d = pi / 16
End Sub

Private Sub Form_Load()
Randomize
ReDim mc(0)
Me.FillStyle = 0
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To UBound(mc)
    If mc(i).d <> 0 Then
        Me.FillColor = mc(i).c
        If mc(i).d + pi / 16 > 2 * pi Then
            Me.Circle (mc(i).x, mc(i).y), mc(i).r, mc(i).c
            mc(i).d = 0
        Else
            Me.Circle (mc(i).x, mc(i).y), mc(i).r, mc(i).c, -0.00001, -mc(i).d
            mc(i).d = mc(i).d + pi / 16
        End If
    End If
Next
End Sub

以上代码需要用到一个Timer1控件

Answer 2

病情分析：
孩子一般处于身体发育生长旺盛时期，最需要的就是钙与蛋白质。
指导意见：
你说的鱼和肉对于五个月的孩子是可以食用的，但建议孩子同时进行补钙，并给孩子添加泥状辅食（注意必须是泥状不可以是果汁等），因为蔬菜泥、果泥中富含纤维素和果胶等，能吸收水分，膨润大便，促进肠蠕动，不仅可满足婴儿迅速生长发育的需求，也有助于润肠通便，防止孩子由于结肠功能弱导致的排便困难或便秘等。

病情分析：
婴幼儿辅食添加是要注意的
指导意见：
1、婴幼儿辅食添加是要注意的，包括种类、量等等，要在消化功能正常情况下添加
2、根据你的情况，5月，如果你宝宝之前已经添加辅食，如蛋黄、果泥等等都消化良好的话；是可以添加鱼肉的，但是其他肉应该再晚一点。

病情分析：
可以，只要你宝宝会吞的话可以吃点的，肉要绞成肉末
指导意见：
但是鱼肉会有刺的，一定要特别注意
如果可以的话，可以先尝试着喝汤