Pregunta de programación de VB: Diseñe un programa para configurar atributos de fuente. Los detalles son los siguientes.
Guarde el siguiente código en el Bloc de notas como un archivo con el sufijo .frm y ábralo con VB.
==================================
VERSIÓN 5.00
Comenzar VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Ventana predeterminada
Comenzar VB.CommandButton Command3
Título = "Command3"
Alto = 375
Izquierda = 1920
TabIndex = 4
Arriba = 1920
Ancho = 855
Fin
Inicio VB .CommandButton Comando2
Título = "Comando2"
Alto = 375
Izquierda = 1920
TabIndex = 3
Superior = 1200
Ancho = 855
Fin
Inicio VB.CommandButton Comando1
Título = "Comando1"
Alto = 375
Izquierda = 1920
TabIndex = 2
Arriba = 480
Ancho = 855
Fin
Inicio VB.ListBox List2
Alto = 2400
Izquierda = 2880
TabIndex = 1
Superior = 360
Ancho = 1815
Fin
Inicio VB.ListBox Lista1
Alto = 2400
Izquierda = 120
TabIndex = 0
Superior = 360
Ancho = 1695
Fin
Fin
Atributo VB_Name = "Form1"
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = False
Función IsPrime(ByVal n As Long) Como Booleana
Dim i As Long
Para i = 2 To Int(n / 2)
Si n Mod i = 0 Entonces IsPrime = False: Salir de la función
Siguiente
IsPrime = True
Finalizar función
Subcomando privado2_Click()
Atenuar i como entero
ReAtenuar a(0) como entero
Para i = 0 a 29
Si esPrime(List1.List(i)) entonces
a(UBound(a)) = List1.List(i) p>
List2.AddItem a(UBound(a))
ReDim Preserve a(UBound(a) + 1)
Finalizar si
Siguiente
Comando1.Enabled = Verdadero
Comando2.Enabled = Falso
Fin Sub
Sub Comando privado3_Click()
Fin
Fin Sub
Sub privado Form_Load()
Comando1.Caption = "Ordenar"
Comando2.Caption = "Filtro"
Command3.Caption = "Salir"
Command1.Enabled = False
Aleatorizar
Atenuar i como entero
Para i = 1 a 30
List1.AddItem Int(Rnd * 1900 + 100)
Siguiente
Fin Sub