puntuación de programación vb
aaa 50
bbb 60
ccc 70
ddd 89
eee 100
fff 32
Lista de puntuación de salida de personas contadas
Private Sub Command1_Click()
Abra "C:\score2007.txt" para la entrada como # 1
Dim linetxt como cadena
Dim r90, r80, r70, r60, r0 como cadena
Dim c90, c80, c70, c60, c0 como entero
Hacer mientras no sea EOF(1)
Entrada de línea #1, linetxt
Si Len(Trim(linetxt)) gt 0 entonces
tmpArr = Split(linetxt, " ")
Seleccionar caso CDbl(tmpArr(1))
El caso es gt;= 90
r90 = r90 vbCrLf linetxt
c90 = c90 1
El caso es gt; = 80
r80 = r80 vbCrLf linetxt
c80 = c80 1
El caso es gt;= 70
r70 = r70 vbCrLf linetxt
c70 = c70 1
El caso es gt;= 60< / p>
r60 = r60 vbCrLf linetxt
c60 = c60 1
Caso más
r0 = r0 vbCrLf linetxt
c0 = c0 1
Finalizar selección
Finalizar si
Bucle
Cerrar #1
Abrir "c. /renshu： \ renshu.txt" Para salida como #2
Imprimir #2, "100-90 ****：" CStr(c90) " personas"
Imprimir #2, r90
Imprimir #2, "------ --------------------------------- - -------------"
Imprimir #2, "89-80 ****:" CStr(c80) "人"
Imprimir #2, r80
Imprimir #2, "---------- ----------------------- ------------------"
Imprimir #2, "79-70 ***：" CStr(c70) "人"
Impresión n.° 2, r70
Impresión n.° 2, "------------------------------ ---- --------------------"
Imprimir #2, "69-60 ***:"
CStr(c60) "人"
Imprimir #2, r60
Imprimir #2, "------------------ - -------------------------------"
Impresión n.º 2, "59-0 ** * : "CStr(c0) "人"
Imprimir #2, r0
Imprimir #2, "---------------- - --------- -------------------------"
Cerrar #2
Fin del subtítulo