ExcelMagazine

Nadszedł weekend i czas nadrabiać zaległości w pisaniu. Najpierw odpowiedzi do zadań z kursu. Dla przypomnienia zamieszczam treści zadań.
Zadanie 1: Napisać program, który wczytuje dwie liczby (długości boków pewnego prostokąta). Program powinien obliczyć pole prostokąta i sprawdzić, czy prostokąt może być kwadratem.

 
Sub Zadanie1()
   Dim a as Long, b as Long
   a  = Inputbox("Podaj pierwszy bok figury")
   b  = Inputbox("Podaj drugi bok figury")
   Dim poleProstokata As Long
   poleProstokata = a * b
   Msgbox("Pole prostokata wynosi: " & poleProstokata)
   If a = b Then
      Msgbox("To jest prostokąt")
   End if
End Sub
 

Zadanie 2: Napisać program, który sprawdza, czy wczytana liczba całkowita jest parzysta. Do sprawdzania parzystości wykorzystaj operator mod (opisany w poprzednim zadaniu), który zwraca resztę z dzielenia dwóch liczb.

 
Sub Zadanie1()
   Dim a as Long
   a  = Inputbox("Podaj wartosc liczby a:")
   If a Mod 2 = 0 Then
      Msgbox("To jest liczba parzysta")
   Else
     Msgbox("To jest liczba nieparzysta")
   End if
End Sub
 

Zadanie 3: Napisać program wczytujący 3 liczby i znajdujący największą z nich.

 
Sub Zadanie1()
   Dim a as Long, b As Long, c As Long
   a  = Inputbox("Podaj wartosc liczby a:")
   b  = Inputbox("Podaj wartosc liczby a:")
   c  = Inputbox("Podaj wartosc liczby a:")
   Dim max As Long
   max = a
   If b > max Then
      max = b
   End if
   if c > max Then
     max = c
   End if
   Msgbox "Największa liczba wynosi" & max
End Sub
 

Powiązane artykuły:

• Wtorki z VBA — kurs dla początkujących cz. 3
• Wtorki z VBA – Zamykanie formularza
• Wtorki z VBA – Obsługa formularzy z poziomu VBA
• Wtorki z VBA – Formularze i obsługa klawiatury
• Wtorki z VBA – Dodawanie kontrolek do formularza

2 Responses to “Odpowiedzi do zadań”

1. sd@sd.dc says:

   August 10, 2008 at 1:32 pm

   If a = b Then
   Msgbox(“To jest prostokąt”)

   powinno być “to jest kwadrat”
2. Komputerowiec says:

   May 29, 2009 at 9:35 am

   Powinno być:

   If a = b Then
   Msgbox(“To jest KWARDRAT”)
   End if