【VB开源代码栏目提醒】:网学会员在VB开源代码频道为大家收集整理了4.3.4.frm提供大家参考,希望对大家有所帮助!
VERSION 5.00
Begin VB.Form Form20
Caption = "Form20"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form20"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
End
Attribute VB_Name = "Form20"
Attribute
VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer, j As Integer
Private Sub Form_Activate()
For i = 1 To 9
Print String(9 * i, "-")
For j = 1 To i
If i * j < 10 Then
Print "| " & i & "×" & j & "=" & i * j & " "
Else
Print "| " & i & "×" & j & "=" & i * j
End If
Next j
Print "| "
Next i
Print String(9 * (i - 1), "-")
End Sub