了解功能中的功能

Question

我无法弄清楚如何将代码“啤酒”中的第二个参数传递给makeAdjectifier内部的匿名函数。

nicerizer是一个将makeAdjectifier作为值存储的变量，但是“啤酒”最终如何传递给参数字符串？

非常感谢。

Sub Click(Source As Button)

    Dim Stream As NotesStream
    Set Stream=Session.CreateStream
    f=Freefile
    fichier="d:\"+Masque.FieldGetText("nomF")+".dxl"
    Open fichier For Output As #f
    Stream.Open(fichier)

    Call Stream.WriteText(|<database xmlns="http://www.lotus.com/dxl" version="8.5" maintenanceversion="3.0" replicaid="41257FA4002BD8B9" path="CN=PFE/O=AISA!!E_admini.nsf" title="E_administrateur 2015..2016">|)
    Call Stream.WriteText(|<databaseinfo dbid="41257FA4002BD8B9" odsversion="43" diskspace="1142784" percentused="75.5600358422939" numberofdocuments="12">|)
    Call Stream.WriteText(|<datamodified>|)
    Call Stream.WriteText(|<datetime dst="true">|+Now+|</datetime>|)
    Call Stream.WriteText(|</datamodified>|)
    Call Stream.WriteText(|<designmodified>|)
    Call Stream.WriteText(|<datetime dst="true">|+Now+|</datetime>|)
    Call Stream.WriteText(|</designmodified>|)
    Call Stream.WriteText(|</databaseinfo>|)
    Call Stream.WriteText(|<form name="|+Masque.FieldGetText("nomF")+|" nocompose="true" publicaccess="false" designerversion="8.5.3" recalc="true" renderpassthrough="true">|)
%REM    
    Call Stream.WriteText(|<updatedby>|)
    Call Stream.WriteText(|<name>CN=admin/O=AISA</name>|)
    Call Stream.WriteText(|</updatedby>|)
    Call Stream.WriteText(|<wassignedby>|)
    Call Stream.WriteText(|<name>CN=admin/O=AISA</name>|)
    Call Stream.WriteText(|</wassignedby>|)
%END REM
    Call Stream.WriteText(|<globals>|)
...................
    Stream.Close

End Sub