vb6.0怎么制作一个抽奖小程序 vb6.0抽奖器的制作方法

商场搞活动想要制作一个抽奖程序，今天我们就来看看使用vb60制作抽奖小程序的教程。

1、首先启动vb60，执行 文件-新建命令 ，d出新建工程对话框，在该对话框中选择 标准的exe 后点击打开按钮， 进入vb程序主界面。

2、在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽， 调节窗体的大小 ，直至自己满意为止。

3、选择窗体，在其右边的属性中找到 boderstyle属性 ，设置 属性值为none， 接着再找到 startupposition属性 ，修改属性值为2-屏幕中心，再次修改 backcolor属性 值为淡**。

4、在工具箱里选择frame1，然后在窗体上进行拖拽，大小比窗体小一些，并调整其位置，使其居中，在属性窗口找到 backcolor属性 修改其属性值为粉红色，这样设置看起来就有层次感了。

5、在工具箱里双击标签控件两次，在frame1中显示两个标签控件， 修改lable1的caption属性名称为“幸运抽奖”， 修改label2的caption属性为“0”，同时修改这两个标签控件的backcolor属性为粉色，和 frame 控件保持一致。

6、分别选择 label1和label2 ，修改其font属性，打开字体对话框选择字体为王羲之书法字体，字形为常规，字号为三号，点击确定按钮。

7、选择工具箱里按钮控件，连续双击四次，在frame1上显示四个按钮，调整他们在frame1上的位置，使排列整齐，并依次修改四个按钮的caption属性，属性值依次为“ 号码滚动”、“号码停止”、“号码重置”、“退出程序”。

8、接着选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

9、双击号码滚动控件，进入代码编辑区域，对象选择 command1， 过程选择click事件，在其输入代码为

Timer1Enabled = True

主要作用是触发器开始工作。

10、双击号码停止按钮，输入代码为 Timer1Enabled = False ，起到的作用是触发器停止工作。

11、双击号码重置按钮输入代码 为Label1Caption = "0"， 起到的作用是每次号码滚动后都要重新置0让每次抽奖的起始都是一样的。并双击退出程序按钮输入代码为end。

12、代码timer1的代码区域，输入代码为

Randomize

Label1Caption = "幸运中奖的号码是：" & Int(Rnd 64 + 1)

主要功能是使用随机函数产生不同的随机数值

13、代码编程完成后就可以运行调试了，点击启动标志，进行编译，如果出现错误根据错误提示进行修改，并不断调试直至通过达到预期目的为止。提示出现要求对象说明控件名称有错误，修改过来，提示出现子程序未定义则说明函数不对，即系统不能认识的函数，进行修改。

14、调试无误后，你会看到号码在不停的滚动， 点击号码停止即可停止 ，点击号码重置就会出现号码为0，点击退出程序即可界面消失，这说明已经达到所预期的功能了。

15、执行文件-生成抽奖exe，这样经过编译就生成了可执行文件，这样就可以跨平台 *** 作了，不再依赖原始程序。接 着执行文件-保存命令， 把所有的源文件进行保存即可，以方便以后修改使用。

以上就是vb60中设计抽奖器的教程，希望大家喜欢，请继续关注我们。

 

Private Sub Command1_Click()

If IsNumeric(Text1) And Len(Text1) = 7 Then '判断输入的是否为7位数字

Randomize

a = Format(Int(Rnd  9999999 + 1), "0000000") '生成开奖号码

Label1Caption = "本期开奖号码为：" & a

For i = 1 To 7 '逐位判断是否相同，b为相同个数

If Mid(Text1, i, 1) = Mid(a, i, 1) Then

b = b + 1

End If

Next

If b = 7 Then

Label2Caption = "恭喜你中得一等奖"

ElseIf b = 6 Then

Label2Caption = "恭喜你中得二等奖"

ElseIf b = 5 Then

Label2Caption = "恭喜你中得三等奖"

'以此类推判断是否中奖

Else

Label2Caption = "很遗憾，差一点就中奖了"

End If

Else

MsgBox "请输入一个七位数字"

Exit Sub

End If

End Sub

Dim a(0 To 4) As Integer

Private Sub Command1_Click()

For i = 1 To 30

If i = 30 Then

t = t & i

Else

t = t & i & ","

End If

Next

For i = 0 To 4

j = Split(t, ",")

Randomize

temp = Int(Rnd (UBound(j) + 1) + 0)

Text1(i) = j(temp)

If temp <> UBound(j) Then

t = Replace(t, "," & j(temp) & ",", ",")

Else

t = Replace(t, "," & j(temp) & ",", "")

End If

Next

End Sub

Private Sub Command2_Click()

For i = 1 To 30

If i = 30 Then

t = t & i

Else

t = t & i & ","

End If

Next

For i = 0 To 4

j = Split(t, ",")

Randomize

