我又问问题了，实在是看不懂了。。希望大家详细解释一下下面代码的意思。。

Question

Private k, j As Integer '声明变量 k j为需要设置随机数的文本框 上下限
Private Declare Function timeGetTime Lib "winmm.dll" () As Long 'timeGetTime api申明Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = FalseEnd SubPrivate Sub Command2_Click()
Dim Savetime As Double
Dim tempk As Integer
tempk = k
For k = k To j
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + 150 '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件
Wend
Next k
k = tempk
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
End SubPrivate Sub Command3_Click()
Dim i As Integer
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Timer1.Enabled = True
For i = 0 To 4
k = i * 7
j = i * 7 + 6
Option1(i).Value = True
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + 500 '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件
Wend
Next i
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Timer1.Enabled = False
End SubPrivate Sub Command4_Click()
Form2.Hide
Form1.Show
End SubPrivate Sub Form_Load()
k = 0
j = 6
End SubPrivate Sub Option1_Click(Index As Integer)
If Timer1.Enabled = False Then
k = Index * 7
j = Index * 7 + 6
End If
End SubPrivate Sub Timer1_Timer()
Dim i As Integer
For i = k To j
 If i Mod 7 = 6 Then
  A = Int(Rnd * 5)
Else
A = Int(Rnd * 10)
End If
Text1(i).Text = A
Next i
End Sub
 
Private Sub Command1_Click()
For i = 0 To 34
A = Int(Rnd * 35) + 1
Text1(i).Text = A
Next i
End SubPrivate Sub Command2_Click()
For i = 0 To 34
Text1(i).Text = ""
Next i
End SubPrivate Sub Command3_Click()Form3.Hide
Form1.Show
End SubPrivate Sub Option1_Click(Index As Integer)
For i = 0 To 34
Text1(i).Text = ""
Next i
For i = 0 To (Index * 7 + 6)
Text1(i).Visible = True
Next i
For i = (Index * 7 + 7) To 34
Text1(i).Visible = False
Next i
End Sub

Answer 1

像这种Command1 Command2命名的程序，要搞清楚是做什么的，最好把界面窗体打开来看看。觉得是个游戏。

Answer 2

第一组command1，2，3，4分别表示体育彩票的开始，停止，自动，返回。
第二组command1,2,3表示福利彩票的开始，清屏，返回。
具体要求如下：在第一个窗口中，每一注可单独投注，也可一次产生5注号码。单击“开始”按钮，则单选框所对应的那一注的各个号码开始滚动，当单击“停止”按钮后，左边窗口中的号码从左到右依次停止滚动，产生一注号码，其中最右边的特别号码只能是0～4中的一个
关键是自动那不会弄。。

Answer 3

自动这个地方可以利用vb生成随机数
例如 在1到35范围内取6个不重复的随机数，代码如下Dim a() As String, s As String, i As Integer, n As Integer
Randomize
For i = 1 To 6
   Do
      n = Int(Rnd * 35) + 1
   Loop While InStr(" " & s, " " & n & " ") > 0
   s = s & n & " "
Next
a = Split(trim(s), " ")
a()数组中就包含了所要的随机数

Answer 4

http://download.csdn.net/detail/pirates_fish/3600864