更多"在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示"的相关试题:
[填空题]在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。
Private Sub Command1_Click( )
CommonDialog1．Filter=【 】
CommonDialog1．FilterIndex=【 】
CommonDialog1．ShowSave
Info．Text=【 】
End Sub
[填空题]在窗体上画一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个名称为 C1、标题为“存盘”的命令按钮，编写适当的事件过程。程序运行时，如果单击“存盘”命令按钮，则打开保存文件对话框，并把Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: /my documents/”。请填空。
Private Sub C1_ Click（ ）
CD1. InitDir =
CD1. FileName = "myflie.txt"
CD1. Filter = “文本文件｜ ______”
CD1. ______ =
Open______ For Output As #1
Print #1, ______
Close #1
End Sub
[填空题]在窗体上画一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为 C1的命令按钮。程序运行后，如果单击C1命令按钮，则弹出打开文件对话框，该对话框的标题是“打开文件”，此时如果单击对话框上的“打开”按钮，则把选中的文件读到内存，并在Text1中显示出来。下面给出了C1的Click事件过程。请填空。
Private Sub C1_ Click（ ）
Dim n As Long
CD1 ______=“打开文件”
CD1. FileName = ""
CD1 ______= “所有文件｜*.* ｜文本文件｜*.txt ｜Word 文档｜*.doc"
CD1. FilterIndex = 2
CD1.
If CD1. FileName ＜＞ " " Then
Open ______ For ______ As #1
n = LOF(1)
Text1. Text = Input (n, #1)
Close ______
End If
End Sub
[填空题]设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（ ）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞"" Then
Open (9) For Input As #1
Line Input #1, Ch$
Close #1
Text1.Text= (10)
End If
End Sub
[填空题]设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示“打开”文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（ ）
CD1.Filter="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open______For Input As #1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
[单项选择]下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按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（ ）
CommonDialog1.CancelError=True
CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
CommonDialog1.Action=4
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. 程序出错!
