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