问题
单项选择题
下列程序的功能是：调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击。“确定”按钮退出对话框，则将发生哪些变化( )。 Private Sub Command1_Click() CommonDialogl.CancelError=True CommonDialogl.Flags=3 On Error Resume Next CommonDialogl.ShowFont Textl.Font.Name=CommonDialogl.FontName Textl.Font.Size=CommonDialogl.FontSize Textl.Font.Bold=CommonDialogl.FontBold Textl.Font.Italic=CommonDialogl.FontItalic Textl.Font.Underline=CommonDialogl.FontUnderline Textl.FontStrikethru=CommonDialogl.FontStrikethru Textl.ForeColor=CommonDialogl.Color End Sub
A．Text1的字体不发生变化
B．Text1的字体发生变化
C．Text1的字体和颜色发生变化
D．程序出错
答案
参考答案：B
解析： 通用对话框的Flags属性设置为3，从而可以设置屏幕显示和打印机字体，接着用ShowFont方法建立字体对话框，如下图所示。
“字体”对话框中并没有设置颜色的选项，所以文本框中的字体、字形、字号会发生相应的变化，但是字体的颜色并不会改变。