Programación Zs

Oscuro? zs? Zhang San

¿Oscuro? ¿Es? Li Si

¿Oscuro? ¿a nosotros? Wang Er

¿Oscuro? ¿mz? Chaozi

¿Oscuro? ¿ww? Wang Wu

¿Privado? ¿Función? cjSUM(p)? ¿Como? ¿soltero? ¿El rendimiento general de los estudiantes

es sombrío? ¿suma? ¿Como? ¿Suma única? =?0

¿Atenuado? ¿I? ¿Como? Enteros

¿Para qué? ¿I? =?0?¿Adónde ir? Detección ultrasónica de defectos

¿Suma? =?suma? ?Profesionales (1)

¿Siguiente? Yo

cjSUM? =?Suma

Fin? Función

¿Privada? ¿Función? cjPJ(p)? ¿Como? ¿soltero? Puntaje promedio del estudiante

cjPJ? =?Ronda(cjSUM(p)?/?(UBound(p)? ?1),?2)

¿Fin? Función

¿Privada? ¿Función? xkSUM(índice?como?entero)? ¿Como? ¿soltero? Rendimiento académico general

¿Pésimo? ¿suma? ¿Como? ¿Suma única? =?zs(índice)? ?ls(índice)? ?nosotros(índice)? ?mz(índice)? ?Global(Índice)

xkSUM? =?Suma

Fin? Función

¿Privada? ¿Función? xkPJ(índice?como?entero)? ¿Como? Puntuación media de "una sola materia"

xkPJ? =?Ronda(xkSUM(índice)?/?5,?2)

¿Fin? Función

¿Privada? ¿Sub? Command1_Click()

Lista1. ¿Agregar artículo? ("Puntuación total de Zhang San: "? ?CStr(cjSUM(zs))? ?Space(2)? ?"Puntuación promedio de Zhang San: "? ?CStr(cjPJ(zs)))

Lista1 . ¿Agregar artículo? ("Puntuación total de John Doe: "? ?CStr(cjSUM(ls))? ?Space(2)? ?"Puntuación promedio de John Doe: "? ?CStr(cjPJ(ls)))

List1 . ¿Agregar artículo? ("La puntuación total de King 2: "? ?CStr(cjSUM(we))? ?Space(2)? ?"La puntuación media de King 2: "? ?CStr(cjPJ(we)))

Lista1. ¿Agregar artículo? ("Puntuación total de Chaozi: "? ?CStr(cjSUM(mz))? ?Space(2)? ?"Puntuación promedio de Chaozi: "? ?CStr(cjPJ(mz)))

List1. ¿Agregar artículo? ("Puntuación total de Wang Wu: "? ?CStr(cjSUM(ww))? ?Space (2)? ?" Wang Wu promedió: "? ?CStr(cjPJ(ww)))

Finalizar ? Submarino

¿Privado? ¿Sub? Command2_Click()

Listado 2. ¿Agregar artículo? ("Puntuación total en chino: "? ?CStr(xkSUM(0))? ?Space(2)? ?"Puntuación promedio en chino: "? ?CStr(xkPJ(0))

Lista 2. AddItem ? ("Puntuación promedio en matemáticas:"? ?CStr(xkSUM(1))? ?Espacio(2)? ?"Puntuación promedio en matemáticas: "?CStr(xkPJ(1))

Lista 2. AddItem ? ("Puntuación total de física:"? ?CStr(xkSUM(2))? ?Espacio(2)? ?"Promedio de física:"? ?CStr(xkPJ(2)))

Lista 2.

¿Agregar artículo? ("Puntuación total de lengua extranjera: "? ?CStr(xkSUM(3))? ?Espacio(2)? ?"Puntuación media de lengua extranjera: "? ?CStr(xkPJ(3)))

Fin ? Submarino

¿Privado? ¿Sub? Form_Load()

zs? =?Matriz (65.2,?70.1,?85,?79)?Matriz de fracciones Zhang San (chino, matemáticas, física, idioma extranjero)

ls? =?Array(70,?88,?66,?60.5)'Matriz de fracciones Li Si (chino, matemáticas, física, lengua extranjera)

¿Nosotros? =?Array(96.5,?95,?89,?90)"Matriz de fracciones de Wang Er (chino, matemáticas, física, lengua extranjera)

mz?=?Array(88,?95,?80.5 ,?85) "Matriz de fracciones picadas (chino, matemáticas, física, lengua extranjera)

ww? =?Array(66,?70,?80.6,?99)"Wang Wu Fraction Array (chino, matemáticas, física, idioma extranjero)

¿Fin? Submarino

Esto es vb , si se necesita código adicional