vb.net抽奖小程序 用vb编写一个抽奖程序
求vb摇奖小程序，非常简单，要求请看……
理解有误,是我理解有误吗??怎么被你说糊涂了??? 看下下面的代码是不是这个意思?
成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站建设、网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的岱岳网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
窗体1 单击按钮输入密码,一次一换,不正确退出
Dim y As Integer
Private Sub Command1_Click()
x = InputBox("请输入密码")
If x y Then
MsgBox "密码不正确": Unload Me
ElseIf x = y Then
Form2.Show: Form1.Visible = False: y = y + 1 '换密码
End If
End Sub
Private Sub Form_Load()
y = 123 '第一次密码
End Sub
窗体2
Dim i As Integer
Dim s(2) As String
Private Sub Command1_Click()
Timer1.Interval = IIf(Timer1.Interval = 0, 50, 0)
Command1.Caption = IIf(Command1.Caption = "开始", "停", "开始")
End Sub
Private Sub Form_Load()
s(0) = "餐巾纸": s(1) = "再来一次": s(2) = "没有中奖"
Command1.Caption = "开始"
End Sub
Private Sub Timer1_Timer()
i = i + 1: If i = 4 Then i = 1
Label1 = s(i - 1)
If Timer1.Interval = 0 Then
If Label1 "再来一次" Then
MsgBox ("你抽中的结果是" Label1)
Unload Me: Form1.Show
End If
End If
End Sub
vb.net 小程序问题
就是判断矩阵的关系是否传递的?如果满足:d(i,j)=d(j,k)=d(i,k)=1,该矩阵是传递的,否则非传递的.
vb.net的小程序
你要做一个考试系统？？这可不是小程序，不过如果是超精简的话，我倒可以写个思路给你。
在form添加一个label 和四个command1(组成一个控件组修改index属性，按顺序设置为ABCD)和一个command2(可要可不要，这个是作为跳过用的)
定义全局变量 questions() as string,questionid as integer，answers() as string
在form_load中，将问题和答案读入questions()和answers()中，然后将第一个问题显示在label中，设置questionid=1
之后在command1_click(index as integer)中用select语句根据questionid将答案和回答比较，然后显示下一题，同时更改questionid。。。大概就这样
command2_Click()就直接显示下一题和更改questionid
问题结束后就OK了，之后要加什么可以自己加上去~
VBNET编写抽奖软件程序
先把所有电话名单放在一个List泛型集合中，取出一个就Remove掉一个，这样就不会重复了。
几等奖几个按照你的需求来循环即可。
给文本框添加内容：TextBox1.Text = 字符串
换行用vbCrLf常量表示。
详细的可以私信
vb.net的一个小程序
这个应该很简单啊，我没学过VB.net，但以前学过点VB，不知道两者差别大不大。以下为VB代码，没测试，供参考。
一个按钮，一个列表框，（楼主说要文本框显示结果，但VB中用文本框存储变化的文本很不方便，因此用列表框逐列显示）
代码全部在按钮过程中
z = 0: f = 0 ’正反统计的变量
For i = 1 To 10
Randomize ’初始化随机发生器
x = Int(Rnd(1) + 0.5) ‘得到0或者1的随机数
If x = 0 Then
List1.AddItem "正"
z = z + 1
Else
List1.AddItem "反"
f = f + 1
End If
Next i
结果会以文字形式逐行显示在列表框中，可利用z,f值输出正反次数。
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)
{
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.net抽奖小程序 用vb编写一个抽奖程序
网站URL：http://6mz.cn/article/hhjied.html