Массив. Не получается код - 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
СОХРАНИТЬ ССЫЛКУ
