Καθησα και συγκεντρωσα καποιους κωδικες για τους δισδιαστατους πινακες στην Visual Basic 6.0.
Θα το εκτιμουσα πολυ αν καποιος μπορουσε να μου πει αν ειναι σωστοι αλλα κυριως να μου εξηγησει τα σημεια με κοκκινο.
Ορισμος Πινακα
(General)
Option base 1
Dim A(3,3) As Integer
Καθε μια απο τις παρακατω ρυθμισεις βρισκεται σε διαφορετικο Command Button
Εισαγωγη Στοιχειων
Dim i As Integer, j As Integer
For i=1 To 3
For j=1 To 3
A(i,j)=InputBox(“γραμμη” & i & “στηλη” & j)
Next j
Next i
Εμφανιση στοιχειων πινακα
Dim i As Integer, j As Integer
For i=1 To 3
For j=1 To 3
Print A(i,j) & “ “; το ερωτηματικο ";" δεν ειναι αντιστοιχο με το "&"; Ποια η χρησιμοτητα του στο συγκεκριμενο παραδειγμα;
Next j
Print Γιατι μπαινει εδω ενα Print σκετο;
Next i
Αθροισμα στοιχειων
Dim i As Integer, j As Integer, sum As Integer
sum=o
For i=1 To 3
For j=1 To 3
sum=sum+A(i,j)
Next j
Next I
Print “Αθροισμα στοιχειων:” & sum
Μεγιστο στοιχειο πινακα
Dim i As Integer, j As Integer, max As Integer
max=1
For i=1 To 3
For j=1 To 3
If A(i,j)>max Then
max=A(i,j)
End If
Next j
Next i
Print “Μεγιστο στοιχειο:” & max
Μεγιστο στοιχειο ανα γραμμη
Dim i As Integer, j As Integer, max As Integer
For i=1 To 3
max=A(i,1) Γιατι δεν λεμε Α(1,1);
For j=1 To 3
If A(i,j)>max Then
max=A(i,j)
End If
Next j
Print “Μεγιστο στοιχειο γραμμης:” & i & “=” & max
Next i
Αθροισμα στοιχειων ανα γραμμη
Dim i As Integer, j As Integer, sum As Integer
For i=1 To 3
sum=0
For j=1 To 3
sum=sum+A(i,j)
Next j
Print “Αθροισμα στοιχειων γραμμης:” & i & “=” & sum
Next i
Γινομενο στοιχειων ανα στηλη
Dim i As Integer, j As Integer, gin As Integer
For j=1 To 3
gin=1
For i=1 To 3
gin=gin*A(i,j)
Next i
Print “Γινομενο στοιχειων στηλης:” & j & “=” & gin
Next j
Πληθος στοιχειων μεγαλυτερο απο 5
Dim i As Integer, j As Integer, counter As Integer
counter=0
For i=1 To 3
For j=1 To 3
If A(i,j)>5 Then
counter=counter+1
End If
Next j
Next I
Print “Πληθος στοιχειων >5:” & counter
