我用vb编程编写一个打字程序，但是总是提示代码错误：缺少函数或变量，怎么解决？

更新时间2018-07-02 04:50:07

Sub zimu()

Randomize

Dim i As Integer

Do

    i = Int(Rnd * 58 + 65)

Loop While i > 90 And i < 97

L.Caption = Chr(i)

L.Left = Rnd * (Me.ScaleWidth - L.Width)

L.Top = 0

End Sub

 

Private Sub Command1_Click()

zimu

L.Visible = True

Timer1.Interval = 200

End Sub

 

Private Sub Form_KeyPress(KeyAscii As Integer)

If L.Caption = Chr(KeyAscii) Then

    zimu

End If

End Sub

 

Private Sub Timer1_Timer()

L.Top = L.Top + 100

If L.Top >= Me.ScaleHeight Then

L.Caption = zimu

End If

End Sub

说明：timer事件驱动的L.Caption = zimu这里总是提示错误，怎样解决？

你的

zimu（）

是个过程，不是函数，它没有返回值，不能赋给别的变量的

L.Caption = zimu

肯定不对啊

直接改为zimu可以运行