我知道你的意思：是不是每组数字来回滚动，随即组合。
停止时，组合成一组数字，并以这组数字作为中奖号码。
建立一个按钮：command1
private
sub
command1_click()
dim
a
as
integer
dim
b
as
integer
dim
c
as
integer
'a
b
c
为随机变量
dim
abc
as
string
'abc为组合号码
a
=
int(rnd
*
9)
+
1
b
=
int(rnd
*
9)
+
1
c
=
int(rnd
*
9)
+
1
abc=a
&
b
&
c
'组合中奖号码
'假设3到10等奖为003,004......,010
if
a
=
001
then
msgbox
"你中了1等奖!",
vbokonly,
"系统提示"
end
if
if
a
=
002
then
msgbox
"你中了2等奖!",
vbokonly,
"系统提示"
end
if
......
......
if
a
=
010
then
msgbox
"你中了10等奖!",
vbokonly,
"系统提示"
end
if
end
sub
ok...