vb.net彩票代码 vue彩票源码

vb编写彩票选号器的问题，请高手进来

Private Sub Command1_Click()

Dim i, a(34), b(7)

Randomize: Cls

For i = 1 To 7

b(i) = Int(Rnd * 34 + 1)

If a(b(i)) Then i = i - 1 Else a(b(i)) = 1

Next

Print "34 选 7组 福利彩票系统,中奖号码:"

For i = 1 To 7

Print b(i)

Next

End Sub

请不要发违规广告vb.net彩票代码，是违法行为

相关问答

Q1: 求大神帮我解释一段vb代码，感激不尽，是彩票选号小助手的

Private Sub command1_Click()

N = -1

For i = 0 To 4

N = N + 1

If option1(i).Value = True Then Exit For

End If

Next i

Dim a(1 To 7) As Integer

For i = 0 To N

For j = 1 To 7

Randomizea(j) = Int(Rnd * 35 + 1)'随机生成号码

Next j

For k = 1 To 7

For m = k + 1 To 7

If a(k) = a(m) Then v = Int(Rnd * 35 + 1)

Do While v = a(1) Or v = a(2) Or v = a(3) Or v = a(4) Or v = a(5) Or v = a(6) Or v = a(7)

v = Int(Rnd * 35 + 1)

Loop 

a(k) = v'发现重复vb.net彩票代码的号码vb.net彩票代码，重新生成

End If

Next m

Next k

For k = 1 To 7

For m = k + 1 To 7

If a(k)  a(m) Then

X = a(k)

a(k) = a(m)

a(m) = X

End If

Next m

Next k

Text1(i) = Format(a(1), "00")

Text2(i) = Format(a(2), "00")

Text3(i) = Format(a(3), "00")

Text4(i) = Format(a(4), "00")

Text5(i) = Format(a(5), "00")

Text6(i) = Format(a(6), "00")

Text7(i) = Format(a(7), "00")

Next i'设置输出格式

End Sub

Q2: 用VB写个彩票选号程序,求思路!

把下面的代码复制到记事本中，改名为form1.frm，再用vb6打开编译即可使用。希望你能喜欢，不足之处可以提出来。

VERSION 5.00

Begin VB.Form Form1

BorderStyle = 5 'Sizable ToolWindow

Caption = "彩票选号程序"

ClientHeight = 3855

ClientLeft = 60

ClientTop = 330

ClientWidth = 6600

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 3855

ScaleWidth = 6600

ShowInTaskbar = 0 'False

StartUpPosition = 3 '窗口缺省

Begin VB.Frame Frame4

Caption = "号码框"

Height = 2415

Left = 3600

TabIndex = 11

Top = 1320

Width = 2895

Begin VB.CommandButton Command6

Caption = "输入号码"

Height = 255

Left = 1560

TabIndex = 19

Top = 720

Width = 1095

End

Begin VB.CommandButton Command5

Caption = "试试运气"

Height = 495

Left = 120

TabIndex = 16

Top = 1440

Width = 2535

End

Begin VB.TextBox xx

Height = 270

Left = 1560

TabIndex = 14

Top = 1080

Width = 1095

End

Begin VB.TextBox sx

Height = 270

Left = 120

TabIndex = 13

Top = 1080

Width = 1095

End

Begin VB.Label Label5

Caption = "范围："

Height = 255

Left = 120

TabIndex = 18

Top = 720

Width = 615

End

Begin VB.Label Label4

Caption = "机选号码："

Height = 255

Left = 120

TabIndex = 17

Top = 2040

Width = 2535

End

Begin VB.Label Label3

Caption = "~"

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 135

Left = 1320

TabIndex = 15

Top = 1200

Width = 255

End

Begin VB.Label Label2

Caption = "我的号码："

Height = 255

Left = 120

TabIndex = 12

Top = 360

Width = 2655

End

End

Begin VB.Frame Frame3

Caption = "统计框"

Height = 975

Left = 3600

TabIndex = 8

Top = 240

Width = 2895

Begin VB.CommandButton Command3

Caption = "点我统计！"

Height = 615

Left = 120

TabIndex = 9

Top = 240

Width = 2655

End

End

Begin VB.Frame Frame2

Caption = "查找框"

Height = 2415

Left = 120

TabIndex = 3

Top = 1320

Width = 3375

Begin VB.CommandButton Command4

Caption = "清除"

Height = 255

Left = 2400

TabIndex = 10

Top = 2040

Width = 855

End

Begin VB.CommandButton Command2

Caption = "查找"

Height = 255

Left = 2520

TabIndex = 7

Top = 240

Width = 735

End

Begin VB.ListBox List1

Height = 1320

ItemData = "Form1.frx":0000

Left = 120

List = "Form1.frx":0002

TabIndex = 5

Top = 600

Width = 3135

End

Begin VB.TextBox Text1

Height = 270

Left = 120

TabIndex = 4

Top = 240

Width = 2295

End

Begin VB.Label Label1

Caption = "总共：0项"

Height = 255

Left = 120

TabIndex = 6

Top = 2040

Width = 2175

End

End

Begin VB.Frame Frame1

Caption = "输入框"

Height = 1095

Left = 120

TabIndex = 0

Top = 120

Width = 3375

Begin VB.TextBox Text2

Height = 270

Left = 120

TabIndex = 2

Top = 240

Width = 3135

End

Begin VB.CommandButton Command1

Caption = "输入并确定"

Height = 375

Left = 120

TabIndex = 1

Top = 600

Width = 3135

End

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim N As Long

Dim NR As String

