vb高手帮忙翻译一下！！谢谢！

来源：百度知道 编辑：UC知道 时间：2024/09/23 22:33:45
有如下代码帮忙翻译一下！谢谢！代码如下：Private Sub cmdSound_Click()
Dim h As Integer, m As Integer, n As Integer

bArr = LoadResData(118, "CUSTOM")
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC

bArr = LoadResData(116, "CUSTOM")
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC

h = Hour(Now)
n = h \ 10
If n = 0 Then
bArr = LoadResData(100 + h, "CUSTOM")
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC
Else
: bArr = LoadResData(110 + n - 1, "CUSTOM")

h = h Mod 10
bArr2 = LoadResData(100 + h, "CUSTOM")
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC
If h <> 0 Then sndPlaySound bArr2(0), SND_MEMORY Or SND_SYNC
End If

bArr = LoadResData(117, "CUSTOM")
sndPlaySound bArr(0), SND_MEMORY Or SND_SYNC

私人小组cmdSound_Click （ ）
昏暗H是整数，男作为整数， N为整数

巴尔= LoadResData （ 118 ， “自定义” ）
sndPlaySound巴尔（ 0 ） ， SND_MEMORY或者SND_SYNC

巴尔= LoadResData （ 116 ， “自定义” ）
sndPlaySound巴尔（ 0 ） ， SND_MEMORY或者SND_SYNC

h =小时（现在）
例h \ 10
如果n = 0然后
巴尔= LoadResData （ 100 +小时， “自定义” ）
sndPlaySound巴尔（ 0 ） ， SND_MEMORY或者SND_SYNC
其他的
：巴尔= LoadResData （ 110 + N的-1 ， “自定义” ）

h = h模型10个
bArr2 = LoadResData （ 100 +小时， “自定义” ）
sndPlaySound巴尔（ 0 ） ， SND_MEMORY或者SND_SYNC
如果h “ ” 0然后sndPlaySound bArr2 （ 0 ） ， SND_MEMORY或者SND_SYNC
如果完

巴尔= LoadResData （ 117 ， “自定义” ）
sndPlaySound巴尔（ 0 ） ， SND_MEMORY或者SND_SYNC

米=分钟（现在）
例米\ 10
如果n = 0然后
如果米“ ” 0然后
巴尔= LoadResData （ 100 ， “自定义” ）
sndPlaySound巴尔（ 0 ） ， SND_MEMORY或者SND_SYNC
巴尔= LoadResData （ 100 +米， “自定义” ）
sndPlaySound巴尔（ 0 ） ， SND_MEMORY或者SND_SYNC
如果完
其他的
巴尔=