找回密码
 立即注册
搜索

(未解决)如何根据次数,动态地画出长方形。求帮助

30
回复
5003
查看
[复制链接]

5

主题

10

帖子

85

幻币

一流武者

Rank: 3Rank: 3

积分
279
QQ
2019-10-11 10:21:34 显示全部楼层 |阅读模式
要在PPT中用代码实现这样的效果:有A,A,B,C,四个字母牌,每次从中任摸一个,摸2000次。根据摸到的次数,动态的生成三个长方形长条(A,B,C),同时在长方形长条的顶端,动态的显示摸到的次数。


补充内容 (2019-10-31 20:47):
基本解决,感谢大神:weiyingde
PPT学习论坛
回复

使用道具 举报

1

主题

9

帖子

63

幻币

一流武者

Rank: 3Rank: 3

积分
253
QQ
2019-10-11 11:26:54 显示全部楼层
给你做了一个,你试着用吧!! 摸长方形长条.rar (32.92 KB, 下载次数: 12)
PPT学习论坛
回复 支持 反对

使用道具 举报

6

主题

14

帖子

71

幻币

一流武者

Rank: 3Rank: 3

积分
262
QQ
2019-10-11 11:32:31 显示全部楼层
水平有限。能不能在代码后面加个注解啊
PPT学习论坛
回复 支持 反对

使用道具 举报

5

主题

10

帖子

37

幻币

江湖少侠

Rank: 2

积分
192
2019-10-11 11:40:19 显示全部楼层
哪一段代码表示 从数组中随机选数;怎么把选到A一共的次数,记录下来
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

7

帖子

65

幻币

江湖少侠

Rank: 2

积分
157
QQ
2019-10-11 11:57:33 显示全部楼层
已经帮你改好,随机选取得地方给你标识了。
可以的话,赏朵小花。
你测试,看是否满意。
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

8

帖子

46

幻币

江湖少侠

Rank: 2

积分
139
QQ
2019-10-11 12:00:45 显示全部楼层
附件如下,请看。 已改好.rar (34.28 KB, 下载次数: 14)
PPT学习论坛
回复 支持 反对

使用道具 举报

3

主题

10

帖子

88

幻币

江湖少侠

Rank: 2

积分
132
QQ
2019-10-11 12:00:54 显示全部楼层
刚知道,还有赏小花的功能啊
PPT学习论坛
回复 支持 反对

使用道具 举报

3

主题

6

帖子

98

幻币

一流武者

Rank: 3Rank: 3

积分
223
QQ
2019-10-11 12:07:31 显示全部楼层
Private n As Integer
Private m As Integer

这两行起什么作用啊
PPT学习论坛
回复 支持 反对

使用道具 举报

3

主题

9

帖子

72

幻币

一流武者

Rank: 3Rank: 3

积分
377
QQ
2019-10-11 12:08:37 显示全部楼层
申明私有变量,好在过程结束后,能够存储数值。
PPT学习论坛
回复 支持 反对

使用道具 举报

3

主题

11

帖子

33

幻币

江湖少侠

Rank: 2

积分
160
QQ
2019-10-11 12:20:08 显示全部楼层
麻烦帮我看一下,下面的代码是什么问题:
需实现:点击 按钮 后,循环2000次,记录下摸到A、B、C、D的次数,再显示出来。

Private n As Integer   '申明私有变量,好在过程结束后,能够存储数值。
Private a As Integer   '记录摸到A的次数
Private b As Integer   '记录摸到B的次数
Private c As Integer   '记录摸到C的次数
Private d As Integer   '记录摸到D的次数
Private Sub CommandButton1_Click()
Dim shps As Shapes
Dim shp As Shape
Dim i As Integer
Dim arr
arr = Array("A", "B", "C", "D")

For n = 1 To 2000
Randomize
rd = Int(Rnd * 4) '从上面的数组中随机选取
If rd = 0 Then a = a + 1
If rd = 1 Then b = b + 1
If rd = 2 Then c = c + 1
If rd = 3 Then d = d + 1
Next

With ActivePresentation.Slides(1)
     Set shps = .Shapes
     For Each shp In shps
         If shp.Type = 1 Then shp.Delete
     Next
     For i = 1 To 2
        lf = 190
        tp = Choose(i, 250, 300)
        wd = 450
        ht = 50
        nm = Choose(i, "字母", "数字")
        With shps.AddShape(1, lf, tp, wd, ht)
             .Fill.BackColor.RGB = vbGreen
             .Name = nm
             With .TextFrame.TextRange
                  .Text = Choose(i, "A、B、C、D分别被摸到" & a & "次、" & b & "次、" & c & "次、" & d & "次", "你一共摸了:" & n & "次")
                  With .Font
                       .NameOther = IIf(i = 1, "Arial Black", "楷体")
                       .NameAscii = IIf(i = 1, "Arial Black", "楷体")
                       .NameFarEast = IIf(i = 1, "Arial Black", "楷体")
                       .Bold = True
                       .Size = IIf(i = 1, 15, 35)
                       .Color.RGB = vbYellow
                  End With
             End With
         End With
    Next
End With
End Sub

上面这段代码,有问题,该 怎么改啊 已改好 求助.rar (35.31 KB, 下载次数: 11)
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册