Question

VB程序设计中怎么设计猜数游戏？？？！！！

请哪位高手帮帮忙，急！！！
界面是这样的，左上角是四个text框，是用来猜数的，然后在四个数下面是个picturebox框，是显示你猜的数字正确与否，然后由上角是三个command按扭，第一个是重新开始游戏，第二个是游戏帮助，第三个是退出游戏，接着在三个按扭下面是10个数字按扭和一个OK按扭加上一个CLEAR按扭，就是这个样子的界面，小弟不知道怎么编程序，忘各位高手帮小弟个忙，小弟在此先谢谢了！！！
忘了说了，程序应有一定的健壮性，如控制猜数者不可使用重复数字、在一轮猜数为结束前不可点击“重新开始游戏”按扭。
而且猜的四位数字中，位置和数字都正确提示为A；数字相同但位置不同的为B；当提示信息为”4A0B“时表示猜对了。（只有8次机会才一个数！）

Answer 1

天啊 你再加个判断就可以啊 你是真的不会写 还是懒得写啊 把下面的代码拷贝过去 自己运行一下就知道怎么加这些限制 其实就加一个不可重复输入数字和猜的字数就可以了 把我的s和e 改成你的a和b就符合你的要求了

---
自己稍微改一点点

Private Function getSerial(ByVal iLen As Integer, Optional ByVal bRepeat As Boolean = False) As String

If iLen < 1 And iLen > 9 Then
Exit Function
End If

Dim iRnd As Integer
Dim iCount As Integer
Dim bExist As Boolean
Dim sSerial As String
DoEvents
Do

iRnd = Int(Rnd(Now) * 9)

If Not bRepeat Then
For iCount = 1 To Len(sSerial)
If iRnd = Val(Mid(sSerial, iCount, 1)) Then
bExist = True
Exit For
Else
bExist = False
End If

Next
End If

If Not bExist Then
sSerial = iRnd & sSerial

End If

Loop While Len(sSerial) < iLen
'Debug.Print
getSerial = sSerial
End Function

Private Function cmpNoRepeatS(bEqual As Boolean, ByVal inString As String, ByVal cmpString As String) As String

Dim iCount As Integer
Dim jCount As Integer
Dim iSame As Integer
Dim iExist As Integer

For iCount = 1 To Len(cmpString)
For jCount = 1 To Len(inString)
If Mid(cmpString, iCount, 1) = Mid(inString, jCount, 1) Then
If jCount = iCount Then
iSame = iSame + 1
Else
iExist = iExist + 1
End If
End If
Next
Next

If iSame = Len(cmpString) Then
cmpNoRepeatS = "OK.."
bEqual = True
Else
cmpNoRepeatS = iSame & "S" & iExist & "E " & inString
bEqual = False
End If
End Function

Private Sub Command1_Click()
'Debug.Print serial(8, True)
Dim b As Boolean
Picture1.Print cmpNoRepeatS(b, Text1.Text, Text2.Text)

If b Then
Command1.Enabled = False
Text2.Visible = True
End If

End Sub

Private Sub Command2_Click()
Picture1.Cls
Text1.Text = ""
Text2.Text = getSerial(5)
Text2.Locked = True
Text2.Visible = False
Command1.Enabled = True
End Sub