Problemas de funcionamiento de VB
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