form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      BackColor       =   &H00E0E0E0&
      Caption         =   "递归 "
      ClientHeight    =   3195
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   4680
      FillColor       =   &H00C0C0C0&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      MaxButton       =   0   'False
      ScaleHeight     =   3195
      ScaleWidth      =   4680
      StartUpPosition =   2  '屏幕中心
      Begin VB.PictureBox Picture1
         Height          =   2055
         Left            =   600
         ScaleHeight     =   1995
         ScaleWidth      =   3435
         TabIndex        =   0
         Top             =   600
         Width           =   3495
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：Picture1_Click
'## 参数： 无
'##################################################################
Private Sub Picture1_Click()
    Dim n As Integer
    n = InputBox("输入 N值")
    Picture1.Print Tab(5); "递归 n=" & n & "时的图形"
    Picture1.Scale (0, 600)-(600, 0)
    Call triangle(30, 320, 570, 30, 570, n)
    
End Sub
    '******************************************************************
'##################################################################
'## 过程名称：triangle
'## 参数：x1!  类型不确定
'## 参数：x2!  类型不确定
'## 参数：x3!  类型不确定
'## 参数：y1!  类型不确定
'## 参数：y2!  类型不确定
'## 参数：k%  类型不确定
'##################################################################
Private Sub triangle(x1!, x2!, x3!, y1!, y2!, k%)
    Dim u1!, u2!, v1!, v2!
    If (k > 1) Then
        u1 = (x1 + x2) / 2
        u2 = (x2 + x3) / 2
        v1 = (y1 + y2) / 2
        Call triangle(u1, x2, u2, v1, y2, k - 1)
        Call triangle(x1, u1, x2, y1, v1, k - 1)
        Call triangle(x2, u2, x3, y1, v1, k - 1)
    Else
        Picture1.Line (x1, y1)-(x3, y1)
        Picture1.Line (x1, y1)-(x2, y2)
        Picture1.Line (x2, y2)-(x3, y1)
    End If
End Sub
    
    '******************************************************************
    '************** 过程名称：Picture1_Click
    '************** 参数： 无
    '******************************************************************