【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：Ex4_5.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form Ex4_5 
       Caption         =   "Form1"
       ClientHeight    =   4515
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   7800
       LinkTopic       =   "Form1"
       ScaleHeight     =   4515
       ScaleWidth      =   7800
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Ex4_5"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
            Dim n As Integer, A() As Integer, p As String
            n = InputBox("请输入一个不大于16的整数", "输入")
            '如果输入的整数大于16，则退出程序
            If n > 16 Then
                End
            End If
            ReDim A(n, n)     '创建动态数组
            For i = 1 To n
                A(i, 1) = 1: A(i, i) = 1
            Next
            p = Format(1, "!@@@@@") & Chr(13)
            p = p & Format(1, "!@@@@@") & Format(1, "!@@@@@") & Chr(13)
            For i = 3 To n
                p = p & Format(A(i, 1), "!@@@@@")
                For j = 2 To i - 1
                    A(i, j) = A(i - 1, j - 1) + A(i - 1, j)
                    p = p & Format(A(i, j), "!@@@@@")
                Next
            p = p & Format(A(i, i), "!@@@@@") & Chr(13)
            Next
            Print p
    End Sub
    
    

上一篇：Ex4_3.frm
下一篇：学术论文摘要的定义及写作基本要求