`

VBA做的简易猜拳(增加胜率统计)

    博客分类:
  • VBA
 
阅读更多
 Dim V1, V2, V3 As Integer
 
'石头按钮触发
Private Sub CommandButton1_Click()
Label4.Caption = "石"

Call run(1)
End Sub
'剪刀按钮触发
Private Sub CommandButton2_Click()
Label4.Caption = "剪み"

Call run(2)
End Sub
'布按钮触发
Private Sub CommandButton3_Click()
Label4.Caption = "布"

Call run(3)
End Sub



'逻辑处理共通
Private Sub run(obj)
'胜率初期化
If V1 = Empty Then
V1 = 0
End If
If V2 = Empty Then
V2 = 0
End If
If V3 = Empty Then
V3 = 0
End If


'計算逻辑
Dim temp As Integer
'随机数
temp = Rnd(3) * 3 + 1


If temp = 1 Then
Label5.Caption = "石"

If obj = 1 Then
Label3.Caption = "平局"
V3 = V3 + 1
ElseIf obj = 3 Then
Label3.Caption = "人勝利"
V1 = V1 + 1
Else
Label3.Caption = "電脳勝利"
V2 = V2 + 1
End If


ElseIf temp = 2 Then
Label5.Caption = "剪み"

If obj = 2 Then
Label3.Caption = "平局"
V3 = V3 + 1
ElseIf obj = 1 Then
Label3.Caption = "人勝利"
V1 = V1 + 1
Else
Label3.Caption = "電脳勝利"
V2 = V2 + 1
End If

Else
Label5.Caption = "布"

If obj = 3 Then
Label3.Caption = "平局"
V3 = V3 + 1
ElseIf obj = 2 Then
Label3.Caption = "人勝利"
V1 = V1 + 1
Else
Label3.Caption = "電脳勝利"
V2 = V2 + 1
End If

End If
'输出胜率
Label6.Caption = "人:" & V1 & " 電脳:" & V2 & " 平局:" & V3 & " 総合:" & (V1 + V2 + V3)

End Sub
  • 大小: 16.6 KB
分享到:
评论

相关推荐

    VBA制作的简易记账系统

    1. **增加记录**:用户可以通过输入或选择相应的字段,如日期、类别(收入或支出)、金额等,然后点击“添加”按钮,VBA宏会将这些信息插入到指定的Excel表格中,自动更新累计余额。 2. **删除记录**:如果需要删除...

    Excel VBA_成绩统计分析实例集锦.doc

    Excel VBA 成绩统计分析实例集锦 本文档主要介绍了使用 Excel VBA 进行成绩统计分析的实例,通过创建一个 VBA 项目,实现成绩分析表的自动化生成。 知识点1:使用 VBA 创建成绩分析表 在本文档中,我们使用 VBA ...

    VBA实现的统计两列重复个数

    VBA(excel)实现的统计两列重复个数,快速统计,简洁明了。

    EXCEL vba简易教程

    EXCEL vba简易教程及有关函数运用

    VBA 数组列不同值统计

    ### VBA 数组列不同值统计 #### 背景介绍 在Excel VBA编程中,经常需要处理数据集中的统计需求,特别是针对某一列中不同值的数量进行计数。这种统计方法对于数据分析、报告生成等场景非常有用。本文将详细介绍如何...

    VBA简易教程.ppt

    VBA简易教程,ppt版本 ,简单实用

    VBA简易管理系统

    利用excel的VBA编写的脚本,简单通俗易懂,一学就会。

    VBA编程初级简易教程

    VBA编程初级简易教程,供初级入门使用,老手绕道

    ftp工具-vba做的

    ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的

    excle vba简易入门

    Excel VBA(Visual Basic for Applications)是Microsoft Excel中的编程环境,允许用户自定义工作簿、工作表、图表和应用程序的功能。VBA结合了Excel的强大功能和VB语言的易用性,使得用户能够创建宏,自动化任务,...

    VBA爬取统计局统计标准:各省市

    通过Excel VBA爬取统计局统计标准:省--市--县,详细的爬虫代码

    成绩统计(vba版)_v3.2

    【标题】"成绩统计(vba版)_v3.2"是一个使用VBA(Visual Basic for Applications)编程语言在Excel环境中创建的应用程序,旨在帮助用户高效地进行学生成绩的管理和统计工作。VBA是Microsoft Office套件中内置的一种...

    统计图形对象的个数.xlsx源码EXCEL VBA宏编程xlsx实例代码下载

    统计图形对象的个数.xlsx源码EXCEL VBA宏编程xlsx实例代码下载统计图形对象的个数.xlsx源码EXCEL VBA宏编程xlsx实例代码下载统计图形对象的个数.xlsx源码EXCEL VBA宏编程xlsx实例代码下载统计图形对象的个数.xlsx...

    cad图中文字统计vba

    标题中的“cad图中文字统计vba”是指利用AutoCAD软件中的VBA(Visual Basic for Applications)编程语言来实现对CAD图纸中文字信息的统计功能。这个VBA脚本主要针对的是建筑行业的常见应用场景,例如平面图和立面图...

    学生成绩统计模板vba(2021.4.8).zip

    《使用VBA进行中小学学生成绩统计》 在教育领域,成绩统计是一项不可或缺的工作,尤其对于中小学来说,定期对学生的成绩进行整理、分析是教学管理的重要环节。传统的手动统计方式耗时费力,易出错,而利用Excel配合...

    ExcelVBA简易会计信息系统与相关案例

    《ExcelVBA简易会计信息系统与相关案例》是一份旨在教授如何利用ExcelVBA技术构建会计信息系统的教程。通过这份资料,你可以深入理解如何结合Excel的强大功能和VBA(Visual Basic for Applications)的编程能力,...

    数据统计工具(VBA例子)

    VBA(Visual Basic for Applications)是Microsoft Office套件中内置的一种编程语言,它允许用户自定义功能、自动化任务,尤其在Excel中,VBA被广泛用于数据处理和统计分析。以下将详细介绍标题和描述中涉及的VBA...

    无需VBA支持库 进销存管理 简易版

    这个简易版的系统特别强调无需VBA(Visual Basic for Applications)支持库,这意味着它可能利用了Excel或其他类似电子表格软件的内置功能,而不是依赖于VBA编程来实现其功能。这样的设计使得系统更加易于使用,同时...

    基于VBA宏代码的七星彩统计表

    用VBA代码编写的七星彩票下单分析统计表。

Global site tag (gtag.js) - Google Analytics