命令按钮，然后编写如下事件过程：PrivateSubComma
d1_ClickDimStr1AsStri
g，Str2AsStri
gStr1＝I
putBox