1. Sub lab1_02()
2.     Dim l1 As Double, l2 As Double, l3 As Double, suma As Integer, srednia As Double
3.    
4.  
5. l1 = InputBox("podaj wartosc l1", "L1", 0)
6. l2 = InputBox("podaj wartosc l2", "L2", 0)
7. l3 = InputBox("podaj wartosc l3", "L3", 0)
8.  
9.  
10.  
11.  
12. srednia = (l1 + l2 + l3) / 3
13.  
14. Range("a1").Value = "srednia"
15.  
16. If srednia >= 4 Then
17. MsgBox ("Srednia wynosi " & srednia & ". Dobrze")
18. Else
19. MsgBox ("Srednia wynosi " & srednia & ". Slabo")
20. End If
21.  
22.  
23.  
24.  
25. End Sub
26.  
27. Sub lab_03()
28.  
29. Dim ocena As Double
30.  
31. ocena = InputBox("podaj ocene", "Ocena", 0)
32.  
33. If ocena = 5 Then
34. MsgBox ("Doskonale")
35. ElseIf ocena = 4.5 Then
36. MsgBox ("dobrze")
37. ElseIf ocena = 4 Then
38. MsgBox ("dobrze")
39. ElseIf ocena = 3.5 Then
40. MsgBox ("oj slabiutko")
41. ElseIf ocena = 3 Then
42. MsgBox ("oj slabiutko")
43. ElseIf ocena = 2.5 Then
44. MsgBox ("oblales")
45. ElseIf ocena = 2 Then
46. MsgBox ("Oblales")
47. Else
48. MsgBox ("Zla ocena")
49. End If
50.  
51.  
52.  
53.  
54. End Sub
55.  
56. Sub lab_05()
57.  
58. Dim ocena As Double, ocena2 As Double
59.  
60.  
61. ocena = InputBox("podaj ocene", "Ocena", 0)
62.  
63.  
64.  
65.  
66. Select Case ocena
67. Case 5
68.     MsgBox ("Doskonale")
69. Case 4.5
70.     MsgBox ("Dobrze")
71. Case 4
72.     MsgBox ("Dobrze")
73. Case 3.5
74.     MsgBox ("oj slabiutko")
75. Case 3
76.     MsgBox ("oj slabiutko")
77.     Case 2.5
78.     MsgBox ("Oblales")
79. Case 2
80.     MsgBox ("Oblales")
81. End Select
82.  
83.  
84. End Sub
85.  
86. Sub lab_06()
87.  
88. Dim ocena As Double, ocena2 As Double, srednia As Double
89.  
90.  
91. ocena = InputBox("podaj ocene", "Ocena", 0)
92. ocena2 = InputBox("podaj ocene", "Ocena2", 0)
93.  
94. Select Case ocena
95.  
96.  Case 2, 2.5, 3, 3.5, 4, 4.5, 5
97.  
98.  Select Case ocena2
99.    
100.  Case 2, 2.5, 3, 3.5, 4, 4.5, 5
101.  
102.  srednia = (ocena + ocena2) / 2
103.  MsgBox ("Srednia wynosi " & srednia)
104.  Case Else
105.  MsgBox ("Ocena2 jest bledna")
106.  
107.  
108.  End Select
109.  Case Else
110.  MsgBox ("Ocena1 jest bledna")
111.  
112.  End Select
113.  
114.  End Sub
115.  Sub lab_07()
116.  
117. Dim a As Double, b As Double, c As Double, delta As Double, lin As Double, x1 As Double, x2 As Double, x3 As Double
118.  
119. Range("a1").Value = "a"
120. Range("b1").Value = "b"
121. Range("c1").Value = "c"
122. Range("a3").Clear
123. Range("b3").Clear
124. Range("c3").Clear
125. a = InputBox("podaj a", "Ocena", 0)
126. b = InputBox("podaj b", "Ocena2", 0)
127. c = InputBox("podaj c", "Ocena2", 0)
128.  
129.  
130.  
131. If a = 0 Then
132.  
133. lin = -b / c
134. Range("c3").Value = lin
135.  
136. Else
137.  
138. delta = b * b - 4 * a * c
139. End If
140. If delta > 0 Then
141.  
142. x1 = (-b - Sqr(delta)) / 2 * a
143. x2 = (-b + Sqr(delta)) / 2 * a
144. ElseIf delta = 0 Then
145.  
146. x3 = -b / 2 * a
147. Else
148. MsgBox ("Brak m zerowych")
149. End If
150.  
151. Range("a2").Value = a
152. Range("b2").Value = b
153. Range("c2").Value = c
154.  
155. Range("a3").Value = x1
156. Range("b3").Value = x2
157.  
158.  
159. End Sub