天天酷跑百度地图积分抽奖奖时，自己可以通过用手按摇奖机，终止摇奖机摇动，自己选吗

来源：蜘蛛抓取(WebSpider) 时间：2014-11-29 11:32 标签： 百度地图积分抽奖
谁能帮我用VB做一个20选8的模拟摇奖机，要求代码直接可以复制，给你50分。_百度知道
谁能帮我用VB做一个20选8的模拟摇奖机，要求代码直接可以复制，给你50分。
谢谢各位高手了。谁叫我是菜鸟
提问者采纳
Private Sub Command1_Click()
Randomize Timer
Dim x(1 To 20) As Integer
Dim i As Integer
For i = 1 To 20
Dim n As Integer, t As Integer
For i = 1 To 20
n = Int(Rnd() * 20) + 1
x(i) = x(n)
For i = 1 To 8
Print x(i);
Next iEnd Sub'在窗体上添加一个按钮，然后粘贴代码，单击可以看效果，不明白的请百度hi我
提问者评价
感谢党，感谢国家，感谢CCTV，感谢你的家人，感谢你。虽然最多只中4个，还是给你了。
其他类似问题
按默认排序
其他3条回答
把下面的代码复制到记事本里，保存后，将扩展名改为frm就可以直接用VB打开运行。'---------------------以下是代码---------------------VERSION 5.00Begin VB.Form Form1
BorderStyle
'Fixed Dialog
&模拟摇奖机&
ClientHeight
ClientLeft
ClientWidth
'False
'False
ScaleHeight
ScaleWidth
ShowInTaskbar
'False
StartUpPosition =
'窗口缺省
Begin VB.Timer tmrAnimal
'False
mandButton cmdStart
&开始摇奖&
Begin VB.Label lblTitle
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
Begin VB.Label lblSelected
'Center
&H00C0FFFF&
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
EndEndAttribute VB_Name = &Form1&Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Explicit'本程序可以任意几选几。Private Const MAX_NUM As Long = 20 '选的最大数Private Const SEL_NUM As Long = 8
'选的个数Private ArrayNum(MAX_NUM - 1) As IntegerPrivate CurrentIdx As IntegerPrivate Function SelectOne() As Integer
Dim intRnd As Integer
Dim intTemp As Integer
intRnd = Int(Rnd() * (MAX_NUM - CurrentIdx)) '坠机产生数组下标
intTemp = ArrayNum(MAX_NUM - CurrentIdx - 1) '把被选中的数组与最后面的数组进行交换
ArrayNum(MAX_NUM - CurrentIdx - 1) = ArrayNum(intRnd)
ArrayNum(intRnd) = intTemp
CurrentIdx = CurrentIdx + 1
SelectOne = ArrayNum(MAX_NUM - CurrentIdx)End FunctionPrivate Sub cmdStart_Click()
cmdStart.Enabled = False
tmrAnimal.Enabled = TrueEnd SubPrivate Sub Form_Load()
Dim i As Integer
For i = 1 To SEL_NUM - 1
Load lblSelected(i)
lblSelected(i).Visible = True
lblSelected(i).Left = lblSelected(0).Left + i * (lblSelected(i).Width + 120)
lblTitle.Caption = &本次& & MAX_NUM & &选& & SEL_NUM & &中奖号码是：&End SubPrivate Sub tmrAnimal_Timer()
If CurrentIdx = SEL_NUM Then
tmrAnimal.Enabled = False
cmdStart.Enabled = True
lblSelected(CurrentIdx - 1).Caption = Format(SelectOne, &00&)
End IfEnd SubPrivate Sub ResetNum()
Dim i As Integer
For i = 1 To MAX_NUM
ArrayNum(i - 1) = i
For i = 0 To lblSelected.UBound
lblSelected(i).Caption = &&
CurrentIdx = 0End Sub'---------------------代码结束---------------------
Private Sub Command1_Click()For i = 1 To 8Print Int((20 * Rnd) + 1)NextEnd Sub
'我来个最简单的吧Private Sub Command1_Click()Dim a(0 To 7) As VariantFor i = 0 To 7a(i) = a(i) & Int((20 * Rnd) + 1)b = b & & & & a(i)NextPrint bEnd Sub
摇奖机的相关知识
您可能关注的推广回答者：回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 百度地图积分抽奖 的文章

 

随机推荐