【003】你猜我演案例(包含倒计时、随机数、色彩)_#VBA

游戏界面

游戏字库

首先要先准备大量需要演绎的词语放在同一个表格不同的工作表中
如下图

游戏界面

绘制如下单元格信息，游戏说明如下图所示

说明：游戏开始前，需初始化，即在“答对题数”和“题目量”处输入“0”，或者在说明下方初始化位置输入“0”便可开始计时。

1. 在红色区域输入“0”为随机生成，输入1-60数字为指定生成演绎内容。
2. 在蓝色区域输入“1”，则表示题目已答对，记一分。
3. 表格会自动记录题目量，如果题目量出现重复计数的话，则在红色区域内输入“101”，即可使题目量减1。

编写策略

游戏方式

根据程序调用词库表格内容，在某单元格内展示当前需要演绎的词语

Sub GAME()
    
    D = Sheets("前提").Cells(1, 3)				'获取词库总数量
    If Range("E1") = 0 Then						'选择展示模式为随机
        T = Application.RandBetween(1, D) 		'当随机值为1的时候显示1至60的随机数
        Cells(2, 2).Value = Sheets("前提").Cells(T, 1)		'展示内容
        Num = Range("B17")						'并记录当前已完成一次演绎
        Cells(17, 2).Value = Num + 1
    ElseIf Range("E1") >