roc2003 发表于 2019-10-11 10:21:34

（未解决）如何根据次数，动态地画出长方形。求帮助

要在PPT中用代码实现这样的效果：有A，A，B，C，四个字母牌，每次从中任摸一个，摸2000次。根据摸到的次数，动态的生成三个长方形长条（A,B,C），同时在长方形长条的顶端，动态的显示摸到的次数。


补充内容 (2019-10-31 20:47):
基本解决，感谢大神：weiyingde

rotman 发表于 2019-10-11 11:26:54

给你做了一个，你试着用吧！！

lixin3317 发表于 2019-10-11 11:32:31

水平有限。能不能在代码后面加个注解啊

g66201 发表于 2019-10-11 11:40:19

哪一段代码表示 从数组中随机选数；怎么把选到A一共的次数，记录下来

sdkdsyk 发表于 2019-10-11 11:57:33

已经帮你改好，随机选取得地方给你标识了。
可以的话，赏朵小花。
你测试，看是否满意。

lpn1983 发表于 2019-10-11 12:00:45

附件如下，请看。

啥事儿 发表于 2019-10-11 12:00:54

刚知道，还有赏小花的功能啊

liz5770 发表于 2019-10-11 12:07:31

Private n As Integer
Private m As Integer

这两行起什么作用啊

zhaoren59 发表于 2019-10-11 12:08:37

申明私有变量，好在过程结束后，能够存储数值。

lihaodong 发表于 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

上面这段代码，有问题，该 怎么改啊
页: [1] 2 3 4
查看完整版本: （未解决）如何根据次数，动态地画出长方形。求帮助