130. synthesizeSinging()

英題：synthesizeSinging()

作曲：thus(2024)

編曲：thus(2024)

Music by thus © 2024 thus

歌詞：thus(2024)

Lyrics by thus © 2024 thus

―

―

―

「synthesizeSinging()」

―――

Sub synthesizeSinging()

　　Dim lyrics(1 To 4) As String
　　lyrics(1) = " 再三 ( さいさん ) 入 ( い ) れられたもの エコラリア"
　　lyrics(2) = " 後続算 ( こうぞくざん ) で 刷 ( す ) るものは 何 ( なに ) かが"
　　lyrics(3) = " 商 ( あきな ) いから 今度 ( こんど ) も 終日 ( ひもすがら ) "
　　lyrics(4) = "そうして 次 ( つぎ ) を 繰 ( く ) り 返 ( かえ ) し 居 ( い ) ますが"
　　
　　Dim i As Integer, j As Integer
　　For i = 1 To ActiveScore.Phrases.Count
　　　　For j = 1 To 4
　　　　　　If ((i = 5) Or (i = 9) Or (i = 11)) And (j = 4) Then
　　　　　　　　Exit For
　　　　　　End If
　　　　　　ActiveScore.Phrases.singText Text:=lyrics(j)
　　　　Next j
　　Next i

End Sub