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光机可以看到冠状动脉走形及有无堵塞，及堵塞范围，那根血管，堵塞直径，有无再通可能等等，也可以当时植入支架使血管周径增大，减轻心绞痛症状。

心脏造影手术的注意事项

一般有心脏病的患者，医生都会建议先做心脏造影做检查。通过检查结果确诊。一般心脏病的患者都会通过手术的方式进行治疗。而做心脏手术的患者一定要在术前注意相关事项，以便手术能够顺利进行。其注意事项可分为以下几点：

1、病人需要相对严格平卧6~12小时以上，术侧肢体制动，沙袋需要压迫4~6小时。

2、病人及家属注意穿刺局部有无出血或肢体肿胀。

3、如有出血，病人或家属应在呼叫护士或医师同时，用手对局部进行压迫。

4、术后次日解除绷带后，局部可能有小的硬结，触压或活动时可有疼痛感，包块形成与局部损伤和出血相关，可不予特殊处理，在术后1周左右症状即可消失。

5、如果术后穿刺局部持续疼痛并且逐渐加重，病人应找医师，防止有血管假性动脉瘤形成，在超声指导下对血管穿刺处再次实施较长时间压迫。

做心脏造影手术有风险购买保险有保障

大部分心脏病患者都非常担心手术的风险。专家表示，做心脏造影手术所存在的风险是千分之三左右。不少人为了给自己的健康多增加一层保障，选择购买一份保险。而招商信诺的乐康无忧返还型住院医疗保障计划兼具保险保障和保费返还双重功能的个人住院医疗保险生存至合同满期，无论是否发生医疗赔付，返还128%全部已交保险费并且住院收入有保证,兼顾意外及疾病住院责任，不影响社保和其他医疗保障，住院津贴按日提供且不扣免赔天数的个人住院医疗保险而且还额外赠送一年期《第二医疗意见服务》，由世界顶级医疗机构提供诊疗建议，免去误诊的担心，确保治疗及时有效。返还型保险到底划算吗？我刚好整理了相关内容，希望对你有帮助：消费型和储蓄型、返还型保险有什么区别？哪个好？

---