编程查成绩
① 青少年软件编程等级考试成绩在哪里查询
进入中国电子学会考评中心官网，点击成绩查询登录账号、密码即可查询
② 全国计算机二级C语言成绩查询具体分数怎样查
计算机二级不可以查具体分数，只能查出分数等级。
考试实行百分制计分，但以等级分数通知考生成绩。等级分数分为“不及格”、“及格”、“优秀”三等，划线分数为60和90。
考试成绩在“及格”，即60~89分者，由教育部考试中心发合格证书，考试成绩在“优秀”，即90~100分者，由教育部考试中心发优秀证书。
自2018年3月起，NCRE考试以等第形式通知考生成绩。成绩等第分为“优秀”、“良好”、“及格”、“不及格”四等。
考试注意事项
1、考生凭准考证和身份证（或户口本、军人身份证）参加考试，缺一不可。
2、考生发现磁盘损坏，可举手示意监考人员处理，有关考试题目内容的问题不得提问。
3、进入考场只能携带铅笔、橡皮、尺子、钢笔、圆珠笔等必备工具。
开考信号发出后，才可开始答题。上机考试结束，按要求处理好机器后才能退场。
4、考试开考前15分钟入场，对号入座，考试中将两证放在课桌右上角接受检查。上机考试交验两证。
以上内容参考网络—计算机考试二级
③ C语言 学生成绩管理系统
#include <stdio.h>
#define MAX 40
typedef struct{
char name[15];
int num;
int C;
int E;
int M;
int sum;
}student_t;
typedef struct{
int n;
student_t stu[MAX];
}class_t;
enum{
ADD_STUDENT = 1,
SHOW_STUDENT = 2,
DELETE_STUDENT = 3,
SORT_STUDENT = 4,
FIND_STUDENT = 5,
QUIT
};
void input_student(student_t *pstu)
{
int ret;
again_input:
printf("学号\t姓名\tC语言\t英语\t数学\t\n");
ret = scanf("%d %s %d %d %d",&pstu->num,pstu->name,&pstu->C,&pstu->E,&pstu->M);
if(ret < 5){
printf("Input error,must input string,int,int\n");
while ( getchar() != '\n')
;
goto again_input;
}
pstu->sum=(pstu->C+pstu->E+pstu->M);
printf("input end!\n");
return;
}
int add_student(class_t *pclass,student_t *pstu)
{
if(pclass->n >= MAX){
printf("The class is full!\n");
return -1;
}
pclass->stu[pclass->n ++] = *pstu;
return 0;
}
void show(student_t *pstu)
{
printf("%d %s %d %d %d %d\n",pstu->num,pstu->name,pstu->C,pstu->E,pstu->M,pstu->sum);
return;
}
void show_student(class_t *pclass)
{
int i;
printf("学号\t姓名\tC语言\t英语\t数学\t总分\t\n");
for(i = 0;i < pclass->n;i ++){
show(&pclass->stu[i]);
}
return;
}
int delete_student(class_t *pclass,char *stu_name)
{
int i,j;
for(i = 0, j = 0;i < pclass->n;i ++){
if(strcmp(pclass->stu[i].name,stu_name) != 0){
pclass->stu[j++] = pclass->stu[i];
}
}
if(i == j){
printf("The delete student:%s is not exist!\n",stu_name);
return 0;
}else{
pclass->n = j;
return i - j;
}
}
void sort_student(class_t *pclass)
{
int i,j;
int flag;
student_t student;
for(i = 0;i < pclass->n - 1;i ++){
for(j = 0,flag = 0;j < pclass->n - 1 - i;j ++){
if(pclass->stu[j].sum > pclass->stu[j + 1].sum){
student = pclass->stu[j];
pclass->stu[j] = pclass->stu[j+1];
pclass->stu[j+1] = student;
flag = 1;
}
}
if(!flag){
break;
}
}
return;
}
int find_student(class_t *pclass,char *stu_name)
{
int i;
int count = 0;
for(i = 0;i < pclass->n;i ++){
if(strcmp(pclass->stu[i].name,stu_name) == 0){
show(&pclass->stu[i]);
count ++;
}
}
return count;
}
int main(int argc, const char *argv[])
{
int n;
int choice;
char name[15];
class_t class = {0};
student_t student;
while(1)
{
puts("------------------------------------------");
puts("1.添加 2.查询 3.删除 4.排序 5.查找 6.退出");
puts("------------------------------------------");
printf("choice > ");
scanf("%d",&choice);
switch(choice){
case ADD_STUDENT:
input_student(&student);
add_student(&class,&student);
break;
case SHOW_STUDENT:
show_student(&class);
break;
case DELETE_STUDENT:
printf("Input delete student name : ");
scanf("%s",name);
n = delete_student(&class,name);
if(n > 0){
printf("Delete %d students!\n",n);
}
break;
case SORT_STUDENT:
sort_student(&class);
show_student(&class);
break;
case FIND_STUDENT:
printf("Input find student name : ");
scanf("%s",name);
n = find_student(&class,name);
printf("Find %d students!\n",n);
break;
case QUIT:
printf("quit student system!\n");
goto quit;
}
}
quit:
return 0;
}
④ vb编程做一个成绩查询系统
Option Explicit
Private Type StdInfo '学生信息
Name As String
Score(5) As Integer '0~4为单科成绩 5为总分
sn(5) As Integer '名次
End Type
Private Sub Form_Click()
Dim stds(9) As StdInfo, newstds() As StdInfo, nc As Integer
Dim s As String
Dim i As Integer
For i = 0 To 9
stds(i).Score(0) = 50 '此处随机生成一些分数 请自行修改实际分数
stds(i).Score(1) = 100 - i
stds(i).Score(2) = i + 10
stds(i).Score(3) = 100 - i
stds(i).Score(4) = i
stds(i).Name = CStr(i) '学生名字收录 此处为"0"~"9"
Next
Do
s = InputBox("请分别输入要查询的同学名字，留空结束")
For i = 0 To 9
If stds(i).Name = s Then
ReDim Preserve newstds(nc)
newstds(nc).Name = stds(i).Name
newstds(nc).Score(0) = stds(i).Score(0)
newstds(nc).Score(1) = stds(i).Score(1)
newstds(nc).Score(2) = stds(i).Score(2)
newstds(nc).Score(3) = stds(i).Score(3)
newstds(nc).Score(4) = stds(i).Score(4)
newstds(nc).Score(5) = stds(i).Score(0) + stds(i).Score(1) + stds(i).Score(2) + stds(i).Score(3) + stds(i).Score(4)
'将最后一个总分当作单科计算
nc = nc + 1
Exit For
End If
Next
Loop Until s = ""
Dim j As Integer, k As Integer
For k = 0 To 5 '科目
For i = 0 To nc - 1 '当前学生
For j = 0 To 9 '用于比较的学生
If newstds(i).Score(k) < stds(j).Score(k) Then
newstds(i).sn(k) = newstds(i).sn(k) + 1
'如果有分数比自己高的那么自己这科名次+1
End If
Next
Next
Next
Print "名字", "成绩1", "名次", "成绩2", "名次", "成绩3", "名次", "成绩4", "名次", "成绩5", "名次", "总分", "名次"
For i = 0 To nc - 1
Print newstds(i).Name,
For k = 0 To 5
Print newstds(i).Score(k), newstds(i).sn(k) + 1,
Next
Print
Next
End Sub
==============第二次修改后的：==================
Option Explicit
Private Type StdInfo
Score() As Single '支持小数这次
ScoreNo() As Integer '名次
End Type
Dim Students() As StdInfo
Private Sub Form_Click()
Dim s As String, ScoreCount As Integer, c As Integer, sc As Single, m As Integer
s = InputBox("请输入科目总数。")
If Trim(s) = "" Then Exit Sub
ScoreCount = CInt(s)
Do
sc = 0
c = c + 1
s = InputBox("请输入第" & UBound(Students) + 1 & "个学生的第" & c & "/" & ScoreCount & "个科目的成绩。留空结束")
If s <> "" Then
If UBound(Students(UBound(Students)).Score) <> ScoreCount + 1 Then
ReDim Preserve Students(UBound(Students)).Score(ScoreCount + 1)
ReDim Preserve Students(UBound(Students)).ScoreNo(ScoreCount + 1)
End If
Students(UBound(Students)).Score(c) = Val(s)
If c = ScoreCount Then
For m = 0 To c
sc = sc + Students(UBound(Students)).Score(m)
Next
Students(UBound(Students)).Score(c + 1) = sc
ReDim Preserve Students(UBound(Students) + 1)
ReDim Students(UBound(Students)).Score(ScoreCount + 1)
ReDim Students(UBound(Students)).ScoreNo(ScoreCount + 1)
c = 0
End If
End If
Loop Until s = ""
Dim i As Integer, j As Integer, k As Integer
For k = 1 To ScoreCount + 1 '科目
For i = 0 To UBound(Students) - 1 '当前学生
For j = 0 To UBound(Students) - 1 '用于比较的学生
If Students(i).Score(k) < Students(j).Score(k) Then
Students(i).ScoreNo(k) = Students(i).ScoreNo(k) + 1
End If
Next
Next
Next
Print "学生",
For j = 1 To ScoreCount
Print "科目"; CStr(j); "分数", "名次",
Next
Print "总分", "名次"
For i = 0 To UBound(Students) - 1
Print CStr(i) + 1,
For j = 1 To ScoreCount + 1
Print CStr(Students(i).Score(j)), CStr(Students(i).ScoreNo(j) + 1),
Next
Print
Next
End Sub
Private Sub Form_Load()
ReDim Students(0)
ReDim Students(0).Score(0)
ReDim Students(0).ScoreNo(0)
End Sub