Function NhiPhan(n, ByRef Tam As String) As String
If (n > 0) Then
NhiPhan = NhiPhan(Int(n / 2), Tam)
Tam = Tam & n Mod 2
End If
NhiPhan = Tam
End FunctionBài này mình cần sửa lại. Do hàm NT chỉ cần xét các tham số q lẻ nên lệnh cuối của hàm KTNT cần sửa thành
Function NT(ByVal p&, ByVal q&) As Boolean
If q < 2 Then
NT = True
Exit Function
End If
If p Mod q = 0 Then NT = False Else NT = NT(p, q - 2)
End Function
Function KTNT(ByVal p&) As Boolean
If p < 2 Then
KTNT = False
ElseIf p < 4 Then
KTNT = True
ElseIf p Mod 2 = 0 Then
KTNT = False
Else
KTNT = NT(p, Int(Sqr(p)) - 1 + (Int(Sqr(p)) Mod 2))
End If
End Function
Thử code này xem sao!
Public Function SoNhiPhan(n) As String
Dim a As Integer, b As Integer, Tmp As String
Tmp = ""
Do While n >= 1
a = n Mod 2: b = Int(n / 2)
Tmp = a & Tmp: n = b
Loop
SoNhiPhan = Tmp
End Functiontôi rút ngắn lại dùm bạn một tí xíu
Public Function SoNhiPhan(n) As String
Dim Tmp As String
Tmp = ""
Do While n > 0
Tmp = n Mod 2 & Tmp
n = Int(n / 2)
Loop
SoNhiPhan = Tmp
End FunctionChắc tại ngày lễ mà anh Phi.
[COLOR=#f0ffff]Public Function ConvertSNPtoSTP(snp) As Integer
Dim i As Long, So As Long
For i = 1 To Len(snp)
So = So + Val(Mid(snp, i, 1)) * 2 ^ (Len(snp) - i)
Next i
ConvertSNPtoSTP = So[/COLOR]
[COLOR=#f0f8ff]End Function[/COLOR]
Cái này liên quan tới bù 1 bù 2 với lại trên diễn đàn cũng ít người biết đến biểu diễn số nhị phân nhiều, nên các bài tập về nhị phân thì mình hạn chế chỉ biểu diễn số dương thôi anh.
VBA lưu số âm theo phương pháp bù 2. Chỉ có kiểu Interger (16 bit) và Long (32 bit) mới có số âm còn kiểu Byte (8 bit) không có.
Function Binary2Decimal(ByVal b) As Long
Dim tmp, s, i&, n&
n = Len(b)
tmp = 1
For i = 1 To n
s = Mid(b, n - i + 1, 1)
Binary2Decimal = Binary2Decimal + IIf(s = 0, 0, tmp)
tmp = tmp * 2
Next
End FunctionĐúng là lập trình chuyên nghiệp nên tính đến cả vấn đề thời gian. Tại em viết code xong thử các trường hợp thấy kết quả đúng là mừng lẳm rồi. Mà tại chuyển mấy con số nhị phân sang thập phân nên thời gian ít em mình không để ý đến vấn đề thời gian. Chứ nếu phải làm việc với dữ liệu lớn thì vấn đề tối ưu code là rất quan trọng.
cái này không đúng lắm à nha, lập trình chuyên nghiệp phải tính đến việc tối ưu. Thời gian nhanh chưa phải là tối ưu nha bạn.
