Copyright © 2014, Janusz Bonarowski 1
Ć wiczenie VB6.00a Tablice, listy, instrukcja cyklu For...Next
Zadanie
Wykonać aplikację napełniającą tablicę jednowymiarową 7 elementową zawierającą liczby całkowite , np. dzienne przebiegi samochodu w tygodniu. Tablicę napełniać za pomocą funkcji InputBox() liczbami całkowitymi, a następnie wizualizować w obiekcie ListBox i/lub TextBox [1].
Rys. 1. Propozycja formularza Uwaga! Dla obiektu TextBox1 ustawić właściwość Multiline na True.
Kod aplikacji
Dim dni() As String = {"Pn", "Wt", "Śr", "Cz", "Pt", "So", "Ni"}
Dim przebiegi(6) As Integer
Private Sub btnWczytajTydzien_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnWczytajTydzien.Click 'Wczytywanie dziennych przebiegów w tygodniu
Dim Odp As String Dim i As Integer
'Zapełnianie tablicy przebiegi(6) danymi For i = 0 To 6
Odp = InputBox("Przebieg " & dni(i), _
"Wczytywanie przebiegu dziennego") przebiegi(i) = CInt(Odp)
Next
MsgBox("Wczytano wszystkie dane", MsgBoxStyle.Information, _ "Koniec wczytywania")
End Sub
Copyright © 2014, Janusz Bonarowski 2 Private Sub btnSrednia_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSrednia.Click
'Obliczanie wartości średniej liczb w tablicy Dim i As Integer
Dim suma, srednia As Single Dim N As Integer = 0
suma = 0
For i = 0 To UBound(przebiegi) suma = suma + przebiegi(i) N = N + 1
Next
'srednia = suma / (UBound(przebiegi) + 1) srednia = suma / N
txtSrednia.Text = srednia.ToString End Sub
Private Sub btnWyswietl_Lista_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnWyswietl_Lista.Click 'Wyswietlanie danych z tablicy przebiegi(6) w ListBox1
ListBox1.Items.Clear()
ListBox1.Items.Add("Przebiegi tygodniowe:") For i = 0 To 6
ListBox1.Items.Add(dni(i) & ": " & vbTab & _ CStr(przebiegi(i)) & " km") Next
End Sub
Private Sub btnWyswietl_TextBox_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _ Handles btnWyswietl_TextBox.Click 'Wyswietlanie danych z tablicy przebiegi(6) w TextBox1
'Uwaga! Ustawić Multiline na True
TextBox1.Clear()
TextBox1.Text = "Przebiegi tygodniowe:" & vbCrLf For i = 0 To 6
TextBox1.Text = TextBox1.Text & dni(i).ToString & ": " & _ vbTab & CStr(przebiegi(i)) & " km" & vbCrLf Next
End Sub Bibliografia
[1] Microsoft Visual Basic .NET, Michael Halvorson, Wydawnictwo RM, Warszawa 2002.