4317083929

Algorytmy i VBA

Sub Min_z_dwustu()

Dim x As Double x = Cells(l, 1)

For i = 2 To 200 If x > Cells(i, 1) Then x = Cells(i, 1)

End If Next i

MsgBox ("Najmniejsza z dwustu podanych liczb to: " & x)

End Sub

4.    Wpisz do edytora VBA oraz przeanalizuj podany kod makra wyznaczającego z daty, dzień tygodnia. Makro wykorzystuje algorytm Zellera (nie uwzględnia źle wpisanej daty).

Sub Dzień_tygodnia()

Dim d, m, r As Integer d = InputBox("Podaj dzień:") m = InputBox("Podaj miesiąc:") r = InputBox("Podaj rok:")

' Algorytm Zellera wyznaczający numer dnia tygodnia If m < 3 Then r = r- 1 m = m + 12 End If

d = r + Int(r / 4) - Int(r / 100) + Int(r / 400) + _

3 * m - Int((2 *m+l)/5) + d+ l d = d - Int(d / 7) * 7 Select Case d Case 0

MsgBox ("Podany dzień to niedziela")

Case 1

MsgBox ("Podany dzień to poniedziałek")

Case 2

MsgBox ("Podany dzień to wtorek")

Case 3

MsgBox ("Podany dzień to środa")

Case 4

MsgBox ("Podany dzień to czwartek")

Case 5

MsgBox ("Podany dzień to piątek")

Case 6

MsgBox ("Podany dzień to sobota")

End Select End Sub

5.    Utwórz formularz, za pomocą którego można będzie przeliczyć walutę euro na złotówki. Powinien on zawierać trzy pola tekstowe, trzy etykiety oraz przycisk, tak jak to zostało pokazane na rysunku. Na rysunkach przedstawiono również kod procedury jaka jest wykonywana po kliknięciu na przycisk oraz właściwości formularza i formantów na nim umieszczonych.

	O	^ | ► II ■	Mn m [HT B W
■u	| CommandButtonl		▼ | |ciick
(PDFb ana na jhifirhs		Sub CommandButtonl Click() Zloty.Value = Euro.Value * Kurs.Value End Sub

dr Piotr Borkowski 6/10