用VB制作程序

来源：百度知道 编辑：UC知道 时间：2024/05/29 04:47:49
用VB做一个做题程序。如果正确，那就放C盘下的一个音乐文件。如果错了那就放C盘下的另一个文件！

1、建立模块，在里面写：
Public Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10

2、在何时的事件里写（s1、s2时音乐文件名）
Dim sFlags As Long
sFlags = SND_ASYNC Or SND_NODEFAULT
if 正确 then
s=s1
else
s=s2
endif
sndPlaySound "c:\" & s, sFlags

上面的s1 ，s2要声明成string，然后const一下音乐的名字，或者直接写上s1=“文件1.mp3”，s2=“文件2.mp3”

恩