更多"设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和"的相关试题:
[填空题]设窗体上有一个名为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
[填空题]设窗体上有一个名称为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
[单项选择]
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1. Text)
Select Case x
Case Is＜-10, Is＞=20
Print "输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1.Text)
Select Case x
Case Is＜-10.Is＞=20
Print"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是______。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]
窗体上有1个过程为CD1的通用对话框，1个名称为Command1晌命令按钮。命令按钮的单击事件过程 如下：
Private Sub Command1_Click（ ）
CD1.FileName=" "
CD1.Filter="All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，错误的叙述是（）。
A. 执行以上事件过程，通用对话框被设置为“打开”文件对话框
B. 通用对话框的初始路径为当前路径
C. 通用对话框的默认文件类型为*.Txt
D. 以上代码不对文件执行操作
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load（ ） Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As Integer，X As Single，Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print"Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
[单项选择]窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下：
Private Sub Command1_Click（ ）
CD1. Filter = "All File| *. * |Text File| *. txt|PPT| *. ppt"
CD1. FiherIndex = 2
CD1. InitDir = "C: /"
CD1. FileName = "default"
CD1. ShowSave
End Sub
关于上述过程，以下叙述中正确的是( )。
A. 默认过滤器为“*. ppt”
B. 指定的初始目录为“C: /”
C. 打开的文件对话框的标题为“default”
D. 上面事件过程实现保存文件的操作
[填空题]设窗体上有Text1文本框和Command命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& （ 13 ）
End if
Next k
Text1= （ 14 ）
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= （ 15 ）
Exit Function
End If
Next k
Found=False
End Function
运 行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命 令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请 填空。
[单项选择]窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Command1_Click（ ）
CD1.FileName=" "
CD1.Filter="All Files|*.*|(*.Doc)|*.Doc|(*.txt)|*.txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，叙述错误的是______。
A. 执行以上事件过程，通用对话框被设置为"打开"文件对话框
B. 通用对话框的初始路径为当前路径
C. 通用对话框的默认文件类型为*.txt
D. 以上代码不对文件执行读写操作
[单项选择]在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮,以及其他一些控件。要求在程序运行时,单击Command1按钮,则显示打开文件对话框,并在选择或输入个文件名后,就可以打开该文件。以下是Command1_Click事件过程的两种算法
算法1：
Private Sub Command1_Click（ ）
CommonDialog1.Show Open
Open CommonDialog1.File Name For Input As#1
End Sub
算法2：
Private Sub Command1_Click（ ）
CommonDialog1.Show Open
If CommonDialog1.File Name<>" "Then
Open CommonDialog1.File Name For Input As#1
EndIf
End Sub
下面关于这两种算法的叙述中正确的是【 】
A. 显示打开文件对话框后若未选择或输入任何文件名,则算法2会出错,算法1不会
B. 显示打开文件对话框后若未选择或输入任何文件名,则算法1会出错,算法2不会
C. 两种算法的执行结果完全一样
D. 算法1允许输入的文件名中含有空格,而算法2不允许
