Aqui me da un error
en la linea que me diste de sumar los valores lo he modificado te mando todos mis codigos de modificacion hasta el momento
Código PHP:
Const x = 45
Dim listanum(x) As Short
----------------------------------
Sub llenar()
Randomize()
ListBox1.Items.Clear()
ListBox2.Items.Clear()
'
For p = 1 To x
listanum(x) = CInt(Rnd() * 10)
ListBox1.Items.Add(listanum(x))
Next
'
For p = 1 To x
listanum(x) = CInt(Rnd() * 10)
ListBox2.Items.Add(listanum(x))
Next
btnsumar.Enabled = True
End Sub
---------------------------------------
Sub mostrar()
ListBox1.Items.Clear()
For p = 1 To x
ListBox1.Items.Add(listanum(x))
Next
ListBox2.Items.Clear()
For p = 1 To x
ListBox2.Items.Add(listanum(x))
Next
End Sub
--------------------------------------------
Sub sumar()
Dim valorsuma As Short
ListBox3.Items.Clear()
For p = 1 To x
valorsuma = CShort(ListBox1.Items(p)) + CShort(ListBox2.Items(p)
ListBox3.Items.Add(valorsuma)
Next
btnnummayor.Enabled = True
End Sub
-------------------------------------------------
Sub numeromayor()
Dim numeromayorcalculo As Short
Dim Indicemayorcalculo As Short
numeromayorcalculo = ListBox3.Items(1)
For p = 1 To x
If listanum(x) < (ListBox3.Items(x)) Then
listanum(x) = ListBox3.Items(x)
listanum(x) = p
End If
Next
txtnummayor.Text = numeromayorcalculo
txtposicionmayor.Text = Indicemayorcalculo + 1
End Sub
------------------------------------------
Sub limpiar()
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
txtnummayor.Clear()
txtposicionmayor.Clear()
btnsumar.Enabled = False
btnnummayor.Enabled = False
End Sub
End Sub