Если только синтаксические ошибки убрать, то должно быть так:
Private Sub CommandButton1_Click()
Dim A(1 To 5, 1 To 5) As Single
Dim i As Integer, j As Integer, k As Integer
Dim sr As String
k = 0
ListBox1.Clear
For i = 1 To 5
sr = ""
For j = 1 To 5
A(i, j) = i + 0.5 * j
sr = sr + " " + Format(A(i, j), "0.000") + " "
If (A(i, j) > 1) And (A(i, j) < 2.5) Then k = k + 1
Next j
ListBox1.AddItem (sr)
Next i
TextBox1.Text = Str(k)
End Sub
А если неверно запрограммировано, то надо знать, что и как должно делаться.
Если правильно понял ваше задание, то вот...
Однако всё равно не вполне ясна связь с разделом информатики, в котором опубликован вопрос.
"Изображённый на правой картинке воин вооружен современным оружием, способным поражать противника издалека. Его снаряжение практично и продуманно для ведения боя в современных условиях. Слева от него изображён воин, который жил раньше, поэтому его вооружение представляет себя только необходимые для ведения ближнего боя меч и щит. Такой воин лишён защитных качеств и удобства современной амуниции, вместо которой использует обычную одежду своего времени"
1 1 4
2 вообще-то все отсносятся к заразервированным
3 3
4 1
