Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Sub Command1_Click()
Command1.Picture = Image1.Picture
End Sub
Private Sub Command2_Click()
Dim I As Integer
Dim J As Integer
Dim Str As String
Dim SZ(65 To 65 + 26) As Integer
Dim Temp
Dim Temp1
Str = "A123~B111~C131~D211~E144~F177~Z244~N012"
Me.Print Str
Temp = Split(Str, "~")
For I = 0 To UBound(Temp)
? ? For J = 65 To 65 + 26
? ? Temp1 = Split(Temp(I), Chr(J))
? ? If UBound(Temp1) = 1 Then SZ(J) = Val(Temp1(1))
? ? Next
Next
? ? For J = 65 To 65 + 26
? ? ? If SZ(J) <> 0 Then Me.Print Chr(J) & "=" & SZ(J)
? ? Next
End Sub
Private Sub Command3_Click()
Dim PI As Double
Dim N As Integer
Dim T As Double
Dim 符號(hào) As Integer
Dim I As Integer
PI = 0
N = 10
符號(hào) = 1
For I = 1 To N
T = 符號(hào) * 1 / (2 * I - 1)
符號(hào) = -符號(hào)
PI = T + PI
Next
Me.Print PI * 4
End Sub
Private Sub Command4_Click()
Me.Print &HAA
Me.Print Hex(170)
End Sub
Private Sub Form_Load()
Dim A, B As Long
Dim w, h As Long
Command1.Width = Command1.Height
h = Command1.Height / 15 '圓高直徑=Command1.Height
w = Command1.Width / 15 '圓寬直徑 = h
A = CreateEllipticRgn(5, 5, w - 5, h - 5)
B = SetWindowRgn(Command1.hWnd, A, True) '把Command1設(shè)置成圓形
End Sub
Private Sub Form_Activate()
Dim S1 As String
Dim S2 As String
S1 = "文道網(wǎng)絡(luò)科技"
S2 = "易經(jīng) 道德經(jīng) 黃帝內(nèi)經(jīng) 史記 資治通鑒 春秋 三國(guó) 論語(yǔ) 中庸 大學(xué)"
Me.Caption = S1 + "喜歡" + S2
End Sub
Private Sub Form_Click()
Dim m As Integer
Dim N As Integer
Dim A As Integer
Dim I As Integer
m = 15
N = 10
Randomize
For I = 1 To 3600
A = Int(Rnd * (m - N + 1)) + N
Me.Print A & " ";
If I Mod 60 = 0 Then Me.Print
Next
End Sub
