Private Sub Command1_Click()
    Dim i As Integer
    Dim c(1 To 6) As Integer
    Dim t As Integer
    Randomize Timer
    For i = 1 To 200
        t = Int(Rnd() * 6) + 1
        c(t) = c(t) + 1
    Next i
    Picture1.Cls
    For i = 1 To 6
        Picture1.Print i & "点出现" & c(i) & "次"
    Next i
End Sub

这个哪里错了啊。。555555

没看到有什么错误啊？？

最后写个清空。就行了哈哈

???

....
    Randomize Timer
....

MSDN:
在使用Rnd函数之前，最好先呼叫的Randomize陈述式，但不要给任何引数，如此便会以作业系统的时间当作乱数种子来起始乱数产生器。