📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "例[5-16] 乘积表"
ClientHeight = 2805
ClientLeft = 60
ClientTop = 345
ClientWidth = 7650
LinkTopic = "Form1"
ScaleHeight = 2805
ScaleWidth = 7650
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()
FontSize = 20
Print Tab(14); "乘积表"
ForeColor = &HFF& '设为红色
FontSize = 12
Print: Print " * ", '输出第一行
For x = 3 To 12 Step 3
Print x,
Next x
Print: Print
For y = 15 To 20 '输出第一列
ForeColor = &HFF&
Print y,
ForeColor = &H80000012 '设为黑色
For x = 3 To 12 Step 3 '输出乘积
Print x * y,
Next x
Print
Next y
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -