La programación VB selecciona aleatoriamente dos naipes y compara el tamaño independientemente del palo. Se adjunta el número de la imagen de póquer.

Has entrado en un malentendido.

Definitivamente puedes crear una matriz para representar 52 imágenes

Const PaiMian = "A234567890JQK"

Dim PuKeShuZu(51) As Integer

Dim HuaSe

'0 a 12 son espadas, 13 a 25 son corazones, 26 a 38 son tréboles, 39 a 51 son diamantes

Private Sub Command1_Click()

'Saca dos naipes y compara sus tamaños.

'Regulaciones: ①Alt; 3lt; 4lt; 6lt; 8lt; 10lt; p >Dim x como entero, y como entero

Dim x0 como entero, y0 como entero

Dim x8 como cadena, y8 como cadena

Dim x9 como String * 2, y9 Como String * 2

'x, y son subíndices de matriz, x0, y0 son el orden de los tamaños correspondientes

'x8, y8 son las marcas correspondientes a la cara de la carta, x9 e y9 son los palos de las cartas correspondientes

x = Int(Rnd * 52)

'Roba la primera carta

Hacer

y = Int(Rnd * 52)

Bucle hasta y lt; x

'Roba la segunda carta.

Pero la simulación tendrá la misma situación que la primera. De hecho, el sorteo de cartas no se realizará, por lo que debe excluirse

x0 = x Mod 13

y0 = y Mod. 13

'Calcula los números de secuencia de las dos tarjetas respectivamente

x8 = PaiXudaoPaiMian(x0)

y8 = PaiXudaoPaiMian(y0)

' Calcula las marcas de las cartas por separado

x9 = HuaSe(x \ 13)

y9 = HuaSe(y \ 13)

'Calcula los palos de las dos cartas

Imprimir "La primera carta extraída es: "; x8

Imprimir "La segunda carta extraída es: " y8; Imprima el caso de dos tarjetas

Imprimir x9;

Seleccione Caso Sgn(x0 - y0)

Caso 0

Imprimir "=";

Caso 1

Imprimir "gt;";

Caso -1

Imprimir "lt;"; /p>

Finalizar selección

Imprimir y9; y8

'Comparar y generar el resultado

End Sub

Función privada PaiXudaoPaiMian(a As Integer) As String

'Convierte las tarjetas según la secuencia de tarjetas

PaiXudaoPaiMian = Mid(PaiMian, a 1, 1)

' Leer los caracteres correspondientes

Si PaiXudaoPaiMian = "0" Entonces PaiXudaoPaiMian = "10"

'0 representa 10

Función final

Private Sub Form_Load()

HuaSe = Array("Spade", "Heart", "Club", "Diamond")

End Sub