资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

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://www.cdkjz.cn/article/hhjied.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220