Red de conocimiento informático - Conocimiento de la instalación - Estoy buscando un programa para comparar los tamaños de naipes usando VB. Solo hay dos. ¿Alguien amable puede ayudarme?

Estoy buscando un programa para comparar los tamaños de naipes usando VB. Solo hay dos. ¿Alguien amable puede ayudarme?

'Comparación de tamaño simple

'Añadir 2 cuadros de imagen y 2 etiquetas al formulario

'El cuadro de imagen se utiliza para mostrar imágenes de naipes

Tipo privado PK

Imagen como imagen estándar

Núm. como entero

Tipo final

Atenuar PK() como PK

Privado Sub Form_Load()

Mostrar

Label1.Caption = ""

Label2.ReDim PK(2 a 14)

'Establecer PK(2).Pic = LoadPicture("ruta del nombre del archivo")'Imagen de Poker 2

PK(2).Num = 2

'Establecer PK(3). ("nombre de archivo de ruta")'Imagen de Poker 3

PK(3).Num = 3

'Set PK(4).Pic = LoadPicture("nombre de archivo de ruta ")' Imagen de poker 4

PK(4).Num = 4

'Set PK(5).Pic = LoadPicture("path filename")'Imagen de poker Imagen de 5

PK(5).Num = 5

'Set PK(6).Pic = LoadPicture("ruta del nombre del archivo")'Imagen de Poker 6

PK (6).Num = 6

'Set PK(7).Pic = LoadPicture("ruta del nombre del archivo")'Poker 6

'Set PK(7). ("nombre de archivo de ruta") 'Imagen del naipe K

PK(13).Num = 13 'K

'Set PK(14).Pic = LoadPicture( "nombre de archivo de ruta) ") 'Imagen del naipe A

PK(14).Num = 14 'A

MsgBox "Haz clic con el ratón para seleccionar el que creas que es más grande"

End Sub

Private Sub Picture1_Click()

Atenuar i como entero

Atenuar j como entero

RndPic i, j

Si gt;j Entonces

MsgBox "Correcto"

De lo contrario

MsgBox "Error"

Finalizar si

End Sub

Subimagen privada2_Click( )

Atenuar i como entero

Atenuar j como entero

RndPic i, j

Si j gt i Entonces

MsgBox "Correcto"

De lo contrario

MsgBox "Error"

Fin si

End Sub

Private Sub RndPic(i como entero, j como entero)

Aleatorizar

A:

i = Int((14 - 2 1) * Rnd 2)

j = Int( (14 - 2 1) * Rnd 2)

Si i = j Entonces vaya a A

Seleccione el caso i

Caso 11

Etiqueta1. Label1.Caption = "J"

Caso 12

Label1.Caption = "Q"

Caso 13

Label1.Caption = "K"

Caso 14

Label1.Caption = "A"

Caso más

Label1.Caption = i

Fin Seleccionar

Seleccionar Caso j

Caso 11

Label2.Caption = "J"