在手机上看湖北福利彩票开奖公告的网站

如果你是查询双色球,3D和七乐彩这三种,可以用手机进>

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

以上就是关于在手机上看湖北福利彩票开奖公告的网站全部的内容，包括:在手机上看湖北福利彩票开奖公告的网站、模拟双色球开奖的程序、如何用vb创建一个彩票兑奖程序 急！！！！！！！！！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！