VB genera 26 letras

Private Sub Command1_Click() 'Generar secuencia

Atenuar i como entero

Text1.Text = ""

Para i = 1 A 26

Texto1.Text = Texto1.Text & Chr(i + 64)

Siguiente i

Fin Sub

Sub privado Command2_Click() 'Generado aleatoriamente

Dim i As Integer

Text1.Text = ""

i = Rnd() * 26 + 1

Text1.Text = Text1.Text & Chr(i + 64)

End Sub

Sub privado Form_Load()

Aleatorizar

End Sub

--------

Requiere un cuadro de texto y dos botones