问题详情

下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则 Private Sub Command1_Click() CommonDialogl．CancelError=True CommonDialogl．Flags=cdlCFEffects Or cdlDFBotb CommonDialogl．Action=4 CommonDialogl．ShowFont Text1.Font.Name=CommonDialogl．FontName Text1．Font．Size=CommonDialogl．FontSize Text1．Font．Bold=CommonDialog1．FontBold Text1．Font．Italic=CommonDialog1．FontItalic Text1．Font．Underline=CommonDialog1．FontUnderline Text1．FontStrikethru=CommonDialog1．FontStrikethru Text1．ForeColor=CommonDialog1．Color End Sub
A．Text1的字体不发生变化
B．Text1的字体发生变化
C．Text1的字体和颜色发生变化
D．程序出错!请帮忙给出正确答案和分析，谢谢！