打开VB，新建标准EXE工程，如下图

调整窗口大小，把backcolor属性调整为&H00FFFF00&，然后把form1窗口编辑成如下图的样子。

（注意：label控件的autosize属性要设为true，密码text输入框的passwordchar属性为*）

接着，添加一个窗口，把窗口布置成如下图：

像刚才那样，在添加一个窗口，把窗口布置成如下图：

外观布置完毕，开始编写代码：

form1各控件代码：

Private Sub Command1_Click()
If Text1 = "admin" And Text2 = "skadmin" Then
Form1.Hide
Form2.Show
Else
Form1.Hide
Form3.Show
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

Private Sub Command3_Click()
End
End Sub
form2各控件代码：

Private Sub Command1_Click()
End
End Sub

form3各控件代码：
Private Sub Command1_Click()
Form3.Hide
Form1.Show
Form1.Text1 = ""
Form1.Text2 = ""
End Sub
整个程序就编写好了，按F5键运行吧！

工具/原料

Private Sub Command1_Click()

If Text1 = "aaa" And Text2 = "abc123" Then

Form1.Hide

Form2.Show

Else

Form1.Hide

Form3.Show

End If

End Sub

• 7

      在form1窗体里，双击“重新输入”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

  Private Sub Command2_Click()

  Text1 = ""

  Text2 = ""

  End Sub
• 8

  在form2窗体里，双击“返回”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

  Private Sub Command1_Click()

  Form2.Hide

  Form1.Show

  Form1.Text1 = ""

  Form1.Text2 = ""

  End Sub
• 9

  在form3窗体里，双击“重新输入”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

  Private Sub Command1_Click()

  Form3.Hide

  Form1.Show

  Form1.Text1 = ""

  Form1.Text2 = ""

  End Sub
• 10

  至此，我们完成了编程，调试一下以检验程序的正确性。一种可以右键“文件”，再点击“调试”，另一种是直接点击调试按钮。
• 11

  调试正确后可以生成工程了。点击“文件”，在下拉选项中选择“生成工程1.EXE”项即可生成可执行的exe文件，如果该项是灰色的，则先保存，，关闭VB，再打开VB。如果还是灰色的，则可能是安装VB6.0软件被破坏了，建议重装VB6.0。

首先，打开VB6.0精简版，新建标准EXE工程。

然后建立1个label控件，label1caption属性为“双色球选号器”，在label1下面画一个line，borderwidth属性为5，再建立8个label，Label2~label8是存放号码的控件。

然后在label控件下面画一个comboBox，用了存放抽到的号码。

再建立两个commonandbutton控件，caption属性分别为开始选号、退出。

把界面设计好，如下图：

界面设计完毕，下面编写代码：

声明：Option Explicit

代码：Private Sub Command1_Click()    '开始选号
   Dim q As Integer
   Dim a As Integer
   Dim b As Integer
   Dim c As Integer
   Dim d As Integer
   Dim e As Integer
   Dim f As Integer
   Dim g As Integer
  
   For q = 1 To 7
      Select Case q
         Case 1
             Randomize (Time)
             a = Int(Rnd * 33 + 1)
             Label2.Caption = a
         
         Case 2
            Do
               Randomize (Time)
               b = Int(Rnd * 33 + 1)
            Loop Until b <> Label2.Caption
            Label3.Caption = b
            
          Case 3
            Do
               Randomize (Time)
               c = Int(Rnd * 33 + 1)
            Loop Until c <> Label2.Caption And c <> Label3.Caption
            Label4.Caption = c
            
           Case 4
            Do
               Randomize (Time)
               d = Int(Rnd * 33 + 1)
            Loop Until d <> Label2.Caption And d <> Label3.Caption And d <> Label4.Caption
            Label5.Caption = d
  
           Case 5
            Do
               Randomize (Time)
               e = Int(Rnd * 33 + 1)
            Loop Until e <> Label2.Caption And e <> Label3.Caption And e <> Label4.Caption And e <> Label5.Caption
            Label6.Caption = e
  
           Case 6
            Do
               Randomize (Time)
               f = Int(Rnd * 33 + 1)
            Loop Until f <> Label2.Caption And f <> Label3.Caption And f <> Label4.Caption And f <> Label5.Caption And f <> Label6.Caption
            Label7.Caption = f
  
  
           Case 7
              Randomize (Time)
              g = Int(Rnd * 16 + 1)
              Label8.Caption = g
           Case Else
        End Select
     Next q
        
         Dim w  As Variant      '在组合框内添加选出的号码
            w = a & "  " & b & "  " & c & "  " & d & "  " & e & "  " & f & "--" & g
         Combo1.Text = w
         Combo1.AddItem w, 0
         
        
  
  
End Sub

Private Sub Command2_Click()    '退出
End
End Sub
程序做好啦，快来试试吧！