用VB编写双色球程序，要求是以指定数字为尾的数字中随机选择该怎么编写程序

建立两个Command1和2

Dim RedBalls, BullBalls

Private Sub Command1_Click()

'Label1Caption = ""

rarr = GetRndNotRepeat(0, UBound(RedBalls), 6)

barr = GetRndNotRepeat(0, UBound(BullBalls), 1)

For i = 1 To 6

t = Now

Do

DoEvents

Loop While DateDiff("s", t, Now) < 15

FillStyle = 0

FillColor = vbRed

Form1Circle (500 + i 500, 1000), 200, vbRed

CurrentX = 350 + i 500

CurrentY = 840

Print Format(RedBalls(rarr(i)), "00")

Next i

t = Now

Do

DoEvents

Loop While DateDiff("s", t, Now) < 2

i = 7

FillStyle = 0

FillColor = vbBlue

Form1Circle (500 + i 500, 1000), 200, vbBlue

CurrentX = 350 + i 500

CurrentY = 840

Print Format(BullBalls(barr(1)), "00")

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

RedBalls = Array(2, 3, 4, 7, 8, 9, 12, 13, 14, 17, 18, 19, 22, 23, 24, 27, 28, 29, 32, 33)

BullBalls = Array(3, 4, 5, 9, 13, 14, 15)

'Label1Caption = ""

Command1Caption = "开始"

Command2Caption = "退出"

Form1FontSize = 15

Form1FontName = "Arial"

Form1ForeColor = &HFFFFFF

End Sub

Public Function GetRndNotRepeat(ByVal NumMin As Integer, ByVal NumMax As Integer, ByVal n As Integer)

Dim arr() As Integer

If n > NumMax - NumMin + 1 Then

ReDim arr(0)

arr(0) = 0

Else

ReDim arr(n)

Dim b() As Byte

Dim m As Integer

m = Int((NumMax - NumMin) / 8)

ReDim b(m)

Dim x As Integer, y As Integer

Dim z As Byte

Randomize

arr(0) = 1

For i = 1 To n

Do

x = Int(Rnd (NumMax - NumMin + 1)) + NumMin

y = x - NumMin

z = 2 ^ (y Mod 8)

y = y \ 8

Loop While b(y) And z

b(y) = b(y) Or z

arr(i) = x

Next i

End If

GetRndNotRepeat = arr

End Function

已经运行过。

红球中6个数,蓝球中1个数时是一等奖 红球中6个数,蓝球不要中时是二等奖 红红球4个数,蓝球要中1个数

或者红球中5个,蓝球不要中时是四等球中5个数,蓝球中1红球中4个数,蓝球不要中

或者红球中3个，蓝球中1个时是五等奖

红球中2个数,蓝球中1个数

或红球中1个数，蓝球中1个数

或者蓝球中1个数时是六等奖

要是都没中就没奖个数时是三等

#include <stdioh>

#include <stdlibh>

#include <timeh>

void main()

{int number,i;

srand((unsigned)time(NULL));

for(i=0;i<6;i++)

{

printf("红:");

number=rand()%33+1;

printf("%d ",number);

printf("\n");

}

printf("蓝");

number=rand()%16+1;

printf("%d ",number);

printf("\n");

}

带身份z、**原件和yhk直接到省福彩中心领取！

领取时，银行会当场为你存入你的卡内，如果你没有指定银行的卡，银行会当场为你开户，办卡！

领取时，需要扣除20%的个人偶然所得税！

单张**中奖金额在1万元（不含）以下的，彩民可在**站兑奖；单张**中奖金额在1万元（含）以上的，应到福彩中心兑奖窗口兑奖；单张**中奖金额在50万元（含）以上的，在福彩中心办理兑奖手续后，需到省福彩中心兑奖。中奖彩民应持中奖**和本人有效身份z件，于开奖之日起60个自然日内兑奖，逾期不兑奖的视为弃奖。

一等奖中奖者，需持中奖**和本人有效身份z明，在兑奖期限内到各地省中心验证、登记和兑奖。其他奖级的兑奖办法由省中心规定并公布。按国家有关规定，单注奖金额超过一万元者，须缴纳个人偶然所得税。

以上就是关于用VB编写双色球程序，要求是以指定数字为尾的数字中随机选择该怎么编写程序全部的内容，包括:用VB编写双色球程序，要求是以指定数字为尾的数字中随机选择该怎么编写程序、双色球中奖问题Java编程、c程序 双色球随机数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！