求VB小游戏代码

时间：2014.11.26 发布人：hjdg8i8870
求VB小游戏代码

已解决问题

谷歌hjdg8i8870用户在2014.11.26提交了关于“英雄联盟之决胜巅峰求VB小游戏代码”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-11-06T11:09:50。就像打地鼠，算24点，猜数字一类的小游戏
希望是很简单的代码，不是高手也能编得出来的那种
如果能用得上的话再送50分希望大家能够帮助她。

详细问题描述及疑问：就像打地鼠，算24点，猜数字一类的小游戏
希望是很简单的代码，不是高手也能编得出来的那种
如果能用得上的话再送50分期待您的答案，滴水之恩,来日我当涌泉相报 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：ng来自rxvwkcrt8  

猜数字

控件：
T损ext1－注意将MultiLine属性修改为True
Command1

代码：
PrivateSubCommand1_Click()

Random想况丝率配乐讲选ize
DimNumAsLong
DimRi问答ghtAnswerAsBoolean
DimInputNumAsLong

Text1.Text=""
Num=Int(Rnd*1000)+1
RightAnswer=做义沿族损及False

Text1.Text=Text1九速担率.Text+"h**ere'sa**mberbetween1and1000.Canyouguessit?"+vbNewLine

WhileRightAnswer=Fa愿课试照lse
InputNum=InputBox("Entera**mber")
IfInputNum=NumThen
Text1.Text=Text1.Text&InputNum&""&"Youguessedit!"&vbNewLine
Ri困试场ghtAnswer=True
ElseIfInpu获境视真父阶结液触tNum<NumThen
Text1.Text=Text1.Text&InputNum&""&"TooSmall"&vbNewLine
ElseIfInputNum>NumThen
Te却误款究向xt1.Text=Text1.Text&InputNum&""&"TooLarge"&vbNewLine
EndIf
Wend

EndSub

调试通过，无错误处理