Utilice VB para extraer provincia, fecha de nacimiento, sexo y código de verificación según el número de tarjeta de identificación. ¿Cómo escribir? Si los datos son correctos, serás recompensado 2 veces más.

Subcomando privado 1_Click()

Seleccione la mitad del caso (Recortar(Text1.Text), 1, 2)

Caso 11

? Texto 2. Texto = "Pekín"

Caso 12

? Texto 2. Texto = "Tianjin"

Caso 13

? Texto 2. Texto = "Provincia de Hebei"

Caso 14

? Texto 2. Texto = "Provincia de Shanxi"

Caso 15

? Texto 2. Text = "Región Autónoma de Mongolia Interior"

Caso 21

? Texto 2. Texto = "Provincia de Liaoning"

Caso 22

? Texto 2. Texto = "Provincia de Jilin"

Caso 23

? Texto 2. Texto = "Provincia de Heilongjiang"

Caso 31

? Texto 2. Texto = "Shanghai"

Caso 32

? Texto 2. Texto = "Provincia de Jiangsu"

Caso 33

? Texto 2. Texto = "Provincia de Zhejiang"

Caso 34

? Texto 2. Texto = "Provincia de Anhui"

Caso 35

? Texto 2. Texto = "Provincia de Fujian"

Caso 36

? Texto 2. Texto = "Provincia de Jiangxi"

Caso 37

? Texto 2. Texto = "Provincia de Shandong"

Caso 41

? Texto 2. Texto = "Provincia de Henan"

Caso 42

? Texto 2. Texto = "Provincia de Hubei"

Caso 43

? Texto 2. Texto = "Provincia de Hunan"

Caso 44

? Texto 2. Texto = "Provincia de Guangdong"

Caso 45

? Texto 2. Text = "Región Autónoma de Guangxi Zhuang"

Caso 46

? Texto 2. Texto = "Provincia de Hainan"

Caso 50

? Texto 2. Texto = "Chongqing"

Caso 51

? Texto 2. Texto = "Provincia de Sichuan"

Caso 52

? Texto 2. Texto = "Provincia de Guizhou"

Caso 53

? Texto 2. Texto = "Provincia de Yunnan"

Caso 54

? Texto 2. Text="Región Autónoma del Tíbet"

Caso 61

? Texto 2. Texto = "Provincia de Shaanxi"

Caso 62

? Texto 2. Texto = "Provincia de Gansu"

Caso 63

? Texto 2. Texto = "Provincia de Qinghai"

Caso 64

? Texto 2. Text = "¿Te gusta la Región Autónoma Hui?"

Caso 65

? Texto 2. Text = "Región Autónoma Uygur de Xinjiang"

Caso 71

? Texto 2. Text = "Provincia de Taiwán"

Caso 72

? Texto 2. Text = "Región Administrativa Especial de Hong Kong"

Caso 73

? Texto 2. Texto = "Región Administrativa Especial de Macao"

Finalizar selección

SMS 3. Texto = Medio(Texto1.

Texto, 7, 8)

texto 4. texto = IIF(val(mid(texto 1. texto, 17, 1)) mod 2 = 0, "female", "male")

Texto 5. Texto = Medio(Texto1. Texto, 18, 1)

Conector final