锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net竞赛评分程序 vbnet题库

IT技术评委

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
a(i) = 9i / 10
st = InputBox("第"i"个评委的打分：", "输入", a(i))
If st = "" Then
MsgBox "请输入分数！"
i = i - 1
Else
a(i) = Val(st)
If a(i) = 0 Then
MsgBox "输入错误！请重新输入 。"
i = i - 1
End If
End If
Next
Print "评委打分为："; a(1);
max = a(1)
min = a(1)
sum = a(1)
For i = 2 To 5
If maxa(i) Then max = a(i)
If mina(i) Then min = a(i)
Print a(i);
sum = suma(i)
Next
sum = (sum - min - max) / 3
Print
Print "去掉一个最高分："; max; "，去掉一个最低分："; min
Print "最后得分为："; Round(sum, 3)
End Sub
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；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集 。
c语言编程：歌唱比赛评委评分系统【vb.net竞赛评分程序 vbnet题库】#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])
{
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
VBNET编写抽奖软件程序先把所有电话名单放在一个List泛型集合中，取出一个就Remove掉一个，这样就不会重复了 。
几等奖几个按照你的需求来循环即可 。
给文本框添加内容：TextBox1.Text = 字符串
换行用vbCrLf常量表示 。
详细的可以私信
关于vb.net竞赛评分程序和vbnet题库的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：趣配音下载，趣配音下载到本地到哪去找

    下一篇：服务器怎么建网站 怎么搭建服务器网址