vb点虐 抽奖 vba 抽奖
请教vb源代码，抽奖程序，从100个人中抽取三等奖3个，二等奖2个，一等奖1个，每次抽奖不重复。
Public Sub Main()
创新互联建站主营金安网站建设的网络公司,主营网站建设方案,重庆APP开发,金安h5小程序定制开发搭建,金安网站营销推广欢迎金安等地区企业咨询
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中怎么在开奖后取消抽奖
关闭定时器控件。
vb中在开奖后关闭定时器控件就不会继续进行抽奖了可以完成取消抽奖
VB.Net是一种面向对象的编程语言。在面向对象编程方法中，程序由通过动作相互交互的各种对象组成。
VBNET编写抽奖软件程序
把你的代码发出来。
你这种方式的程序只能弄一等奖吧，为什么会有二等奖三等奖？
获奖次数跟电话号码什么关系，为什么不能重复？同一个号码不能多次获奖？那就不是重复的问题，你的提问有些不清不楚。
暂定的解决方案——
把随机生成的电话号码，赋值给公共数组，如果公共数组中存在新生成的电话号码，那么重新生成电话号码，如果电话号码不在数组中存在，那么将电话号码加入到数组中。重复以上过程，直至喊停。
vb点虐 多次滚动抽奖的程序代码
我用多线程写的，你可以参考下。
系统界面图如下：（注：重置功能为清除已经中奖号码，回归1-100都可以中奖状态。）
代码：
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("所有数字已使用，请重置！");
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);
}
}
当前名称：vb点虐 抽奖 vba 抽奖
当前URL：http://azwzsj.com/article/ddgsssh.html
