Aquellos que conocen VB informático pueden ayudar con algunas preguntas de programación.
Subcomando privado1_Click()
Dim a(9) como entero, str como cadena, max como entero
max = 0
str = "Estos 10 números son"
Para i = 0 a 9 Paso 1
Aleatorizar
a(i) = Int(Rnd * 100 ) 1
str = str amp; "," amp; CStr(a(i))
Si (a(i) gt; max) Entonces
max = a(i)
Fin si
Siguiente
MsgBox str amp ", el más grande es: " amp; >End Sub
Private Sub Command2_Click()
Atenuar a(9) como entero, promedio como doble, suma como entero, str como cadena
suma = 0
str = "Estos 10 números son"
Para i = 0 a 9 Paso 1
a(i) = InputBox("Por favor, ingrese No. " amp; i 1 amp; "número")
suma = suma a(i)
str = str amp; "," amp; CStr(a(i) )
Siguiente
promedio = suma/10
MsgBox str amp; "El promedio de estos 10 números es" amp; Sub
Private Sub Command3_Click()
Dim str como cadena, num como entero, strlen como entero
str = InputBox("Por favor, introduzca una cadena de caracteres")
strlen = Len(str)
num = 0
For i = 1 Para strlen Paso 1
If ( Mid(str , i, 1) = " ") Entonces
num = num 1
Fin
Siguiente
MsgBox " El número de los espacios son " amp; num
End Sub
Subcomando privado4_Click()
Número atenuado como entero, yorn como booleano
yorn = True
número = CInt(InputBox("Ingrese un número entero"))
Para i = 2 Al número - 1 Paso 1
Si (número Mod i = 0) Entonces
yorn = False
Fin si
Siguiente
Si (yorn) Entonces
El número de MsgBox amp "es un número primo"
Else
Número de MsgBox amp; "No es un número primo"
Finalizar si
Finalizar sub
Subcomando privado5_Click()
Dim str como cadena, yorn como booleano
str = "Los números primos del 1 al 100 son:"
Para i = 1 a 100 Paso 1
yorn = True
Para j = 2 A i - 1 Paso 1
Si (i Mod j = 0) Entonces
yorn = False
Finalizar si
Siguiente
Si (yorn) Entonces
str = str amp "," CStr(i)
Finalizar si
Siguiente
MsgBox str
Fin Sub
Subcomando privado7_Click()
Atenuar a Como entero, str Como cadena, número Como entero
cadena = "Estos 100 números son"
número = 0
Para i = 1 Para 100 Paso 1
Aleatorizar 'Sin esto, el número generado será el mismo
a = Rnd * 100 1
str = str amp "," amp; ; CStr(a)
Si (a gt; 50) Entonces
número = número 1
Finalizar si
Siguiente
MsgBox str
MsgBox "El número mayor que 50 es" amp número
End Sub
Private Sub Command8_Click()
Dim a(9) Como entero, min Como entero, str Como cadena
str = "Estos 10 números son"
Para i = 0 a 9 Paso 1
a(i) = InputBox("Ingrese el número "" i 1 "")
str = str "," CStr(a(i))
Siguiente
min = a(0)
Para i = 0 a 9 Paso 1
Si (a(i) lt; min) Entonces
min = a(i)
Finalizar si
Siguiente
MsgBox str
<p>MsgBox "El número más pequeño es" amp; min
End Sub