form1.frm

来自「蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 」· FRM 代码 · 共 33 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "例[7-5] 显示下三角形"
   ClientHeight    =   1545
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3030
   LinkTopic       =   "Form1"
   ScaleHeight     =   1545
   ScaleWidth      =   3030
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Dim sc(5, 5) As Integer, i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
sc(i, j) = i * j
Next j
Next i
For i = 1 To 5                      '外循环控制输出的行数
For j = 1 To i                       '内循环控制每行输出的元素个数（列数）
Print sc(i, j); ″″;            '以紧凑格式输出数组元素
Next j
Print                           '换行
Next i
End Sub