建站
咨詢
售后
建站咨詢
新聞中心
VBNET編寫抽獎軟件程序
先把所有電話名單放在一個List泛型集合中，取出一個就Remove掉一個，這樣就不會重復(fù)了。
創(chuàng)新互聯(lián)作為成都網(wǎng)站建設(shè)公司，專注網(wǎng)站建設(shè)、網(wǎng)站設(shè)計，有關(guān)企業(yè)網(wǎng)站建設(shè)方案、改版、費用等問題，行業(yè)涉及成都LED顯示屏等多個領(lǐng)域，已為上千家企業(yè)服務(wù)，得到了客戶的尊重與認可。
幾等獎幾個按照你的需求來循環(huán)即可。
給文本框添加內(nèi)容：TextBox1.Text = 字符串
換行用vbCrLf常量表示。
詳細的可以私信
vb輸入10個同學(xué)的成績,計算平均分和總分
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 集成開發(fā)環(huán)境中，在這種集成開發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。
2、vb.net 項目與 VB 不同。它使用基于文件夾的模型，所有項目均放置在項目文件夾層次結(jié)構(gòu)中。
3、vb.net 中使用ado.net來訪問數(shù)據(jù)庫，ado.net是.netFramework的一部分。在 vb.net 中實現(xiàn)數(shù)據(jù)訪問的方法主要有兩種。
其一是在程序設(shè)計階段，通過創(chuàng)建、配置數(shù)據(jù)適配器 DataAdapter 和生成數(shù)據(jù)集 DataSet；其二是在運行中，通過編程方式動態(tài)創(chuàng)建配置數(shù)據(jù)適配器和創(chuàng)建、生成數(shù)據(jù)集。
c語言編程：歌唱比賽評委評分系統(tǒng)
#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("請輸入評委人數(shù)：");
scanf("%d",m);
printf("\n請分別輸入評委姓名：\n");
for(i=0;im;i++)
{
scanf("%s",pname[i]);//評委姓名
pgrade[i]=0;//評委給的分
pdis[i]=0;//評委給分和最后結(jié)果的差距
}
printf("\n請輸入選手人數(shù)：");
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老師給的分數(shù)為：",pname[j]);
scanf("%f",pgrade[j]);
xgrade[i]+=pgrade[j];//加到該選手的總分數(shù)中
if(maxpgrade[j])
max=pgrade[j];
if(minpgrade[j])
min=pgrade[j];
}
xgrade[i]=(xgrade[i]-max-min)/(m-2);//最后成績?yōu)榭偝煽?最高分-最低分，然后平均
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編程 編寫一個競賽評分的函數(shù)過程。評委打分為參數(shù)（數(shù)組參數(shù)），選手得分為函數(shù)值。記分規(guī)則為
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 "請輸入分數(shù)！"
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
當(dāng)前標題：vb.net競賽評分程序 vb程序設(shè)計成績評定
文章地址：http://www.ef60e0e.cn/article/doeedjj.html
