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