Массив. Не получается код - VB

Формулировка задачи:

Нужна помощь решение задачи в Бейсике. Дан целочисленный массив А размера 10. вывести порядковый номер последнего из тех его элементов Ак,которые удовлетворяют двойному неравенству А1<Ak<A10. Если таких элементов нет, то вывести 0. Мой код

Dim A(10) As Variant
Dim i, k As Variant
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 A(i) = i
Cells(1, 1) = "Массив"
Cells(1, 2) = i
TextBox2.Text = Str(i)
Next i

Данный код все время выдает 9. В паскале данная программа правильно работает.

Код к задаче: «Массив. Не получается код - VB»

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

Полезно ли:

13 голосов, оценка 4.000 из 5

СОХРАНИТЬ ССЫЛКУ