Hola soy nueva aki y quisiera q por favor me ayudaran.
Necesito hacer un programa en vb.net
El cual debe sin pedir numeros, almacenar numeros aleatorios en una matriz cuadratica, pero tiene q permitir ingresar la dimension de la matriz (como es cuadratica es un solo valor) utilizando un (datagridview).
el cual deba llevar las funciones randomize (rnd)
se puden repetir los numeros en la matriz no importa..pero no muchas veces....
en otra matriz ingresar q contenga dos columnas en la primera un numero representante de cada uno q esta en la matriz principal y en la otra columna indicar cuantas veces se repite el cada numero en la matriz principal
ejemplo de como es q quiero el programilla
matriz (nxn)
7 - 5 - 2 - 7
3 - 5 - 3 - 4
7 - 3 - 4 - 8
8 - 4 - 3 - 3
# representantes
7
5
2
3
4
8
# de repeticiones
3
2
1
4
3
3
realmente espero no molestar mucho pero les doy todos esos datos para q me pudean enterder........yo lo intente y no lo pude hacer completo.....
De ante mano muchas gracias a todos quienes se ofrescan ayudarme........ .
aki les dejo lo q hice y gracias q kien me pueda ayudar ...solo me falta el conteo de cuantos numeros hay por cada uno
Public Class Form1
Dim M(100, 100), F, C, P, I, j, a(100, 100) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rnd As New Random
Dim n As Integer
n = Val(LIM.Text) * Val(LIM.Text)
D1.RowCount = Val(LIM.Text)
D1.ColumnCount = Val(LIM.Text)
D2.RowCount = Val(LIM.Text)
For F = 0 To Val(LIM.Text) - 1
For C = 0 To Val(LIM.Text) - 1
n = rnd.Next(1, Val(LIM.Text + 1))
M(F, C) = n
With D1
.Item(C, F).Value = M(F, C)
.Columns.Item(C).Width = 30
End With
Next
Next
For F = 0 To Val(LIM.Text) - 1
a(F, 1) = 0
D2.Item(1, F).Value = a(F, 1)
Next
For F = 0 To Val(LIM.Text) - 1
a(F, 0) = I + 1
I = I + 1
D2.Item(0, F).Value = a(F, 0)
Next
For F = 0 To Val(LIM.Text) - 1
For C = 0 To Val(LIM.Text) - 1
For j = 0 To Val(LIM.Text) - 1
If Val(a(F, C)) = Val(a(j, 0)) Then
a(j, 1) = Val(a(j, 1)) + 1
D2.Item(1, j).Value = a(j, 1)
End If
Next
Next
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
