太简单了，就给3分。

Question

beep() 是一个函数,想什么时候发声调用就可以了.

Answer 1

Private Sub txtName_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        If KeyAscii = 8 Then
            Exit Sub
        Else
            KeyAscii = 0
            Beep 1000, 100
        End If
    End If
End Sub以上程序是指在名称为txtname的文本框中输入非数值的时候就会产生你所说的那种效果不知道楼主对些答案是否满意！

Answer 2

Beep 1000, 100 
是什么意思？