菱形图案.frm

来自「Visual Basic课程举例1 有很好的例题」· FRM 代码 · 共 44 行

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "显示由字符构成的菱型图案"
   ClientHeight    =   7035
   ClientLeft      =   60
   ClientTop       =   570
   ClientWidth     =   7095
   LinkTopic       =   "Form1"
   ScaleHeight     =   7035
   ScaleWidth      =   7095
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 程序编写：曹新国
' 初写于2003-3-12，修改2004-3-24
Option Explicit
Private Sub Form_Load()

Dim S As String     '存放要输出的字符串
Dim L As Integer    '要输出的行数
Dim H As Integer    '要输出的中间位置的列号
Dim P As Integer    '每一行的输出位置
Dim Q As Integer    '每一行要输出的字符数
Dim I As Integer    '循环变量,代表当前输出的行计数

L = InputBox("您要输出多少行?", "显示菱型图案", 39)

L = L Or 1
S = String(L, "◆")

H = L \ 2 + 1

For I = 1 To L
    P = Abs(H - (I Mod H) - H * (I \ H)) + 1
    Q = L - 2 * (P - 1)
    Print Tab(P * 2); Left(S, Q)
Next I

End Sub