可不可以用excel制一个石头剪刀布小游戏 剪刀 布的小游戏

来源：蜘蛛抓取(WebSpider) 时间：2016-11-22 05:52 标签： 石头剪刀布竟有必胜法
查看: 2047|回复: 8
石头剪刀布
玩是可以玩了。就是样子、功能等等 .... ，请大家多提宝贵意见有个问题，请问这里，这3句怎样换成循环？&&& With UserForm1&&&&&&& If .OptionButton1.Value = True Then StrMe = .Label1.Caption&&&&&&& If .OptionButton2.Value = True Then StrMe = .Label2.Caption&&&&&&& If .OptionButton3.Value = True Then StrMe = .Label3.Caption&&& End With谢谢！PS：提什么意见都行，我就想尽量再把它变强点
(10.76 KB, 下载次数: 16)
23:05 上传
点击文件名下载附件
石头剪刀布
Sub SJB_Main()&&& Dim MyChoose As Integer, PcChoose As Integer, WinLoose As Integer&&& Dim MyStr As String, PCStr As String, StrResult As String&&&&&&& &&& '我选的是&&& With UserForm1&&& For MyChoose = 1 To 3&&&& If .Controls("optionbutton" & MyChoose).Value = True Then Exit For&&& Next MyChoose&&& MyStr = .Controls("label" & MyChoose).Caption&&& '电脑选的是&&& PcChoose = Int(Rnd() * 3 + 1)&&& PCStr = .Controls("label" & PcChoose).Caption&&& End With&&& WinLoose = MyChoose - PcChoose&&& If WinLoose = -1 Or WinLoose = 2 Then StrResult = "你赢了！ "&&& If WinLoose = -2 Or WinLoose = 1 Then StrResult = "你输了！"&&& If WinLoose = 0 Then StrResult = "平局"&&& StrResult = "你选的是：" & MyStr & "，电脑选的是：" & PCStr & "。" & StrResult&&& MsgBox StrResult, 64, "结果"End Sub
要做个统计次数的
再加上“石头剪刀布”的手型!
(96 KB, 下载次数: 13)
00:02 上传
点击文件名下载附件
石头剪刀布
总算想有个轮廓，不知好不好，如果就这样，后续的改变应该不大了。请帮忙看看，代码该怎样修改好。对于统计，实在没想好，也是因为有的不会 .... 再想想，问题肯定会不少的。还请继续提想法、意见！PS：不会做，再向大家求助学习
(22.2 KB, 下载次数: 4)
23:37 上传
石头剪刀布
(26.38 KB, 下载次数: 4)
00:02 上传
石头剪刀布
23:38 上传
点击文件名下载附件
96.22 KB, 下载次数: 15
石头剪刀布
不错不错。象个样子了。再搞得有点趣味就更好了。
感觉应该会很好玩
做的很好。但游戏本身不好玩
|||Excel精英培训
Powered byEXCEL小游戏_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
EXCEL小游戏
上传于||文档简介
&&直​接​E​X​C​E​L​可​以​玩​,​随​机​数​攻​击​计​算​,​石​头​剪​刀​布​猜​想​模​拟​。
阅读已结束，如果下载本文需要使用2下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢使用JavaScript写的剪刀石头布的游戏！
用户输入剪刀、石头或布，来跟电脑比较一下吧！&!DOCTYPE html&&html&&head& &meta charset=&UTF-8&& &title&Document&/title& &script type=&text/javascript&& var userChoice = prompt(&请输入剪刀、石头、布?&); var computerChoice = Math.random(); if (computerChoice & 0.34) {
computerChoice = &石头&;
} else if(computerChoice &= 0.67) {
computerChoice = &布&;
computerChoice = &剪刀&; }
document.write(&电脑随机: & + computerChoice + &&br/&&br/&&); function compare(choice1,choice2){
if(choice1 === choice2){
return &平局!&;
}else if(choice1 === &石头&){
if(choice2 === &剪刀&){
return &石头 赢&;
return &布 赢&;
}else if(choice1 === &布&){
if(choice2 === &石头&){
return &布 赢&;
return &剪刀 赢&;
}else if(choice1 === &剪刀&){
if(choice2 === &石头&){
return &石头 赢&;
return &剪刀 赢&;
document.write(compare(userChoice,computerChoice));&/script&&/head&&body& &/body&&/html&
最新教程周点击榜
微信扫一扫相关合集：
相关热搜：
华军软件园提供IE浏览器下载。IE是微软公司推出的一款网页浏览器。原称Microsoft Internet Explorer(6版本以前)和Windows Internet Explorer(7、8、9、10、11版本)。在IE7以前，中文直译为“网络探路者”，但在IE7以后官方便直接俗称&IE浏览器&。日，随着Windows 8.1的正式发布，IE11也正式登场，IE11的内核为Trident 7.0。强大IE浏览器，有需要的小伙伴，快...
高速下载地址
联通下载地址
电信下载地址
移动及其他下载地址
(您的评论需要经过审核才能显示)
升级新版后我发现了几个小问题，并且发给剪刀石头布的官方人员了，下次升级应该会解决了
虽然剪刀石头布没有其它的Flash游戏软件那么出名，但我用着很舒服，会一直支持下去的
小巧而不占资源，剪刀石头布是我用过占用内存最少的Flash游戏了，期待它的后续优化
剪刀石头布在使用过程中有些小问题，希望官方以后能够解决
实在没想到剪刀石头布现在已经优化到0.0MB了，技术的确厉害
国产软件的剪刀石头布就是好用，有机会体验下其它类型的
最近觉得剪刀石头布很不错！我经常用Flash游戏！
以前这个剪刀石头布大小很小，现在居然都已经0.0MB了
这个剪刀石头布要怎么用啊，我是小白，求解释
这个版本的剪刀石头布响应变快了！优化的真不错
热门关键词以写代学：python实现 剪刀、石头、布游戏
前言： 这个脚本实现剪刀石头布的游戏，但是并没有异常处理。只有用户在输入0、1、2时才可以正常处理。#!/usr/bin/env python# coding: utf8import random //导入random模块，这是个产生随机数的模块all_choice = ["石头","剪刀","布"] //定义一个列表，将选择添加到列表中win_list = [["石头","剪刀"],["剪刀","布"],["布","石头"]] //定义一个用户赢的列表，列表中的元素仍然 是一个列表prompt = """(0)石头//定义一个变量，将提示语写到这个变量中(1)剪刀(2)布请选择(0/1/2): """ind = int(raw_input(prompt)) //因为输入的是字符串类型，所以将字符串转变为整型player = all_choice[ind]//列表可以取下标，下标对应的列表中的值computer = random.choice(all_choice)//随机选一个值print "Your choice: %s, computer choice: %s" % (player, computer)//提示信息，界面友好if player == computer: //如果这两个变量值相等 print "/033[32;43;1m平局/033[0m"//输出平局elif [player, computer] in win_list://如果列表在win_list中 print "/033[31;45;1mYou Win!!!/033[0m"//输出你赢了else:
//否则 print "/033[31;46;1mYou Lose!!!/033[0m"//就出你输了注：/00[30+是前景色，40+是背景色，/033 0m是关闭颜色结束 1m是加重显示本文出自 “庭中有奇树” 博客，请务必保留此出处http://zhangdl./7486
最新教程周点击榜
微信扫一扫

我要回帖

更多关于 石头剪刀布竟有必胜法 的文章

 

随机推荐