Что не правильно? (basic) 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...

Что не правильно? (basic) 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,5j 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.
Гость
Ответ(ы) на вопрос:
Гость
Если только синтаксические ошибки убрать, то должно быть так: 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 А если неверно запрограммировано, то надо знать, что и как должно делаться.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы