Заполнение матрицы случайными числами

@Metria · Регистрация: 12.02.2012

Author24 — интернет-сервис помощи студентам

Необходимо заполнить матрицу случайными числами.Подскажите пожалуйста что не так с кодом не могу понять(изучала делфи,а тут задание надо на VB выполнить

), выдает ошибку на строке : A(i, j) = -50 + Fix(Rnd() * (50 - (-50) + 1))

VB.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, i, j As Integer
        Dim A(i, j) As Integer
        Randomize()
        n = Val(TextBox1.Text)
        For i = 1 To n
            For j = 1 To n
                A(i, j) = 1 + Fix(Rnd() * (n - 1 + 1))
                Label1.Text = Label1.Text + "" + Format$(A(i, j))
            Next j
            Label1.Text = Label1.Text & vbCrLf
        Next i
 
    End Sub

SoftIce · 12.02.2012, 19:05

На каком Бейсике пишешь?

@Metria · 12.02.2012, 19:14 **[ТС]**

MS Visual Basic 2008 Exprees Edition

SoftIce · 12.02.2012, 19:57

VB.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, i, j As Integer
Dim A() As Integer
Randomize()
n = Val(TextBox1.Text)
ReDim A(n,n)
For i = 1 To n
For j = 1 To n
A(i, j) = 1 + Fix(Rnd() * (n - 1 + 1))
Label1.Text = Label1.Text + "" + Format$(A(i, j))
Next j
Label1.Text = Label1.Text & vbCrLf
Next i
End Sub

Как то так

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.02.2012, 19:05	2
	На каком Бейсике пишешь? 0

@Metria 0 / 0 / 0 Регистрация: 12.02.2012 Сообщений: 6
	12.02.2012, 19:14 [ТС]	3
	MS Visual Basic 2008 Exprees Edition 0

	12.02.2012, 19:57