Preguntas de envío de puntuaciones de VB de primer año
Esto no es muy simple
Respuesta: leohz_2009 - Asistente Nivel 2 4-3 08:36
atenuar i mientras, j mientras
atenuar i mientras, j mientras
p>
i=1
para j=2 a 200000
i=; i*j
if(igt;2000000)luego salga para
siguiente
msgbox j-1
atenuar i como entero, j como entero
para i=1 a 9
para j=1 a 9
print i amp "*" amp j amp "= " amp; i*j amp; vbTab;
siguiente
imprimir
siguiente
atenuar i como un número entero
dim min como entero, max como entero, promedio como entero
min=100
max=50
dim j(1 a 20)como entero
para i=1 a 20
j(i)=50 rnd()*50
si j(i)gt；max entonces max=j (i)
si j(i)lt；min entonces min=j(i)
promedio = promedio j(i)
siguiente
promedio = promedio/20
atenuar i como entero
atenuar j como entero
j=1
para i =1 a 6
j=(j 1)*2 'Invertir días 1, 2, 3, 4, 5, 6
siguiente
tenue i como número entero
para i=100 a 999
p>
if (i/100)^3 ((i/10)10)^3 (i10)^3 = i luego msgbox i
siguiente
sin prueba.
Respuesta: intehel - Mago Nivel 4 4-3 08:43
1 Supongamos m=1*2*3**n, programa para encontrar el valor cuando m no es mayor que 200000 Máximo n
para n=1 a 200000
m=m*n
si mgt 200000 entonces
n= n -1
msgbox n'display máximo n
salir para
finalizar si
siguiente
2 99 Tabla de multiplicar
Private Sub Form_Load()
Me.AutoRedraw = True
Para i = 1 a 9
Para j = 1 a 9
Si i lt; j Entonces Yo.Imprimir: Salir para
Imprimir j amp "×" amp "=" i * j amp " ";
Siguiente j
Yo.Imprimir
Siguiente i
Fin Sub
3. Utilice la función aleatoria para generar 20 números aleatorios en el rango de 50 a 100 y mostrar sus valores máximo, mínimo y promedio.
Atenuar n(1 a 20) como entero
Atenuar i, j, ave, temp
Aleatorizar
Para i = 1 Hasta 20
n(i) = Int((51 * Rnd) 50)
Imprimir n(i)
Siguiente i
Para j = 1 a 19
Para i = j 1 a 20
Si n(i) gt;= n(j) Entonces
temp = n(i)
n(i) = n(j)
n(j) = temp
Finalizar si
Siguiente
Siguiente
ave = 0
Para i = 1 a 20
ave = ave n(i)
Siguiente
ave = ave / 20
Imprimir "El valor máximo es:"; n(1)
Imprimir "El valor mínimo es:" ; n (20)
Imprimir "El valor promedio es: "; ave
4. El pequeño mono recogió varios melocotones en un día y se comió más de la mitad ese día; Continuó comiéndolos al día siguiente. Después de eso, se comió más de la mitad de los melocotones restantes todos los días. Cuando comió en la mañana del séptimo día, solo quedó uno. Pregúntale al pequeño mono cuántos melocotones *** recogió. ese dia?
atenuar n como número entero
n=1
para i=1 a 6
n=(n 1)*2
siguiente
msgbox n'Este es el melocotón recogido el primer día
siguiente
5. Utilice dos métodos diferentes para programar Buscar. todos los narcisos y su suma.
El número del narciso se refiere a un número entero de tres dígitos en el que la suma cúbica de cada dígito es igual al número, como 153 = 1^3 5^3 3^3, por lo que 153 es el número del narciso
dim m, sumas entero'
imprimir "Número de Narciso:"
para i=100 a 999
k=i
a=val (medio(k, 1, 1))
b=val(medio(k, 2, 1))
c=val(medio(k, 3, 1))
m=a*a*a b*b*b c*c*c
si m=i entonces
imprimir mamp;","
p>
suma=suma
fin si
siguiente
imprimir "Número total:"
imprimir