Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas sobre programación vb todas

Preguntas sobre programación vb todas

Subcomando privado1_Click() Atenuar a como entero a = InputBox("a=") Si a >= 0 Entonces

Imprimir "|" & a & "|=" & a Else

Imprimir "|" & a & "|=" & -a End If Print

End Sub

Subcomando privado2_Click() Atenuar como Entero, i como entero para i = 1 a 10

s = s + 2 * i Siguiente i para i = 1 a 9

Imprimir 2 * i & "+"; i Imprimir 20 & "=" & s Imprimir

End Sub

Subcomando privado3_Click() Atenuar a como único, b como único, c como único, mínimo como único a = InputBox ("a=") b = InputBox("b=") c = InputBox("c=") Si a < b Entonces

Mín = a Si no

Mín = b Fin Si c < Min Entonces

Min = c Fin Si Imprimir "a="; a, "b="; b, "c=" c Imprimir "Min="; p>

End Sub

Subcomando privado4_Click() Atenuar i como entero para i = 10 a 30

Si i Mod 4 = 0 entonces

? Imprimir i;

Finalizar si es siguiente i Imprimir Imprimir

Fin Sub

Subcomando privado5_Click() Atenuar i como entero, j como entero para i = 0 A 3

Imprimir Espacio(i);

Para j = 7 - 2 * i A 1 Paso -1

Imprimir "@";

Siguiente j

Imprimir siguiente i

Fin Sub