vb在窗体上打印数字金字塔,运行时单击窗体用inputbox输入金字塔的层数（九层以内）

Public Function Diamond(ByVal num As Integer) As String

        Dim i, j As Integer, st As String = ""

        If (num Mod 2 = 0) Then

            Return ""

        End If

        '输出上三角形

        For i = 1 To (num + 1) \ 2

            For j = 1 To (num + 1) / 2 - i

                st = st & " "

            Next

            For j = 1 To 2 * i - 1

                st = st & "*"

            Next

            st = st & vbCrLf

        Next

        '输出下三角形

        For i = 1 To (num - 1) \ 2

            For j = 1 To i

                st = st & " "

            Next

            For j = 1 To num - 2 * i

                st = st & "*"

            Next

            st = st & vbCrLf

        Next

        Return st

    End Function

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim str As String = ""

        str = Diamond(7)

        TextBox6.Text = str

    End Sub

这是一个检查，可以使用医保卡。 输卵管造影：经X线的子宫输卵管造影，是通过导管，向宫腔、及输卵管注入造影剂，利用X线诊断仪行X线透视及摄片，根据造影剂在输卵管、及盆腔内的显影情况，来了解输卵管是否通畅、阻塞部位及宫腔形态的一种检查方法。 该检查损伤小，在有经验的医验操作下，并附以数字X光机的应用，能对输卵管堵塞作出正确诊断，准确率达98%，且具有一定的治疗作用，是用来了解输卵管是否通畅及通畅的程度和具体堵塞部位的最常用的检查方法。

《中华人民共和国社会保险法》

第二条 国家建立基本养老保险、基本医疗保险、工伤保险、失业保险、生育保险等社会保险制度,保障公民在年老、疾病、工伤、失业、生育等情况下依法从国家和社会获得物质帮助的权利。

第二十六条 职工基本医疗保险、新型农村合作医疗和城镇居民基本医疗保险的待遇标准按照国家规定执行。

第二十八条 符合基本医疗保险药品目录、诊疗项目、医疗服务设施标准以及急诊、抢救的医疗费用，按照国家规定从基本医疗保险基金中支付。

怎么知道每个月哪个输软管能用？

1、通过输卵管的造影方法来了解输卵管是否通畅，常常在月经干净第3-7天之内不同房，经过门诊检查，并且通过白带化验、血常规检查、凝血时间检查均正常的情况下，才可以做输卵管的造影检查。输卵管的造影检查可以了解输卵管是否通畅，了解子宫发育的情况。由于输卵管造影检查是在X光下进行，所以在术后三个月之内不可以怀孕。

2、在B超指示下做输卵管的通液检查，通液检查只能是了解输卵管通不通，但是具体阻塞部位很难通过通液检查来了解到，所以如果是有条件的最好做输卵管的造影检查。

---