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