首頁內容關於
阿三的創意空間園地
Private Sub Command1_Click()
If Option3(0).Value = True Then
Text1.FontSize = 10
End If
If Option3(1).Value =
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScr
Dim a(9) As Long
Private Sub Command1_Click()
Dim i As Long, j As Long, b As Long
For i = 1 To 9
For j = 0 To 9 - i
If
Public Function mycir(r As Single) As Single
Const pi = 3.14
mycir = pi + r ^ 2
End Function
Private Sub Command1_Click()
Dim bj As Singl
Private Function Dec(ByVal er As String)
Dim sum As Integer
sum = 0
Dim l As Integer
l = Len(er)
For i = l To l Step -1
Private Sub Form1_Load()
For num = 0 To 6
Shape2(num).FillColor = &H0&
Shape2(num).FillStye = 0
Shape2(num).Shape = 3
Option Explicit
Public intMyTimes As Integer
Const MaxTimes As Integer = 3
Private Sub Form_Load()
intMyTimes = 1
'窗體載入時，將用戶添加到ComboBox 控件中
Private Sub Command1_Click()
Text3 = Val(Text1) * Val(Text2)
If Text3 > 200 Then
Text4 = Val(Text3) * 0.1
Text5 = Val(Text3) - Val(Text4
Private Sub Command1_Click()
If Option3(0).Value = True Then
Text1.FontSize = 10
End If
If Option3(1).Value =
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScr
Dim a(9) As Long
Private Sub Command1_Click()
Dim i As Long, j As Long, b As Long
For i = 1 To 9
For j = 0 To 9 - i
If
Public Function mycir(r As Single) As Single
Const pi = 3.14
mycir = pi + r ^ 2
End Function
Private Sub Command1_Click()
Dim bj As Singl
Private Function Dec(ByVal er As String)
Dim sum As Integer
sum = 0
Dim l As Integer
l = Len(er)
For i = l To l Step -1
Private Sub Form1_Load()
For num = 0 To 6
Shape2(num).FillColor = &H0&
Shape2(num).FillStye = 0
Shape2(num).Shape = 3
Option Explicit
Public intMyTimes As Integer
Const MaxTimes As Integer = 3
Private Sub Form_Load()
intMyTimes = 1
'窗體載入時，將用戶添加到ComboBox 控件中
Private Sub Command1_Click()
Text3 = Val(Text1) * Val(Text2)
If Text3 > 200 Then
Text4 = Val(Text3) * 0.1
Text5 = Val(Text3) - Val(Text4
