編程查成績
① 青少年軟體編程等級考試成績在哪裡查詢
進入中國電子學會考評中心官網，點擊成績查詢登錄賬號、密碼即可查詢
② 全國計算機二級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