我的房間
8付費限定
這裡是我的房間，麻煩進來的可以遵守規則
1.不討論政治
2.我的創作有的會收閱讀費，有的不用收，願意付就可以可以看，不付就請看別人的
3.我不是做公益的、我是來賺錢的
4.請做有修養的閱讀人，修身養性很重要
Private Sub Command1_Click()
If Option3(0).Value = True Then
Text1.FontSize = 10
End If
If Option3(1).Value =
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
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
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
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 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
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 控件中
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()
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 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
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
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
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 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
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 控件中
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()
Text3 = Val(Text1) * Val(Text2)
If Text3 > 200 Then
Text4 = Val(Text3) * 0.1
Text5 = Val(Text3) - Val(Text4