?? 百錢買百雞.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "百錢買百雞"
ClientHeight = 4710
ClientLeft = 60
ClientTop = 450
ClientWidth = 5880
LinkTopic = "Form1"
ScaleHeight = 4710
ScaleWidth = 5880
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "計算"
Height = 495
Left = 4080
TabIndex = 1
Top = 2760
Width = 975
End
Begin VB.ListBox List1
Height = 3660
ItemData = "百錢買百雞.frx":0000
Left = 240
List = "百錢買百雞.frx":0002
TabIndex = 0
Top = 480
Width = 3375
End
Begin VB.Label Label1
Height = 735
Left = 3840
TabIndex = 2
Top = 840
Width = 1815
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim sum As Integer
Dim i, a, b, c As Integer
List1.Clear
For a = 0 To 20
For b = 0 To 33
c = 100 - a - b
If a * 5 + b * 3 + c / 3 = 100 Then
List1.AddItem (Str(a) + Str(b) + Str(c))
sum = sum + 1
End If
Next b
Next a
Label1.Caption = "個數:" + Str(sum)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -