diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-27 19:01:24 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-27 19:01:24 +0000 |
| commit | d5ee7c5fa4fe77b9ea632d61d68f37800a569312 (patch) | |
| tree | 3a961a9e7e85fe3cacb7a760bf3b699a72e933e6 /challenge-149 | |
| parent | 5c51501702cb5f9d214166a516a1181df959df7b (diff) | |
| download | perlweeklychallenge-club-d5ee7c5fa4fe77b9ea632d61d68f37800a569312.tar.gz perlweeklychallenge-club-d5ee7c5fa4fe77b9ea632d61d68f37800a569312.tar.bz2 perlweeklychallenge-club-d5ee7c5fa4fe77b9ea632d61d68f37800a569312.zip | |
- Added guest contributions by Eric Cheung.
Diffstat (limited to 'challenge-149')
| -rwxr-xr-x | challenge-149/eric-cheung/excel-vba/Challenge_149.xlsm | bin | 0 -> 34543 bytes | |||
| -rwxr-xr-x | challenge-149/eric-cheung/excel-vba/ch-1.bas | 64 | ||||
| -rwxr-xr-x | challenge-149/eric-cheung/excel-vba/ch-2.bas | 56 |
3 files changed, 120 insertions, 0 deletions
diff --git a/challenge-149/eric-cheung/excel-vba/Challenge_149.xlsm b/challenge-149/eric-cheung/excel-vba/Challenge_149.xlsm Binary files differnew file mode 100755 index 0000000000..82c320d844 --- /dev/null +++ b/challenge-149/eric-cheung/excel-vba/Challenge_149.xlsm diff --git a/challenge-149/eric-cheung/excel-vba/ch-1.bas b/challenge-149/eric-cheung/excel-vba/ch-1.bas new file mode 100755 index 0000000000..19d58d26fc --- /dev/null +++ b/challenge-149/eric-cheung/excel-vba/ch-1.bas @@ -0,0 +1,64 @@ +Attribute VB_Name = "ModTask_01"
+Option Explicit
+
+Public Const strMyTitle As String = "Eric Cheung"
+
+Function GetSumOfDigit(ByVal nNum As Integer) As Integer
+
+ Dim nSubLoop As Integer
+
+ For nSubLoop = 1 To Len(CStr(nNum))
+ GetSumOfDigit = GetSumOfDigit + CInt(Mid(CStr(nNum), nSubLoop, 1))
+ Next nSubLoop
+
+End Function
+
+Function IsInArray(nValToFind As Variant, nArr As Variant) As Boolean
+
+ '' Credit:
+ '' https://wellsr.com/vba/2016/excel/check-if-value-is-in-array-vba/
+
+ Dim nElem As Variant
+
+ IsInArray = False
+
+ For Each nElem In nArr
+ If nElem = nValToFind Then
+ IsInArray = True
+ Exit Function
+ End If
+ Next nElem
+
+End Function
+
+Sub Task_01()
+
+ Const MyNumMax As Integer = 20
+
+ Dim nLoop As Integer, nCount As Integer
+ Dim strMsg As String
+ Dim nFibArr(1 To MyNumMax) As Integer
+
+ nFibArr(1) = 0: nFibArr(2) = 1
+
+ For nLoop = 3 To MyNumMax
+ nFibArr(nLoop) = nFibArr(nLoop - 2) + nFibArr(nLoop - 1)
+ Next nLoop
+
+ nLoop = 0
+ nCount = 0
+
+ Do While (nCount < MyNumMax)
+ If IsInArray(GetSumOfDigit(nLoop), nFibArr) Then
+ nCount = nCount + 1
+ If strMsg <> "" Then
+ strMsg = strMsg & ", "
+ End If
+ strMsg = strMsg & CStr(nLoop)
+ End If
+ nLoop = nLoop + 1
+ Loop
+
+ MsgBox strMsg, vbOKOnly, strMyTitle
+
+End Sub
diff --git a/challenge-149/eric-cheung/excel-vba/ch-2.bas b/challenge-149/eric-cheung/excel-vba/ch-2.bas new file mode 100755 index 0000000000..85c58180c0 --- /dev/null +++ b/challenge-149/eric-cheung/excel-vba/ch-2.bas @@ -0,0 +1,56 @@ +Attribute VB_Name = "ModTask_02"
+Option Explicit
+
+Function GetSqRoot(ByVal nNum As Integer) As String
+
+ Const nNumMax As Integer = 22
+ Dim strSqRootArr(1 To nNumMax) As String
+
+ If nNum < 2 Or nNum > nNumMax Then
+ GetSqRoot = ""
+ Exit Function
+ End If
+
+ strSqRootArr(1) = ""
+ strSqRootArr(2) = "1"
+ strSqRootArr(3) = "1"
+ strSqRootArr(4) = "3201"
+ strSqRootArr(5) = "4301"
+ strSqRootArr(6) = "452013"
+ strSqRootArr(7) = "6250341"
+ strSqRootArr(8) = "47302651"
+ strSqRootArr(9) = "823146570"
+ strSqRootArr(10) = "9814072356"
+ strSqRootArr(11) = "A8701245369"
+ strSqRootArr(12) = "B8750A649321"
+ strSqRootArr(13) = "CBA504216873"
+ strSqRootArr(14) = "DC71B30685A924"
+ strSqRootArr(15) = "EDAC93B24658701"
+ strSqRootArr(16) = "FED5B39A42706C81"
+ strSqRootArr(17) = "GFED5A31C6B79802"
+ strSqRootArr(18) = "HGF80ADC53712EB649"
+ strSqRootArr(19) = "IHGFD3408C6E715A2B9"
+ strSqRootArr(20) = "JIHG03DAC457BFE96281"
+ strSqRootArr(22) = "LKJIG5D14B9032FHAC867E"
+
+ GetSqRoot = strSqRootArr(nNum)
+
+End Function
+
+Sub Task_02()
+
+ '' Credits:
+ '' https://www.quora.com/How-do-you-square-a-number-that-isnt-in-base-ten
+ '' https://github.com/manwar/perlweeklychallenge-club/blob/master/challenge-149/abigail/bash/ch-2.sh
+
+ Dim strMsg As String
+
+ '' strMsg = GetSqRoot(2)
+ '' strMsg = GetSqRoot(4)
+ '' strMsg = GetSqRoot(10)
+ strMsg = GetSqRoot(12)
+
+ MsgBox strMsg, vbOKOnly, strMyTitle
+
+End Sub
+
|