Lista 5
zadanie 1
Private Sub CommandButton1_Click()
Dim tablica(0 To 1000) As Single, suma As Single, i As Integer
i = 0
suma = 0
Do
tablica(i) = InputBox("Podaj element ciągu, zakończenie 0", "Wprowadzenie ciągu")
If tablica(i) <> 0 Then ListBox1.AddItem tablica(i), i
suma = suma + tablica(i)
i = i + 1
Loop While tablica(i - 1) <> 0
Label1.Caption = "Ciąg posiada: " & ListBox1.ListCount & " elementów, a ich suma wynosi:" & suma
End Sub
Zadanie 2
Private Sub CommandButton1_Click()
Dim tablica(0 To 1000) As Single, suma As Single, i As Integer, n As Integer, m As Integer, s1 As Double, s2 As Double, max As Double
n = 0
m = 0
i = 0
suma = 0
s1 = 0
s2 = 0
max = 0
Do
tablica(i) = InputBox("Podaj element ciągu, zakończenie 0", "Wprowadzenie ciągu")
If tablica(i) <> 0 Then ListBox1.AddItem tablica(i), i
If tablica(i) > 0 Then
ListBox2.AddItem tablica(i),
n = n + 1
s1 = s1 + tablica(i)
End If
If tablica(i) < 0 Then
ListBox3.AddItem tablica(i), m
m = m + 1
s2 = s2 + tablica(i)
End If
suma = suma + tablica(i)
If max < tablica(i) Then max = tablica(i)
i = i + 1
Loop While tablica(i - 1) <> 0
Label1.Caption = "Ciąg posiada: " & ListBox1.ListCount & " elementów, a ich suma wynosi:" & suma & " Maksymalny element ciągu wynosi: " & max
Label2.Caption = "Ciąg posiada: " & ListBox2.ListCount & " elementów, a ich suma wynosi:" & s1
Label3.Caption = "Ciąg posiada: " & ListBox3.ListCount & " elementów, a ich suma wynosi:" & s2
End Sub
Zadanie 3
Private Sub CommandButton1_Click()
Dim tablica(0 To 1000) As Single, k As Integer, i As Integer
Dim ilość_1 As Integer, ilość_2 As Integer, ilość_k As Integer
Dim suma_1 As Single, suma_2 As Single
i = 0
ilość_1 = 0
ilość_2 = 0
ilość_k = 0
suma_1 = 0
suma_2 = 0
k = InputBox("Podaj K", "Wprowadzenie k")
Do
tablica(i) = InputBox("Podaj element ciągu, zakończenie 0", "Wprowadzenie ciągu")
If tablica(i) > k Then
ilość_1 = ilość_1 + 1
suma_1 = suma_1 + tablica(i)
End If
If tablica(i) < k Then
ilość_2 = ilość_2 + 1
suma_2 = suma_2 + tablica(i)
End If
If tablica(i) = k Then ilość_k = ilość_k + 1
i = i + 1
Loop While tablica(i - 1) <> 0
Label1.Caption = "Liczb większych od k jest: " & ilość_1 & " ich suma wynosi: " & suma_1 & " a średnia " & (suma_1 / ilość_1)
Label1.Caption = Label1 & ". Liczb takich jak k jest: " & ilość_k
Label2.Caption = "Liczb mniejszych od k jest: " & ilość_2 & " ich suma wynosi: " & suma_2 & " a średnia " & (suma_2 / ilość_2) & "."
End Sub
Zadanie 4
Private Sub CommandButton1_Click()
Dim tablica(0 To 1000) As Integer, suma As Single, q As Integer, i As Integer
i = 0
suma = 0
q = InputBox("Podaj q:", "Wprowadzenie q")
Do
tablica(i) = InputBox("Podaj element ciągu, zakończenie 0", "Wprowadzenie ciągu")
ListBox1.AddItem tablica(i), i
If tablica(i) <> 0 And tablica(i) Mod q = 0 Then
suma = suma + tablica(i)
Debug.Print tablica(i), suma
End If
i = i + 1
Loop While tablica(i - 1) <> 0
End Sub
Zadanie 5
Private Sub CommandButton1_Click()
Dim ciąg As String, podciąg As String, i As Integer, ilość As Integer, spacje As Integer
ciąg = InputBox("Wprowadz ciąg znaków i zakończ '.'", "Wprowadzenie ciągu")
ilość = Len(ciąg)
spacje = 0
For i = 1 To ilość
podciąg = Mid(ciąg, i, 1)
If podciąg Like " " Then spacje = spacje + 1
Next
Label1.Caption = Left(ciąg, (ilość - 1)) & " Ciąg zawiera: " & ilość - 1 & " znaków "
Label1.Caption = Label1 & " Spacji jest: " & spacje
End Sub
Zadanie 6
Private Sub CommandButton1_Click()
Dim X As Single, P As Single, rok As Single, cel As Single, procent As Single
X = CSng(TextBox1.Text)
P = CSng(TextBox2.Text)
cel = 2 * X
rok = 0
procent = 100 + P
Do
X = (X * procent) / 100
Lstwynik.AddItem X, rok
rok = rok + 1
Loop While X < cel
wiadomosc = MsgBox("Kwota zostanie podwojona w czasie: " & rok & " lat", , "Wynik")
End Sub
Private Sub TextBox1_Change()
Lstwynik.Clear
End Sub
Private Sub TextBox2_Change()
Lstwynik.Clear
End Sub