Programa de subtexto
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 p>
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