Question

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

Answer 1

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

Answer 2

一般人是可以承受的，注意事项是月经干净后2-7天内不能同房，临床上吧婚后一年正常的性生活未采取避孕措施未能怀孕者为不孕症，常见不怀孕的原因很多像女性的月经不正常，子宫卵巢发育以及排卵和输卵管的情况，男性精子质量不好，夫妻双方染色体异常，支原体衣原体感染等等都会影响女性怀孕。
建议你和你的对象到正规的医院全面的检查一下是什么原因导致的不怀孕，对症治疗，在医生的指导下受孕增加怀孕的机会

您好：
输卵管造影目前有2种：1、传统的造影.易引起输卵管的痉挛，宫腔扩张性的疼痛，术后需要避孕3个月，所以一般不采取。2、可吸收的造影，通过碘水造影可以明确输卵管阻塞的部位、程度、原因，在诊断的基础上同时进行治疗，如果其它生育条件具备，一般不影响下个月正常的怀孕，建议您到医院详细检查明确，在医生的指导下对症治疗，祝您身体健康。B

你好，输卵管造影的疼痛程度跟医生的操作、个人的承受力等方面都有关系的，一般来说还是可以忍受的。这个操作的时间很快就可以结束。具体的注意事项是需要在月经干净三到七天之内到正规的医院做检查。如果不是输卵管问题的话建议还是需要夫妻双方尽早的 检查看看是什么方面问题造成的。

您好：结合你的情况输卵管造影有两种方法：一种是传统的碘油造影，痛苦大，容易损伤输卵管，需要避孕3个月，有问题当月不能解决；另一种是可吸收性水剂造影，痛苦小，对输卵管损伤小，有些轻度粘连的当时就能通开，不需要避孕。你可以结合自己的具体情况选择使用哪一种造影，此外做输卵管造影疼痛还与医生的操作技术水平，个人的疼痛承受能力，机器设备等多方面因素。建议你到正规专科医院检查治疗。祝你健康好孕。W

病情分析：
输卵管造影检查是专业的检查输卵管是否通畅有无子宫输卵管畸形方法。在检查过程中，如果有妇科炎症或输卵管阻塞或子宫输卵管畸形时会有轻微的痛感，但如果输卵管正常，则没有不适感，在做这项检查前需要彻底治愈妇科炎症，否则容易导致逆行感染，导致或加重输卵管阻塞。
指导意见：
建议到专业的医院做输卵管造影，造影前需要做阴道镜、分泌物及彩超检查，确定无异常后才能做造影操作。黑龙江九州妇科医院祝您健康。H