建站
咨询
售后
建站咨询
VBNET编写抽奖软件程序
先把所有电话名单放在一个List泛型集合中，取出一个就Remove掉一个，这样就不会重复了。
创新互联作为成都网站建设公司，专注网站建设、网站设计，有关企业网站建设方案、改版、费用等问题，行业涉及成都LED显示屏等多个领域，已为上千家企业服务，得到了客户的尊重与认可。
几等奖几个按照你的需求来循环即可。
给文本框添加内容：TextBox1.Text = 字符串
换行用vbCrLf常量表示。
详细的可以私信
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语言编程：歌唱比赛评委评分系统
#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
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) = 9 + i / 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 max a(i) Then max = a(i)
If min a(i) Then min = a(i)
Print a(i);
sum = sum + a(i)
Next
sum = (sum - min - max) / 3
Print "去掉一个最高分："; max; "，去掉一个最低分："; min
Print "最后得分为："; Round(sum, 3)
End Sub
分享文章：vb.net竞赛评分程序 vb程序设计成绩评定
网址分享：http://lswzjz.com/article/doeedjj.html
