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

Print "去掉一个最高分："; max; "，去掉一个最低分："; min

Print "最后得分为："; Round(sum, 3)

End Sub