請教vb源代碼，抽獎程序，從100個人中抽取三等獎3個，二等獎2個，一等獎1個，每次抽獎不重復。

Public Sub Main()

創(chuàng)新互聯(lián)建站主營金安網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,重慶APP開發(fā),金安h5小程序定制開發(fā)搭建,金安網(wǎng)站營銷推廣歡迎金安等地區(qū)企業(yè)咨詢

Dim allLeft As New List(Of Integer)()

For i As Integer = 0 To 99

allLeft.Add(i + 1)

Next

Dim r As New Random()

Dim [next] As Integer

Dim level As String

For i As Integer = 0 To 5

[next] = r.[Next]() Mod allLeft.Count

If i 3 Then

level = "Third"

ElseIf i 5 Then

level = "Second"

Else

level = "First"

End If

Console.WriteLine(level " level prize is: " allLeft([next]).ToString())

allLeft.RemoveAt([next])

Next

End Sub

vb中怎么在開獎后取消抽獎

關(guān)閉定時器控件。

vb中在開獎后關(guān)閉定時器控件就不會繼續(xù)進行抽獎了可以完成取消抽獎

VB.Net是一種面向?qū)ο蟮木幊陶Z言。在面向?qū)ο缶幊谭椒ㄖ?，程序由通過動作相互交互的各種對象組成。

VBNET編寫抽獎軟件程序

把你的代碼發(fā)出來。

你這種方式的程序只能弄一等獎吧，為什么會有二等獎三等獎？

獲獎次數(shù)跟電話號碼什么關(guān)系，為什么不能重復？同一個號碼不能多次獲獎？那就不是重復的問題，你的提問有些不清不楚。

暫定的解決方案——

把隨機生成的電話號碼，賦值給公共數(shù)組，如果公共數(shù)組中存在新生成的電話號碼，那么重新生成電話號碼，如果電話號碼不在數(shù)組中存在，那么將電話號碼加入到數(shù)組中。重復以上過程，直至喊停。

vb點虐 多次滾動抽獎的程序代碼

我用多線程寫的，你可以參考下。

系統(tǒng)界面圖如下：（注：重置功能為清除已經(jīng)中獎號碼，回歸1-100都可以中獎狀態(tài)。）

代碼：

public?partial?class?Form1?:?Form

{

public?Form1()

{

InitializeComponent();

}

System.Threading.Thread?g_Thread?=?null;

Listint?g_list?=?new?Listint();

int?g_Num?=?0;

delegate?void?g_delegate();

///?summary

///?開始

///?/summary

///?param?name="sender"/param

///?param?name="e"/param

private?void?button2_Click(object?sender,?EventArgs?e)

{

if(g_list.Count==100)

{

MessageBox.Show("所有數(shù)字已使用，請重置！");

return;

}

button3.Enabled?=?true;

Random?r?=?new?Random();

g_delegate?dele=?ChangeTxt;

g_Thread?=?new?System.Threading.Thread(()?=

{

while(this.IsDisposed==false)

{

g_Num?=?r.Next(1,?100);

if(g_list.Contains(g_Num))

{

g_Num?=??1;

}

while(g_list.Contains(g_Num))

{

g_Num++;

}

this.Invoke(dele);

System.Threading.Thread.Sleep(50);

}

});

g_Thread.Start();

}

void?ChangeTxt()

{

label2.Text?=?g_Num.ToString();

}

///?summary

///?停止

///?/summary

///?param?name="sender"/param

///?param?name="e"/param

private?void?button3_Click(object?sender,?EventArgs?e)

{

//if(g_Thread.ThreadState==System.Threading.ThreadState.Running)

{

g_Thread.Abort();

g_list.Add(Convert.ToInt32(label2.Text));

}

button3.Enabled?=?false;

}

///?summary

///?重置

///?/summary

///?param?name="sender"/param

///?param?name="e"/param

private?void?button1_Click(object?sender,?EventArgs?e)

{

g_list.Clear();

}

private?void?Form1_FormClosed(object?sender,?FormClosedEventArgs?e)

{

System.Environment.Exit(0);

}

}