blob: b8f3b6e77fad44117d25f0a3007687fa7cd6ee12 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
Attribute VB_Name = "ModTask_01"
Option Explicit
Public Const strMyTitle As String = "Eric Cheung"
Function GetSwapNibble(nNumToSwap) As Integer
If nNumToSwap < 0 Or nNumToSwap > 255 Then
GetSwapNibble = 0
Exit Function
End If
Dim strOrigBin As String, strBin_01 As String, strBin_02 As String, strSwapBin As String
strOrigBin = Application.WorksheetFunction.Dec2Bin(nNumToSwap)
strBin_01 = Right(strOrigBin, 4)
strBin_02 = Format(Val(Left(strOrigBin, Len(strOrigBin) - 4)), "0000")
strSwapBin = strBin_01 & strBin_02
GetSwapNibble = Application.WorksheetFunction.Bin2Dec(strSwapBin)
End Function
Sub Task_01()
Dim varInputNum
Do
varInputNum = InputBox("Please enter a number between 1 to 255", strMyTitle, 101)
If varInputNum = "" Then Exit Sub
Loop Until varInputNum > 0 And varInputNum < 256
MsgBox "The answer for swapped nibble of " & varInputNum & " is: " & GetSwapNibble(varInputNum)
End Sub
|
