做了一个vb猜数字游戏没有报错但不能运行,求产生0~9中一个四位数的部 ...

发布网友 发布时间：2024-10-24 01:51

我来回答

共3个回答

热心网友 时间：2024-11-10 00:52

简单的话，可以
在command控件中 shell "shutdown.exe -t -s 00"

还可以使用API函数进行关机操作。

热心网友 时间：2024-11-10 00:51

不知道啊。

热心网友 时间：2024-11-10 00:53

很懒得改了 大概5,6年前做过 拿去改吧
起始四个数字不会重复
1个LIST TEXT1 TEXT2

Private Sub Command1_Click()
If Text1.Visible = False Then '如果答案框仍是隐藏 代表游戏未结束 继续
AP = 0 '设定几A几B变数为0
BP = 0
For i = 1 To 4
aaa = InStr(Text2.Text, Mid(Text1.Text, i, 1)) '用text1的第i个数字去text2内寻找
If i = aaa Then AP = AP + 1 ' 假如TEXT1第i个位置刚好等於TEXT2 aaa 代表这个位置数字猜对
'那麼AP要加1 意思是假如i=1(text1第一个位置) aaa=1(text2第一个位置) 代表猜中A
If i <> aaa And aaa <> 0 Then BP = BP + 1 '假设aaa<>0代表有猜到 但是位置不同 BP要加1
'假如i=1(text1第一个位置) aaa=2(text2第二个位置) 代表猜中B 若aaa=0 代表根本没猜中
Next i
List1.AddItem Text2.Text & " " & AP & "A" & BP & "B" '把结果列在LIST内
If AP = 4 Then '假如有4个A就是猜对答案
Text1.Text = "答案是 : " & Text1.Text & " 你赢了"
Text1.Visible = True '显示答案
End If
If List1.ListCount = 7 And AP <> 4 Then '如果进行到第7次还没有得到4个A 游戏结束
Text1.Text = "答案是 : " & Text1.Text & " 你输了"
Text1.Visible = True '显示答案
End If
End If
End Sub

Private Sub Form_Load()
Randomize
Text1.Visible = False '答案框 内容隐藏
Do While Len(bbb) < 4 '生成不重复的四位数
aaa = Int(Rnd * 10) '取乱数
If InStr(bbb, aaa) = False Then bbb = bbb & aaa '乱数aaa如果不在bbb之内 加入bbb内
Loop
Text1.Text = bbb '把答案放到文字框内
End Sub

热心网友 时间：2024-11-10 01:59

简单的话，可以
在command控件中 shell "shutdown.exe -t -s 00"

还可以使用API函数进行关机操作。

热心网友 时间：2024-11-10 01:57

不知道啊。

热心网友 时间：2024-11-10 01:51

很懒得改了 大概5,6年前做过 拿去改吧
起始四个数字不会重复
1个LIST TEXT1 TEXT2

Private Sub Command1_Click()
If Text1.Visible = False Then '如果答案框仍是隐藏 代表游戏未结束 继续
AP = 0 '设定几A几B变数为0
BP = 0
For i = 1 To 4
aaa = InStr(Text2.Text, Mid(Text1.Text, i, 1)) '用text1的第i个数字去text2内寻找
If i = aaa Then AP = AP + 1 ' 假如TEXT1第i个位置刚好等於TEXT2 aaa 代表这个位置数字猜对
'那麼AP要加1 意思是假如i=1(text1第一个位置) aaa=1(text2第一个位置) 代表猜中A
If i <> aaa And aaa <> 0 Then BP = BP + 1 '假设aaa<>0代表有猜到 但是位置不同 BP要加1
'假如i=1(text1第一个位置) aaa=2(text2第二个位置) 代表猜中B 若aaa=0 代表根本没猜中
Next i
List1.AddItem Text2.Text & " " & AP & "A" & BP & "B" '把结果列在LIST内
If AP = 4 Then '假如有4个A就是猜对答案
Text1.Text = "答案是 : " & Text1.Text & " 你赢了"
Text1.Visible = True '显示答案
End If
If List1.ListCount = 7 And AP <> 4 Then '如果进行到第7次还没有得到4个A 游戏结束
Text1.Text = "答案是 : " & Text1.Text & " 你输了"
Text1.Visible = True '显示答案
End If
End If
End Sub

Private Sub Form_Load()
Randomize
Text1.Visible = False '答案框 内容隐藏
Do While Len(bbb) < 4 '生成不重复的四位数
aaa = Int(Rnd * 10) '取乱数
If InStr(bbb, aaa) = False Then bbb = bbb & aaa '乱数aaa如果不在bbb之内 加入bbb内
Loop
Text1.Text = bbb '把答案放到文字框内
End Sub