我刚高中毕业，没学多少，所以只能加段音乐了 很简单，不用发邮箱 一个文本框（text1）写答案 两个个标签label1写题目，label2显锈府示是否正确 两个个按钮一个判断对错（p）一个出下一顿梅题（c）下面是代码： Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Public z As Integer ’以上是通用内 Private Sub c_Click() Dim x, y, a As Integer Randomize a = Int(Rnd() * 2) x = Int(Rnd() * 5 1) y = Int(Rnd() * 5 1) If a = 0 Then z = x + y Label 1.Caption = Str(x) & "+" & Str(y) & "等于几" Else If x > y Then z = x - y Label 1.Caption = Str(x) & "-" & Str(y) & "等于几" Else z = y - x Label 1.Caption = Str(y) & "-" & Str(x) & "等于几" End If End If End Sub Private Sub p_Click() Dim d As Integer d = Val(Text 1.Text) If d = z Then Label 2.Caption = "正确" Call sndPlaySound("F:\dd.wav", &H 1) ‘音乐文件必须存在，且只能是最脂典WAV文件，不然会发生错误 Else Label2.Caption = "错误" Call sndPlaySound("F:\xx.wav", &H 1) End If End Sub