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

Problemas de funcionamiento de VB

1.A=0:B=0 Resultado de ejecución: 2, 4

Para I = -1 a -2 Paso -1

Para J= 1 a 2

B=B 1

Siguiente J

A=A 1

Siguiente I

Imprimir A

Para X= 5 a 1 Paso -1 Resultados de ejecución*

**

****

****

*****

2,

Para Y= 1 a 6 -X

Pestaña Imprimir (Y 5); ;

Siguiente Y

Imprimir

Siguiente X

3.N= 1 Resultado de ejecución: *****

****

***

**

*

Hacer

Para K = N a 5

Imprimir "*";

Siguiente K

Imprimir

N=N 1

Bucle hasta Ngt; 5

Atenuar i como entero, j como entero, K como entero Resultado de ejecución: 0 9

3 18

6 27

9 36

9 36

4,

k=0

Para i=0 a 10 Paso 3 p>

Para j=1 a 10

Si jgt 5 Entonces k=k 4:Salir para

k=k 1

Siguiente j

Imprimir i , k

Si Igt 8 entonces salga para

Siguiente i

Imprimir i , k

5.Public Sub Procl(n como entero, ByVal m como entero) Resultado de ejecución: 2 34

n = n Mod 10

m = m\10

End Sub

Sub comando privado1_Click()

Dim x como entero, y como entero

x=12:y=34

Llamar a Procl (x, y)

Imprimir x;

End Sub

6.Resultado de la operación Private Sub Form_Click(): n=1 z= 4

n=2 z=7

n=3 z=10

Atenuar a como entero, b como entero, z como entero

a = 1: b = 1

Para n = 1 a 3

z = chg(a, b)

Form1.Print "n =" ; n, "z="; z

Siguiente n

End Sub

Función chg(a como entero, b como entero) como

Entero

Dim n como entero

Para n = 0 a 2

a = a b

Siguiente n

chg = a

Finalizar función

7.Private Sub Command1_Click() Después de ejecutar el resultado, haga clic en el botón Command1 una vez: 20

Para I = 1 a 4

S = S P(i)

Siguiente i

Imprimir S;

Fin Sub

Función privada P(N como entero)

SUM estática

Para I =1 a N

SUM=SUM 1

Siguiente I

p>

P=SUM

Función final

Si elimina la instrucción SUM estática, el resultado de hacer clic en el botón Comando1 será: 10