Rjesenja prvog testa sa pripreme za kolokvijum

Zadatak 6:

Function BarDuplo(X() As Double, A As Double) As Integer
Dim Br As Integer
Br = 0
For Each y In X
If 2 * y > A Then Br = Br + 1
Next

BarDuplo = Br

End Function

Sub TestDuplo()
Dim X(1 To 5) As Double
Dim A As Double
Dim N As Integer
X(1) = 2.54
X(2) = 8.56
X(3) = 9.87
X(4) = 3.24
X(5) = 6.87
A = 5.3
N = BarDuplo(X, A)
MsgBox N

End Sub

Zadatak 7: 

Function DvaStringa(A As String, B As String) As String
Dim C As String

If Len(A) = Len(B) Then

C = Left(A, 2) + Right(B, 2)
Else
C = ""
For k = 1 To Len(A)
C = C & Mid(A, Len(A) - k + 1, 1)
Next
End If
DvaStringa = C

End Function

Zadatak 8:

Sub Preko20PrvaCifra()
Dim I As Integer, J As Integer, Broj As Integer
Dim R As Range
Dim C As String
Br = 0
Set R = Range("A1:C10")
For I = 1 To R.Rows.Count
For J = 1 To R.Columns.Count
C = R.Cells(I, J)
If (Len(C) > 20) And (Left(C, 1) Like "#") Then
Br = Br + 1
End If
Next
Next

MsgBox Br
End Sub