temp = Int(Rnd (UBound(j) + 1) + 0)

a(i) = j(temp)

If temp <> UBound(j) Then

t = Replace(t, "," & j(temp) & ",", ",")

Else

t = Replace(t, "," & j(temp) & ",", "")

End If

Next

Print "中奖号码为：" & a(0) & vbTab & a(1) & vbTab & a(2) & vbTab & a(3) & vbTab & a(4)

For i = 0 To 4

For k = 0 To 4

If a(i) = Text1(k) Then n = n + 1

Next

Next

If n <> 0 Then

MsgBox "恭喜你中了" & 6 - n & "等奖"

Else

MsgBox "很遗憾，您没中奖"

End If

End Sub

年终奖几个要点：

1、税法规定以发放时间为准，2019年1月起发放的年终奖按财税〔2018〕164号计算。

2、全年一次性奖金优惠算法2021年12月31日前有效。

3、自2022年1月1日起，居民个人取得全年一次性奖金，应并入当年综合所得计算缴纳个人所得税。

日前，北京市财政局、国家税务总局北京市税务局转发《财政部 税务总局关于个人所得税法修改后有关优惠政策衔接问题的通知》。

根据这一通知，居民个人取得全年一次性奖金，在2021年12月31日前取得的，不并入当年综合所得。

具体计算公式为：应纳税额＝全年一次性奖金收入×适用税率－速算扣除数。

但从2022年1月1日起，居民个人取得全年一次性奖金，将并入当年综合所得计算缴纳个人所得税。

22019-2021年终奖两种算法

一、按全年一次性奖金计算

步骤：

第一步：无论当月工资是多少，先将全年一次性奖金除以12得到商数，用这个商数作为应纳税所得额先在税率表中找到对应的税率和速算扣除数。

第二步：应纳税额＝全年一次性奖金收入×适用税率－速算扣除数

举例：

小李是北京和税数据公司的员工，2019年1月发放年终奖24000元。

第一步：24000÷12=2000，对应税率表的税率是3%，速算扣除数是0。

第二步：240003%-0=720元。

步骤：

第一步：假设1月发放年终奖，年终奖+1月工资作为1月工资收入计算个人所得税：

（年终奖+1月应发工资-1月免税收入-（起征点）50001-1月个人负担三险一金-1月专项附加扣除-1月其他扣除）

第二步：按累计预扣预缴算法计算工资的个人所得税。

举例：

小李是北京和税数据公司的员工，2019年1月发放年终奖24000元，1月工资3000元。个人负担的三险一金500元，专项附加扣除2000元。

第一步：应纳税所得额=24000+3000-50001-500-2000=19500元，对应税率表的税率是3%，速算扣除数是0。

第二步：195003%-0=585元。

Private Sub Command1_Click()

lap1:

n = InputBox("请输入兑奖号码（七星彩）:")

If Len(n) <> 7 Or Not IsNumeric(n) Then

MsgBox "请输入正确兑奖号码"

GoTo lap1:

End If

s = "": ms = ""

k = 0: Max = 0

For i = 1 To 7

If Mid(Text1Text, i, 1) = Mid(CStr(n), i, 1) Then

k = k + 1

s = s + Mid(CStr(n), i, 1)

If k > Max Then

Max = k

ms = s

End If

Else

s = ""

k = 0

End If

Next

If Max < 2 Then st = "没有中奖"

If Max = 2 Then st = "中六等奖"

If Max = 3 Then st = "中五等奖"

If Max = 4 Then st = "中四等奖"

If Max = 5 Then st = "中三等奖"

If Max = 6 Then st = "中二等奖"

If Max = 7 Then st = "恭喜你中一等奖"

MsgBox st

End Sub

Private Sub Form_Load()

Randomize

Text1Text = ""

For i = 1 To 7

Text1Text = Text1Text & Int(Rnd 10) '产生七星彩中奖号码

Next

End Sub

只要在窗体中做二个命令按钮、一个标签和一个定时器对象，复制以下代码，就可以运行了：

Private Sub Command1_Click()

If Command1Caption = "开始" Then

Command1Caption = "暂停"

Timer1Enabled = True

Else

Command1Caption = "开始"

Timer1Enabled = False

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Label1Caption = ""

Label1FontSize = 50

Timer1Interval = 50

Timer1Enabled = False

Command1Caption = "开始"

Command2Caption = "结束"

End Sub

Private Sub Timer1_Timer()

Label1Caption = Int(Rnd 50) + 1

End Sub

以上就是关于vb6.0怎么制作一个抽奖小程序 vb6.0抽奖器的制作方法全部的内容，包括:vb6.0怎么制作一个抽奖小程序 vb6.0抽奖器的制作方法、如何用vb创建一个彩票兑奖程序 急！！！！！！！！！、vb彩票摇奖 编写一个简易的30选五彩票摇奖程序。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！