Если только синтаксические ошибки убрать, то должно быть так:
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<span>тактовой частоты и разрядности процессора, объема оперативной памяти.
2</span>жесткие диски - десятки - сотни Гбайт,
гибкие (флоппи)диски - 1. 4 Мбайт,
<span>CD-ROM - 700 Мбайт, </span>
<span>DVD-ROM - 4,7 (8,5; 17) Гбайт,
</span>3Жесткий магнитный диск (винчестер) - обязательное устройство внешней памяти в составе компьютера.
<span>Сменными носителями являются флоппи-диски, оптические диски, флэш-память.
</span>4Необходимый набор устройств ввода/вывода: клавиатура, манипулятор, монитор.
<span>Дополнительные устройства ввода/вывода: принтер, сканер, модем, акустическая система.</span>
Кодирование информации - это процесс шифровки информации таким образом , чтобы ее было удобно передавать и хранить . Как-то так
1.
<span>G23 относительная</span>
<span>$F$10
абсолютная</span>
<span>H$4
смешанная</span>
2.
=D3-C3
3.
в)
=$А$6+$7$С
4.
Смотрите №1
5.
=$A$5*B8
<span>
</span>