Ребят, помогите, пожалуйста! Не могу сделать так чтобы многомерный массив отображался на форме. Так как знаний пока мало, мыслей нет. Вот задание и код:
Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Я думала что через 'ListBox1.Items.Add(a(i, j)) получится. но...Буду вам очень признательна.
Public Class Form1
Dim a(0 To 10, 0 To 10) As Integer
Dim n, m, o, p As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
n = Val(Textbox1.text)
m = Val(Textbox2.text)
For i = 1 To n
For j = 1 To m
a(i, j) = Rnd() * 10 - 5
'ListBox1.Items.Add(a(i, j))
Next j
Next i
For i = 1 To n
o = 0 : p = 0
For j = 1 To m
If a(i, j) < 0 Then o = o + 1
If a(i, j) > 0 Then p = p + 1
Next
If p > o Then TextBox3.Text = "Есть такая строка" : Exit For
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Ответить
|