这个VBS文件哪里错啦?/

来源:百度知道 编辑:UC知道 时间:2024/05/31 17:54:42
Dim MyStr,YourVar,MyVar
Randomize
Do
MyStr="请输入一个代表锤子、剪刀、布的数字:"&vbCrLf&vbCrLf&_
"1==锤子"&vbCrLf&"2==剪刀"&vbCrLf&"3==布"&vbCrLf&"0==结束"
YourVar=Inputbox(MyStr,"锤子、剪刀、布小游戏")
If YourVar="1"Or YourVar="2" Or YourVar="3"Then
MyVar=Int((3*Rnd)+1)
MyStr="你出的是:"
Select Case YourVar
Case 1 MyStr=MyStr+"锤子"
Case 2 MyStr=MyStr+"剪刀"
Case 2 MyStr=MyStr+"布"
End Select
MyStr=MyStr&vbCrLf&"计算机出的是:"
Select Case MyVar
Case 1 MyStr=MyStr+"锤子"
Case 2 MyStr=MyStr+"剪刀"
Case 2 MyStr=MyStr+"布"
End Select
MyStr=MyStr&vbCrLf&vbCrLf
If MyVar-YouVar=0 Then
MyStr=MyStr+"嘿嘿,平手!再来。"
Elself MyVar=1 Or MyVar-YouVar=-2 Then
MyStr=MyStr+"哈哈,恭喜你!赢了"
Else
MyStr=MyStr+"嘻嘻,你输了,加油!&q

Elself MyVar=1 Or MyVar-YouVar=-2 Then '★★★请注意这句,Elself 应该是 Elseif 一个字母写错了★★★

Dim MyStr,YourVar,MyVar
Randomize
Do
MyStr="请输入一个代表锤子、剪刀、布的数字:"&vbCrLf&vbCrLf&_
"1==锤子"&vbCrLf&"2==剪刀"&vbCrLf&"3==布"&vbCrLf&"0==结束"
YourVar=Inputbox(MyStr,"锤子、剪刀、布小游戏")
If YourVar="1"Or YourVar="2" Or YourVar="3"Then
MyVar=Int((3*Rnd)+1)
MyStr="你出的是:"
Select Case YourVar
Case 1 MyStr=MyStr+"锤子"
Case 2 MyStr=MyStr+"剪刀"
Case 2 MyStr=MyStr+"布"
End Select
MyStr=MyStr&vbCrLf&"计算机出的是:"
Select Case MyVar
Case 1 MyStr=MyStr+"锤子"
Case 2 MyStr=MyStr+"剪刀"
Case 2 MyStr=MyStr+"布"
End Select
MyStr=MyStr&vbCrLf&vbCrLf
If MyVar-YouVar=0 Then
MyStr=MyStr+"嘿嘿,平手!再来。"
Elself MyVar=1 Or MyVar-YouVa