更多"下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，"的相关试题:
[单项选择]下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按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. 程序出错!
[单项选择]下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按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. 程序出错!
[单项选择]下列程序的功能是调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击“确定”按钮退出对话框，则文本框中将发生哪些变化( )。
Private Sub Command1_Click（ ）
CommonDialog1.CancelError=True
CommonDialog1.Flags=3
On Error Resume Next
CommonDialog1.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.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
End Sub
A. Text1的文字下划线发生变化
B. Text1的字体发生变化
C. Text1的字体和颜色发生变化
D. 程序出错
[单项选择]下列程序的功能是调用字体对话框米设置文本框中的字体，单击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. 程序出错
[单项选择]下列程序的功能是：调用字体对话框来设置文本框中的字体，单击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. 程序出错
[单项选择]下列程序的功能是：调用字体对话框来设置文本框中的字体，单击C。mmand1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击“确定”按钮退出对话框，则将发生哪些变化( )。
Private Sub Command1_Click（ ）
CommonDialog1.CancelError=True
CommonDialog1.Flags=3
On Error Resume Next
CommonDialog 1.ShowFont
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.Fontltalic
Text1.Font.Undefiine=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
End Sub
A. Text1的字体不发生变化
B. Text1的字体发生变化
C. Text1的字体和颜色发生变化
D. 程序出错
[填空题]以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
Public yx As Integer
Public yy As Integer
Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_
X As Single，Y As Single)
If Button=1 Then
Text1．Left= 【11】
Text1．Top= 【12】
End If
End Sub
Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If 【13】 Then
yx=Text1．Left-X
yy=Text1．Top-Y
End If
If Button=2 Then
Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top)
End If
End Sub
[简答题]以下程序的界面有一个按钮button、一个文本区textA和一个文本框textF。程序运行时，在文本区中输人数字序列，单击按钮，则在文本框中显示数字序列的和。以下是要求你编写的actionPerformed(ActionEvent e)方法的部分代码。
public void actionPerformed(ActionEvent e)
if(e.getSource（ ）==button)
String s=textA．getText（ ）；double sum=0；
StringTokenizer fenxi=new StringTokenizer(s，"，/n")；
//请在以下位置编写代码
[填空题]下列程序的作用是使用字体对话框修改文本框字体的样式，完成下列程序。
Private Sub Command1_Click（ ）
CommonDialog1.CanceIError=True
On ErrorGo To ErrHandler
CommonDialog1.Flags=vbCFEffects Or vbCFBoth
CommonDialog1.______
Text1.Font Name=CommonDialog1.FontName
Text1.Font.Size=______
Text1.Font.Bold=CommonDialog, FontBold
Text1.Font.Italic=CommonDialog1Fontltalic
Text1.Font.Underline=______
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Exit Sub
ErrHandler：
End Sub
[填空题]有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个 文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除（名为 Command1）、计算（名为Command2）和退出（名为Command3）。窗体打开运行后， 单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2 和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击 退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click（ ） Me!Text1=""
Me!Text2=""
Me!Text3="" Me!Text4=""
End Sub
Private Sub Command2_Click（ ）
If Me!Text1="" Or Me!Text2="" Or Me!Text3="" then
MsgBox "成绩输入不全"
Else
Me!Text4=(__________ +Val(Me!Text2)+Val(Me!Text3))/3__________
End Sub
Private Sub Command3_Click（ ） Docmd. __________
End Sub
[填空题]有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Text1、Text2和Text3 3个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击“退出”按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click（ ）
Me!Text1=" "
Me!Text2=" "
Me!Text3=" "
Me!Text4=" "
End Sub
Private Sub Coramand2_Click（ ）
If Me!Text1=" " Or Me!Text2=" " Or Me!Text3=" " Then
NsgBox "成绩输入不全"
Else
Me!Text4=( (13) +Val(Me!Text2)+Val(Me!Text3))/3
(14)
End Sub
Private Sub Command3_Click（ ）
Docmd. (15)
End Sub
