单项选择题

下列程序的功能是调用字体对话框米设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单占“确定”按钮退出对话框，则将发生哪些变化( )。

Private Sub Command1_Click()

Common Dialog1.Cancel Error=True

Common Dialog1.Flags=3

On Error Resume Next

Common Dialog1.ShowFont

Text1.Font.Name=CommonDialog1.FontName

Text1.Font.Size=CommonDialog1.FontSize

Text1.Font.Bold=CommonDialog1.FontBold

Text1.Font.Italic=CommonDialog1.FontItalic

Text1.Font.Underline=CommonDialog1.FontUndeline

Text1.FontStrikethru=CommonDialog1.FontStrikethru

Text1.ForeColor=CommonDialog1.Color

End Sub

A．Text1的字体不发生变化
B．Text1的字体发生变化
C．Text1的字体和颜色发生变化
D．程序出错
<上一题 目录 下一题>
热门 试题

单项选择题
某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。 Private Sub Command2_Click() HSeroll1.Min=0 HScroll1.Max=List1.ListCount HScroll1.Value=0 Timer1.Interval=______ Timer1.Enabled=True End Sub Private Sub Timer1_Timer() If List1.ListCount>0 Then List1.RemoveItem 0 HScroll1.Value=HSeroll1.Max-List1.ListCount Else Timer1.Enabled=______ MsgBox 全部删除! End If End Sub
单项选择题
下列程序执行后，变量x的值为( )。 Dim a,b,c,d As Single Dim x As Single a=10 b=30 c=400 If b>a Then d=a:a=b:b=d End If If b>c Then x=b Else If a>c Then x=c Else x=a End If
A．10
B．30
C．400
D．430
相关试题