锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net抽奖程序代码 vba抽奖程序( 二 )

IT技术代码


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 '产生一个[1vb.net抽奖程序代码 ， n]中vb.net抽奖程序代码的随机整数并存入变量x中
Label2.Caption = a(x) '在标签Label2中显示下标变量a(x)的值（第x个人的姓名）
End Sub
怎么用vb做一个抽奖程序只要在窗体中做二个命令按钮、一个标签和一个定时器对象vb.net抽奖程序代码 ， 复制以下代码vb.net抽奖程序代码 ， 就可以运行了：
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "暂停"
Timer1.Enabled = True
Else
Command1.Caption = "开始"
Timer1.Enabled = False
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Label1.Caption = ""
Label1.FontSize = 50
Timer1.Interval = 50
Timer1.Enabled = False
Command1.Caption = "开始"
Command2.Caption = "结束"
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 50) + 1
End Sub
VB编程年会抽奖代码？语言实现此程序 。
以下是VB编程语言的实现示例：
'定义变量 ， 存储每个奖项的人数
Dim firstPrize As Integer = 3
Dim secondPrize As Integer = 5
Dim thirdPrize As Integer = 12
Dim souvenirPrize As Integer = 10
'定义变量，存储抽奖结果
Dim firstPrizeList As New List(Of Integer)
Dim secondPrizeList As New List(Of Integer)
Dim thirdPrizeList As New List(Of Integer)
Dim souvenirPrizeList As New List(Of Integer)
'定义变量，存储编号滚动的起始编号
Dim currentNum As Integer = 1
'循环抽取各种奖项
For i As Integer = 1 To firstPrize
'抽取一等奖 ， 并将编号添加到一等奖名单中
firstPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To secondPrize
'抽取二等奖，并将编号添加到二等奖名单中
secondPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To thirdPrize
'抽取三等奖，并将编号添加到三等奖名单中
thirdPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To souvenirPrize
'抽取纪念奖，并将编号添加到纪念奖名单中
souvenirPrizeList.Add(currentNum)
currentNum += 1
Next
'输出抽奖结果
Console.WriteLine("一等奖名单："String.Join(",", firstPrizeList))
Console.WriteLine("二等奖名单："String.Join(",", secondPrizeList))
Console.WriteLine("三等奖名单："String.Join(",", thirdPrizeList))
Console.WriteLine("纪念奖名单："String.Join(",", souvenirPrizeList))
vb.net 多次滚动抽奖的程序代码我用多线程写的，你可以参考下 。
系统界面图如下：（注：重置功能为清除已经中奖号码，回归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)

推荐阅读


上一篇：推广|引流 如何+1481822Z空间，推广引流方法有哪些推广方法

下一篇：多个电脑硬盘共享怎么设置，多个硬盘如何连接