VB语言程序设计5个小题目求解答（没有VB只好加了Python标签）

导师说代码都很简单，但是第一题用定时器那里我就不会重拨了，不知道怎么写，不知道是不是用不到那么多控件……有些网上找也找不到合适的。

望救助，可加酬谢

有个错别字，是蓝色字

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 9
        Set cmdNum(i) = Controls.Add("VB.CommandButton", "cmdNum" & i)
        With cmdNum(i)
            .Caption = i
            .Width = 40
            .Height = 40
            .Left = 20 + (i Mod 3) * 50
            .Top = 60 + (i \ 3) * 50
            .Font.Name = "宋体"
            .Font.Bold = True
            .Font.Size = 14
            .ForeColor = vbBlue
        End With
    Next i
End Sub

Private Sub cmdNum_Click(Index As Integer)
    If Len(text1.Text) < 10 Then
        text1.Text = text1.Text & cmdNum(Index).Caption
    End If
End Sub

Private Sub cmdRedial_Click()
    If Len(text1.Text) > 0 Then
        Dim i As Integer
        For i = 1 To Len(text1.Text)
            SendKeys Mid(text1.Text, i, 1)
            Sleep 500
        Next i
    End If
End Sub

但是问过同学好像不是这样的