buildsound.txt

来自「VB的文本资料,需要时有帮助」· 文本 代码 · 共 44 行

    If intTemp1 <> 0 Then
        intTempSoundId(intNum2) = intTemp1 + 130
        intNum2 = intNum2 + 1
        
        If intTemp2 <> 0 Then
            intTempSoundId(intNum2) = intTemp2 + 120
            intNum2 = intNum2 + 1
            If intTemp3 <> 0 Then
                If intTemp3 > 9 Then
                    intTempSoundId(intNum2) = intTemp3
                    intNum2 = intNum2 + 1
                Else
                    intTempSoundId(intNum2) = 100
                    intNum2 = intNum2 + 1
                    intTempSoundId(intNum2) = intTemp3
                    intNum2 = intNum2 + 1
                End If
            End If
        Else
            intTempSoundId(intNum2) = 100
            intNum2 = intNum2 + 1
            intTempSoundId(intNum2) = intTemp3
            intNum2 = intNum2 + 1
        End If
    Else
        If intTemp2 <> 0 Then
            intTempSoundId(intNum2) = intTemp2 + 120
            intNum2 = intNum2 + 1
            If intTemp3 <> 0 Then
                If intTemp3 > 9 Then
                    intTempSoundId(intNum2) = intTemp3
                    intNum2 = intNum2 + 1
                Else
                    intTempSoundId(intNum2) = 100
                    intNum2 = intNum2 + 1
                    intTempSoundId(intNum2) = intTemp3
                    intNum2 = intNum2 + 1
                End If
            End If
        Else
            intTempSoundId(intNum2) = intTemp3
            intNum2 = intNum2 + 1
        End If
    End If