VB ÒÆλ²Ù×÷

ÔÚVB£¬
dim a as long
Ôõô¶Ô a ½øÐÐÓÒÒÆλ 24?
Ôõô¶Ô a ½øÐÐÓÒÒÆλ 16?
Ôõô¶Ô a ½øÐÐÓÒÒÆλ 8?
Ôõô¶Ô a ½øÐÐÓÒÒÆλ 0?

---

VB³ÌÐòÖÐʵÏÖ×Ö½ÚÒÆλ²Ù×÷

---

VB code:
'2.Âß¼­ÓÒÒÆ

Public Function SHR(OPR As Byte, n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
BD = OPR
For i = 1 To n - 1
BD = BD \ 2 'ÓÒÒÆ
Next i
CF = BD And 1 'ÅжÏD0λÊÇ·ñ½øλ
SHR = BD \ 2
End Function


VB code:
'3.ËãÊõÓÒÒÆ

Public Function SAR(OPR As Byte, n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
Dim Fg1 As Byte
BD = OPR
Fg1 = BD And &H80
For i = 1 To n - 1
BD = BD \ 2 'ÓÒÒÆ
Next i
CF = BD And 1 'ÅжÏD0λÊÇ·ñ½øλ
BD = BD \ 2 'ÓÒÒÆ
SAR = BD Or Fg1
End Function



VB code:
'5.Ñ­»·ÓÒÒÆ

Public Function ROR(OPR As Byte, n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
Dim Fg1 As Byte
Dim Fg2 As Byte
BD = OPR
For i = 1 To n
Fg1 = (BD And 1) * 128 'ÅжÏD0λÊÇ·ñ½øλ
BD = (BD \ 2) Or Fg1 '´ø½øλÓÒÒÆ
Next i
CF = Fg1
ROR = BD
End Function



VB code

---

Code highlighting produced by Actipro