做一个手机号码抽奖的程序，要抽中指定手机号码的

发布网友 发布时间：2022-04-20 12:25

我来回答

共2个回答

热心网友 时间：2023-07-15 21:57

做一个标签，二个按钮，一个定时器控件。以下是代码：

Private Sub Command1_Click()

  Label1.FontSize = 30

  Randomize

  Timer1.Interval = 100

End Sub

Private Sub Command2_Click()

  Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

  Label1.Caption = 13300000000# + Int(Rnd * 700000000)

End Sub

热心网友 时间：2023-07-15 21:57

追答产生随机数
格式：int(rnd*(max-min+1)+min)
若max=10
min=1
因为rnd参数[0,1)的数
rnd(max-min+1)产生[0,10）
rnd(max-min+1)+min产生[1,11）
int(rnd(max-min+1)+min)产生[1,10]的整数

程序代码：
for i=1 to 9
str=str & cstr(int(rnd*10))
next
str="13" & str
大概是这样吧。。。好久没用VB，如果语法有错请见谅