Dim ZS As Long

Dim CS As Long

Dim mynum As Long

Private Sub Command1_Click()

Open "C:\1.TXT" For Append As #1

Print #1, Val(Text2.Text)

Close #1

Label2.Caption = "我的号码：" Val(Text2.Text)

mynum = Val(Text2.Text)

Text2.Text = ""

End Sub

Private Sub Command2_Click()

CS = CS + 1

Open "C:\1.TXT" For Input As #1

Do While Not EOF(1)

Line Input #1, NR

NR = Trim(NR)

If NR = Text1.Text Then List1.AddItem NR: N = N + 1

Loop

Close #1

List1.AddItem "------------第" CS "次------------"

Label1.Caption = "总共：" N "项"

N = 0

NR = ""

End Sub

Private Sub Command3_Click()

Open "C:\1.TXT" For Input As #1

Do While Not EOF(1)

Line Input #1, NR

NR = Trim(NR)

If NR = NR Then ZS = ZS + 1

Loop

Close #1

MsgBox "共有" ZS "项"

ZS = 0

End Sub

Private Sub Command4_Click()

List1.Clear

End Sub

Private Sub Command5_Click()

Label4.Caption = "机选号码：" Int(Rnd * Val(sx.Text)) + Val(xx.Text)

End Sub

Private Sub Command6_Click()

mynum = InputBox("输入号码：")

Label2.Caption = "我的号码：" mynum

End Sub

Private Sub Form_Load()

N = 0

End Sub

Q3: 下面是一个“彩票选号小助手”的Visual Basic（VB）的程序代码。下面是设计界面，求高人逐字逐句解释代码

Private Sub cmdStart_Click()

Dim i As Integer‘定义i为整形变量

For i = 0 To 4’i从0 到 4 进行5次循环

If option1(i).Value Then‘如果选中了第i+1注（单选框第一到第五注是option1（0） 到option1（4））

Exit For’如果满足，退出for循环

End If‘结束判断

Next’for循环的结束语句

base = i * 7‘上面利用一个循环把你选中的第几注赋值给了i 此时把i*7赋值给变量base cmdStop.Enabled = True’把停职按钮的可用性变为true 即让停止按钮可用

cmdStart.Enabled = False‘让开始按钮不可用

cmdAuto.Enabled = False‘让自动按钮不可用

cmdStop.SetFocus’让停止按钮获得焦点（就是那一圈围着按钮的特别细的虚线）

start = True’令变量start的逻辑属性为真

Do While start‘这是一个do loop循环 如果start为真就一直循环

Randomize Timer’让随机数每次都不一样，

i = Rnd() * 6‘让i取1到6的随机数

lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))

'这里lblNum(i + base).Caption 指的是第几个幸运号码框，base是之前判定了的你选的第几注乘以了6（每行6个），也就是从第几行开始，i是随机的，后面的代码trim是去掉两边的空格，str是把内容改为字符串格式，int是取整，后面那个没看太懂，个人觉得这块有错，

DoEvents‘转让控制权，以便让操作系统处理其它的事件

If auto Then’如果auto为真（就是点了自动按钮）

If Timer - sTime sDiff Then‘这缺少相应的在通用声明区的定义语句，看不太懂

Exit Do’跳出do loop循环

End If‘结束判断

End If’结束判断

Loop

End Sub

Private Sub cmdStop_Click()’停止按钮的单击事件

cmdStop.Enabled = False‘停止按钮不可用

i = 0’让i=0

Do While True‘do loop循环，这个循环判定条件一直是真，通过内部的结束循环语句来结束循环

lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))’同之前的

i = i + 1‘i从0开始依次累加

If i = 7 Then

Exit Do’如果i=7 结束循环

End If

p = Rnd / 5‘在0 到0.2中随机取值

N = Timer’n为系统计时器数值

Do While Timer - N p‘

Randomize Timer

r = Rnd() * (6 - i) + i’让r在i到6-i间随机取值

lblNum(r + base).Caption = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))

DoEvents‘转让控制权，以便让操作系统处理其它的事件

Loop

Loop

start = False‘start属性变为false

cmdStart.Enabled = True’开始按钮可用

cmdAuto.Enabled = True‘自动按钮可用

cmdStart.SetFocus‘开始按钮得到焦点

End Sub

Private Sub Form_Load()’窗体加载事件

cmdStop.Enabled = False‘停止按钮不可用

For i = 0 To 34

lblNum(i).Caption = ""

Next’把34个数值全清空

End Sub

Private Sub lblNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)‘lblNum的鼠标按下事件

Dim r As Integer

If (Not start) And (Not auto) Then’如果没开始，没点自动

r = Index Mod 7‘index意思是第几个，从0开始，比如第一行的第二个index就是1，第二行的第一个index就是7. mod 7 就是对7 取余取出来的数值表示他是这一行的第几个。

manu = True’令menu为真

Do While manu

lblNum(Index) = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))

DoEvents‘转让控制权，以便让操作系统处理其它的事件

Loop

End If

End Sub

Private Sub lblNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

manu = False‘鼠标松开时，menu为假，停止上面鼠标按下事件当中的循环。

End Sub

就这些了，望采纳

Q4: vb.net数据库查询

select * from 表 where

(case when 条件 then 1 else 0 end+

case when 条件 then 1 else 0 end+

case when 条件 then 1 else 0 end+

case when 条件 then 1 else 0 end+

case when 条件 then 1 else 0 end) BETWEEN 2 and 5

vb.net彩票代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vue彩票源码、vb.net彩票代码的信息别忘了在本站进行查找喔。