Массив. Не получается код - VB
Формулировка задачи:
Нужна помощь решение задачи в Бейсике.
Дан целочисленный массив А размера 10. вывести порядковый номер последнего
из тех его элементов Ак,которые удовлетворяют двойному неравенству А1<Ak<A10.
Если таких элементов нет, то вывести 0.
Мой код
Данный код все время выдает 9. В паскале данная программа правильно работает.
Решение задачи: «Массив. Не получается код»
textual
Листинг программы
Private Sub CommandButton1_Click() 'Dim A(10) As Variant Dim A(1 To 10) As Long, LastI As Long 'Dim i, k As Variant Dim i As Long TextBox1.Text = "" For i = 1 To 10 A(i) = Round(Rnd() * 100) TextBox1.Text = TextBox1.Text & (A(i)) & " " Next i For i = 2 To 9 If (A(1) < A(i)) And (A(i) < A(10)) Then LastI = i 'A(i) = i ' Cells(1, 1) = "Массив" ' Cells(1, 2) = i ' TextBox2.Text = Str(i) Next i TextBox2 = LastI If LastI Then TextBox2 = TextBox2 & ": " & A(1) & " < " & A(LastI) & " < " & A(10) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д