首先在Form中加入壹個CommandButtion控件，在Command1上點擊鼠標右鍵，選擇復制，在窗體上點擊鼠標右鍵，選擇粘貼在窗體上粘貼出九個Command1,此時出現對話框問妳要不要創建控件數組，在此選擇是。然後再加入兩個CommandButtion控件，壹個ListBox、壹個Frame、壹個Label 。設置窗體的Caption屬性為“猜壹猜”、BorderStyle為1－Fixed Single、控件數組的Captin分別為0、1、2、3、4、5、6、7、8、9，Command2的Caption為“確定"，Command3的Caption為“取消"，Frame1的Caption為“提示："，Label1的Cpation為“0A0B"。然後選擇菜單編輯器編輯菜單為：遊戲、新遊戲、顯示答案、結束遊戲，她們的Name屬性分別為：Game、New、View、End。好了，其余屬性使用缺省的即可，最後的界面應跟下圖壹樣：
以下是程序清單：
Dim PcA, PcB, PcC, PcD As Integer '電腦給出的每壹位數
Dim UserA, UserB, UserC, UserD As Integer '用戶輸入的每壹位數
Dim Degree As Integer '用戶猜了幾次
Dim Num As Integer '判斷用戶輸入次數的變量
Private Sub Form_Load()
'程序運行行時
'初始化
For i = 0 To 9
Command1(i).Enabled = False
Next i
Command2.Enabled = False
Command3.Enabled = False
View.Enabled = False
End Sub
Private Sub New_Click()
'開始壹個新遊戲時
View.Enabled = True '可以看答案
List1.Clear '清空列表框
Degree = 0
' 對隨機數生成器做初始化
Randomize
Num = 1
Label1.Caption = 0 ＆ “A" ＆ 0 ＆ “B"
'電腦給出的每壹位數
PcA = Int(9 ＊ Rnd)
Do
PcB = Int(9 ＊ Rnd)
Loop While PcB = PcA
Do
PcC = Int(9 ＊ Rnd)
Loop While PcC = PcA Or PcC = PcB
Do
PcD = Int(9 ＊ Rnd)
Loop While PcD = PcA Or PcD = PcB Or PcD = PcC
For i = 0 To 9
Command1(i).Enabled = True
Next i
Command2.Enabled = False
Command3.Enabled = True
End Sub
Private Sub Command1_Click(Index As Integer)
'用戶輸入時
'使得輸入過的按鈕無效
If Num <= 4 Then
Command1(Index).Enabled = False
End If
'判斷用戶輸入了幾位，如果輸入了四位則確認按鈕有效
If Num = 4 Then
Command2.Enabled = True
End If
'取得用戶輸入
Select Case Index
Case 0
UserEnter (0) '調用UserEnter過程
Case 1 UserEnter (1)
Case 2 UserEnter (2)
Case 3 UserEnter (3)
Case 4 UserEnter (4)
Case 5 UserEnter (5)
Case 6 UserEnter (6)
Case 7 UserEnter (7)
Case 8 UserEnter (8)
Case 9 UserEnter (9)
End Select
End Sub
Private Sub Command2_Click()
'單擊確定按鈕時
'判斷用戶輸入是否正確
Dim A, B As Integer
A = 0
B = 0
Degree = Degree ＋ 1
If UserA = PcA Then
A = A ＋ 1
ElseIf UserA = PcB Or UserA = PcC Or UserA = PcD Then
B = B ＋ 1
用Visual BASIC 6.0 開發猜數字小遊戲 End If
If UserB = PcB Then
A = A ＋ 1
ElseIf UserB = PcA Or UserB = PcC Or UserD = PcD Then
B = B ＋ 1
End If
If UserC = PcC Then
A = A ＋ 1
ElseIf UserC = PcA Or UserC = PcB Or UserC = PcD Then
B = B ＋ 1
End If
If UserD = PcD Then
A = A ＋ 1
ElseIf UserD = PcA Or UserD = PcB Or UserC = PcC Then
B = B ＋ 1
End If
'顯示提示
Label1.Caption = A ＆ “A" ＆ B ＆ “B"
List1.AddItem UserA ＆ UserB ＆ UserC ＆ UserD ＆ “ " ＆ Label1.Caption
'初始化輸入按鈕
Command2.Enabled = False
For i = 0 To 9
Command1(i).Enabled = True
Next i
Num = 1
'判斷輸贏
If A = 4 Then
MsgBox “妳猜對了！" ＆ “妳壹***猜了" ＆ Degree ＆ “次"
For i = 0 To 9
Command1(i).Enabled = False
Next i
Command2.Enabled = False
End If
End Sub
Private Sub Command3_Click()
'單擊取消按鈕時
Num = 1
For i = 0 To 9
Command1(i).Enabled = True
Next i
Command2.Enabled = False
End Sub
Private Sub View_Click()
'顯示答案時
MsgBox “答案是：" ＆ PcA ＆ PcB ＆ PcC ＆ PcD ＆“妳答對了嗎？"
End Sub
Private Sub End_Click()
'遊戲結束時
End
End Sub
Sub UserEnter(i) '取得用戶輸入
If Num = 1 Then
UserA = i
Num = Num ＋ 1
ElseIf Num = 2 Then
UserB = i
Num = Num ＋ 1
ElseIf Num = 3 Then
UserC = i
Num = Num ＋ 1
ElseIf Num = 4 Then
UserD = i
Num = Num ＋ 1
Else: MsgBox “四位數夠了！"
End If
End Sub
運行程序，選擇新遊戲，就可以開始玩妳自己開發的遊戲了.