锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net竞赛评分程序 vb比赛评分程序

IT技术输入

c语言编程：歌唱比赛评委评分系统#include stdio.h
#includestring.h
void main()
{
int i,j,m,n;
float num,xgrade[100],max,min,pgrade[100],pdis[100];
char str[10],xname[100][10],pname[100][10];
printf("请输入评委人数：");
scanf("%d",m);
printf("\n请分别输入评委姓名：\n");
for(i=0;im;i++)
{
scanf("%s",pname[i]);//评委姓名
pgrade[i]=0;//评委给的分
pdis[i]=0;//评委给分和最后结果的差距
}
printf("\n请输入选手人数：");
scanf("%d",n);
printf("\n请分别输入选手姓名：\n");
for(i=0;in;i++)
{
scanf("%s",xname[i]);//选手姓名
xgrade[i]=0;//选手成绩
}
for(i=0;in;i++)
{
max=0;min=10;//评委给选手的最大最小成绩
printf("\n请给选手%s打分!",xname[i]);
for(j=0;jm;j++)
{
printf("\n%s老师给的分数为：",pname[j]);
scanf("%f",pgrade[j]);
xgrade[i]+=pgrade[j];//加到该选手的总分数中
if(maxpgrade[j])
max=pgrade[j];
if(minpgrade[j])
min=pgrade[j];
}
xgrade[i]=(xgrade[i]-max-min)/(m-2);//最后成绩为总成绩-最高分-最低分，然后平均
for(j=0;jm;j++)//算出每个评委本次评分和最终成绩的差，加到pdis中保存起来
{
pdis[j]+=pgrade[j]xgrade[i]?(pgrade[j]-xgrade[i]):(xgrade[i]-pgrade[j]);
}
}
for(i=0;in-1;i++)
for(j=0;jn-1-i;j++)
if(xgrade[j]xgrade[j+1])
【vb.net竞赛评分程序 vb比赛评分程序】{
strcpy(str,xname[j]);
strcpy(xname[j],xname[j+1]);
strcpy(xname[j+1],str);
num=xgrade[j];
xgrade[j]=xgrade[j+1];
xgrade[j+1]=num;
}
printf("\n选手按名次排名为：\n");
printf("选手名\t得分\n");
for(i=0;in;i++)
printf("%s\t%f\n",xname[i],xgrade[i]);
for(i=0;im-1;i++)
for(j=0;jm-1-i;j++)
if(pdis[j]pdis[j+1])
{
strcpy(str,pname[j]);
strcpy(pname[j],pname[j+1]);
strcpy(pname[j+1],str);
num=pdis[j];
pdis[j]=pdis[j+1];
pdis[j+1]=num;
}
printf("\n评委按名次排名为：\n");
printf("评委名\t差分\n");
for(i=0;im;i++)
printf("%s\t%f\n",pname[i],pdis[i]);
}
vae.la
vb输入10个同学的成绩,计算平均分和总分Dim A(1 To 10) As Single 。
Private Sub Command1_Click() 。
'请在第一个文2113本中输入成绩,成绩之间用5261空格隔开 。
Dim s As String
s = Trim(Text1.Text)
d = Split(s, " ")
ReDim A(1 To UBound(d) + 1) As Single
For i = 1 To UBound(A)
A(i) = d(i - 1)
Next
End Sub
Private Sub Command2_Click()
maxn = A(1)
For i = 2 To UBound(A)
扩展资料
vb.net 特性：
1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异 。主要体现在窗体的布局以及菜单等方面都有所不同 。
2、vb.net 项目与 VB 不同 。它使用基于文件夹的模型 ， 所有项目均放置在项目文件夹层次结构中 。
3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分 。在 vb.net 中实现数据访问的方法主要有两种 。
其一是在程序设计阶段 ， 通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中 ， 通过编程方式动态创建配置数据适配器和创建、生成数据集 。
VB编程 编写一个竞赛评分的函数过程 。评委打分为参数（数组参数），选手得分为函数值 。记分规则为Private Sub Form_Click()
Dim a(5) As Single
Dim i As Integer
Dim sum As Single, min As Single, max As Single
Dim st As String
Me.Cls
For i = 1 To 5

推荐阅读


上一篇：关于go语言中锁的功能的信息

下一篇：中学老师gis教育培训，中学教师培训心得体会10篇