VB中可用的抽奖程序的代码

Dim a(1 To 100) As String

成都创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站设计、网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的洛隆网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

Dim i As Integer, x As Integer

Const n = 3 'n的值可根据实际需要赋予不同的变量

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Form_Load()

Randomize '初始化随机数生成器

a(1) = "富士康" '以此将n个人的姓名保存在数组a中

a(2) = "庞麦郎"

a(3) = "非主流"

For i = 1 To n

List1.AddItem a(i)

Next

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

x = Rnd() * n + 1 '产生一个[1，n]中的随机整数并存入变量x中

Label2.Caption = a(x) '在标签Label2中显示下标变量a(x)的值（第x个人的姓名）

End Sub

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);

}

}

新闻名称：vbnet抽奖程序 抽奖vb程序代码
当前地址：http://chengdu.cdxwcx.cn/article/ddgggph.html