锐客网

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

vbnet抽奖程序 vb编写抽奖小程序( 二 )

IT技术程序


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 编写一个抽奖程序command1用来随机抽取vbnet抽奖程序，text2显示
text1用来自己输入
command2用来判断
基本思想vbnet抽奖程序：假设连续有a位相同vbnet抽奖程序，经过验证如果为真则得出结果vbnet抽奖程序 ， 如果为假vbnet抽奖程序 ， 则假设a=a-1位相同……直到a=0
也可以自己输入text2数据来检验程序
这段程序不局限于7位数
Private Sub Command2_Click()
Dim a$, b$, i%, j%, k%
a = CStr(Text1)
b = CStr(Text2)
For i = Len(a) To 1 Step -1
For j = 1 To Len(a) - i + 1
If Mid(a, j, i) = Mid(b, j, i) Then
k = i
Exit For
End If
Next
If k0 Then Exit For
Next
Print k, Mid(a, j, i)'输出相同位数和相同数字
If len(a)+1-k5 Then
MsgBox "对不起，无奖项"
Else
MsgBox Len(a) + 1 - k"等奖"'判断奖项
End If
End Sub
Private Sub Command1_Click()
a = CStr(Text1)
Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))
End Sub
【vbnet抽奖程序 vb编写抽奖小程序】关于vbnet抽奖程序和vb编写抽奖小程序的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：剪辑视频应该剪个什么音乐，剪辑视频用什么音乐

下一篇：单机游戏女解说，游戏女解说 谁人气最高