这是本人设计的程式~有兴趣可以下载看看~1~49码的...本人最高中过4码
此程式下载点
解压缩密码：痞子版权着作请勿非正常管道取得
Dim a(6), b(6)
Private Sub Command1_Click()
t = 1
For i = 1 To 6
Text1(i) = " "
Text2(i) = " "
Text1(i).BackColor = RGB(255, 255, 255)
Text2(i).BackColor = RGB(255, 255, 255)
Next i
For i = 1 To 6
333:
a(i) = Val(InputBox("请输入1~49数字:"))
If t > 1 Then
For j = 1 To t
If a(i) = Text1(j) Then
MsgBox " 警告!" + Chr(13) +"你输入数字有重复，请重新输入!", 16,"警告"
Text1(i) = " "
GoTo 333:
End If
Next j
End If
If a(i) < 1 Or a(i) > 49 Then
MsgBox " 警告!" + Chr(13) + "你输入数字 ..
访客只能看到部份内容，免费 加入会员 或由脸书 Google 
可以看到全部内容
