Если только синтаксические ошибки убрать, то должно быть так:
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
А если неверно запрограммировано, то надо знать, что и как должно делаться.
Пятизначное число состоит из пяти разрядов: ххххх Так как единиц не существует, то каждый разряд (кроме первого) может принимать 9 вариантов (0, 2, 3, 4, 5, 6, 7, 8, 9). При этом, первый разряд не может быть нулём, так как число 5-значное. То есть число можно записать как yxxxx, где y принимает значения от 2 до 9, а x - девять значений (которые выше). Количество чисел считаем по формуле где 8 - это количество вариантов первого разряда, а 9^4 - количество вариантов оставшихся четырех разрядов. То есть ответ 52488
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
А если неверно запрограммировано, то надо знать, что и как должно делаться.
ххххх
Так как единиц не существует, то каждый разряд (кроме первого) может принимать 9 вариантов (0, 2, 3, 4, 5, 6, 7, 8, 9).
При этом, первый разряд не может быть нулём, так как число 5-значное.
То есть число можно записать как
yxxxx, где y принимает значения от 2 до 9, а x - девять значений (которые выше).
Количество чисел считаем по формуле
где 8 - это количество вариантов первого разряда, а 9^4 - количество вариантов оставшихся четырех разрядов.
То есть ответ 52488