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