Red de conocimiento informático - Problemas con los teléfonos móviles - Programa de subtexto

Programa de subtexto

Subcomando privado 1_Click()

Cls

La primera pregunta

Dim i es un número entero, j es un número entero

Para i = 1 a 10

Para j = 1 a 10

Si i = j o i j = 11, entonces imprima 1; de lo contrario, imprima 0;

Entonces

Imprimir

Luego

Finalizar conector

Subcomando privado 2_Click()

Texto1. SetFocus

If Text1 = " "Entonces MsgBox "Por favor copie su partitura aquí": Salga de Sub.

Texto1 = reemplazar(Texto1. texto, vbCrLf, ")

texto 1 = reemplazar(texto 1. texto, "segundo", "segundo"; vbCrLf)

Conector final

Subcomando privado 3_Click()

Tamaño máximo y mínimo

Atenuar i

Hacer

I = InputBox("Ingrese el primer número "; I &", el espacio en blanco significa salir")

Si I = "" entonces salga Do

Si max = " " Entonces max = i

Si min = " "Entonces min = i

si Val(max) lt Val(i) entonces max = i

Si Val(min)>Val(i) then min = i

Ring

El número máximo de MsgBox es "max" y el número mínimo de vbNewLine es "part"

Conector final

Subcomando privado 4_Click()

Dim i es un número entero, mystr es una cadena

Mostrar mymod como un número entero

I = InputBox("Ingrese un número decimal:")

mymod = i Mod 2

mymod ampmystr

i = i \ 2

cuando i lt gt0

mymod = i Mod 2

mymod ampmystr

i = i \ 2

ring

El resultado de la "conversión" de MsgBox es ";mystr

Conector final

Subcomando privado 5_Click()

Atenuar i , j Para números enteros

Binario a decimal

La misma longitud que un refrigerio

I = InputBox("Ingrese un valor binario:")

Para j = 1 a Len(i)

suma = suma Val(Mid(i, j, 1)) * 2 ^ (Len(i) - j)

Luego

p>

MsgBoxSum

Conector final