您所在位置：主题：用了Beep没听到声音
feina
[专家分：0] 发布于 2009-03-15 12:28:00
Dim total
Private Sub Command1_Click()
Print total
End Sub
Private Sub Score_LostFocus()
X = Val(Score.Text)
If X < 0 Or X > 100 Then
Beep
Score.Text = """"
Score.SetFocus
Print "请重新输入"
Else
total = X
End If
End Sub
程序如上,但当我按TAB键时,只有"请重新输入"几个字出现,没听到声音,请都各位高手,这是为什么?
Private Sub Command1_Click()
Print total
End Sub
Private Sub Score_LostFocus()
X = Val(Score.Text)
If X < 0 Or X > 100 Then
Beep
Score.Text = """"
Score.SetFocus
Print "请重新输入"
Else
total = X
End If
End Sub
程序如上,但当我按TAB键时,只有"请重新输入"几个字出现,没听到声音,请都各位高手,这是为什么?
