Question

vb怎么制作一个36选7的摇奖机

Answer 1

'一个label1标签, 一个timer1时间控件, 一个command1按钮
Dim a(36) As Integer
Dim total

Private Sub Command1_Click()
If Command1.Caption = "开始摇奖" Then
Command1.Caption = "停止"
Timer1.Enabled = True
Else
Command1.Caption = "开始摇奖"
Timer1.Enabled = False
total = total + 1
Print "第" & total & "个数是：" & Label1.Caption
a(total) = Label1.Caption
End If
End Sub

Private Sub Timer1_Timer()
Randomize
Do
k = Int(Rnd * 36) + 1
flag = True
For i = 1 To total
If k = a(i) Then flag = False: Exit For
Next i
Loop Until flag
Label1.Caption = k
End Sub

Answer 2

吉利帝豪gl保养灯复位按钮位置在哪里呢？答案是在仪表盘里程清零设置按钮。当然复位不是简单的按，而是有方法的。按住小里程复位键不松手，插入车钥匙旋至仪表灯亮后~松手~保养灯灭。仪表盘上有个按钮，是调里程用的，怠速状态下按住这个按钮2-3秒。保养提示关闭，那么保养灯复位就完成啦。嫌操作麻烦的话，顺路的话就去4S店吧。灯亮着影响也不大，看着心里难受就去弄弄吧。 吉利帝豪gl保养灯复位方法跟消除的方法是类似的。 方法一 ：保养灯归零方法是使用通用专用诊断工具TECH2进行归零。方法二： 利用仪表板右侧按钮进行手动归零。具体步骤如下：(1)关闭点火开关。(2)同时按住两个箭头按钮，然后接通点火开关。(3)约3s后松开两个箭头按钮。(4)出现保养菜单，询问是否归零。(5)按住SET(归零)按钮3s以上。(6)按MODE(模式)按钮。(7)关闭点火开关，完成归零。 转自：车主指南