在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮,以及其他一些控件。要求在程序运行时,单击Command1按钮,则显示打开文件对话框,并在选择或输入了1个文件名后,就可以打开该文件。以下是Command1_Click事件过程的两种算法
算法1:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As1
End Sub
算法2:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
IfCommonDialog1.FileName<>””Then
Open CommonDialog1.FileName For Input As1
End If
End Sub
下面关于这两种算法的叙述中正确的是()。
A.显示打开文件对话框后若未选择或输入任何文件名,则算法2会出错,算法1不会
B.显示打开文件对话框后若未选择或输入任何文件名,则算法1会出错,算法2不会
C.两种算法的执行结果完全一样
D.算法1允许输入的文件名中含有空格,而算法2不允许
时间:2023-03-18 13:03:58
相似题目
-
设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是().
A . cmdc
B . cmdb
C . cmdA
D . Command1
-
应用程序窗体的名称属性为Frm1,窗体上有一个命令按钮,其名称属性为Cmd1,窗体和命令按钮的Click事件过程名分别为()
A . Frm1_Click()Cmd1_Click()
B . Form_Click()Command1_Click()
C . Frm1_Click()Command1_Click()
D . Form_Click()Cmd1_Click()
-
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:
-
设在窗体上有两个命令按钮,其中一个命令按钮的名称为 cmda ,则另一个命令按钮的名称可能是 ( )。
-
设窗体上有一个名称为 Option1 的单选按钮数组(其下标从 0 开始),共有 4 个单选按钮,并有下面事件过程: Private Sub Option1_Click(Index As Integer) n = Index If Index < 3 Then n = n + 1 Print Option1(n).Caption End Sub 程序运行时,单击其中一个单选按钮,则在窗体上显示的是 ________ 。
-
在窗体上有一个文本框,名称为TextBox1,程序运行后,要求该文本框不能接收键盘输入,但能输出信息,以下设置正确的是( )。
-
在窗体上画1个命令按钮和1个通用对话框,其名称分别为Command1和CommonDialog1,然后编写如下事件过程:
Private Sub Command1_Click()
CommonDialog1.______="打开文件"
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="c:\"
CommonDialog1.ShowOpen
End Sub
该程序的功能是,程序运行后,单击命令按钮,将显示“打开”文件对话框,其标题是“打开文件”,在“文件类型”栏内显示“AIl Files(*.*)”,并显示C盘根目录下的所有文件,请填空。
-
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:
Private Sub Timer1_
TxtTime.text=Time
End Sub
在下画线上应填入的内容是
A.Enabled
B.Visible
C.Interval
D.Time
-
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
<img src='https://img2.soutiyun.com/shangxueba/ask/4359001-4362000/4359886/ct_ctvbbm_choose_05019(20092).jpg' />
设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是
A.Open"c:\Test29.dat"For Random As1 Put1,1,p C10se 1
B.OpeH"c:\Test29.dat"For Random As 1 Get1,1,p C108C1
C.Open"c:\Test29.dat"For Random As1 Len=Len(p) Put1,1,p C108C1
D.OPell"c:\Test29.dat"For,Random As1 Len=Len(p) Get1,1,p C106e1
-
(16 )在窗体上画两个单选按钮(名称分别为 Option1 、 option2, 标题分别为 “ 宋体 ” 和 “ 黑体 ” ) 、 1 个复选框(名称为 check1, 标题为 “ 粗体 ” )和 1 个文本框(名称为 text1,text 属性为 “ 改变文字字体 ” ) ,窗体外观如图所示 。 程序运行后 , 要求 “ 宋体 ” 单选按钮和 “ 粗体 ” 复选框被选中 , 则以下能够实现上述操作的语句序列是
<img src='https://img2.soutiyun.com/ask/uploadfile/4887001-4890000/63a34c5c137b801731b9056652595682.gif' />
A) Option1. value = False
Check1. value = True
B) Option1. value = True
Check1. value = 0
C) Option1. value = True
Check1. value = 2
D) Option1. value = True
Check1. value = 1
-
在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮,以及其他一些控件。要求在程序运行时,单击Command1按钮,则显示打开文件对话框,并在选择或输入个文件名后,就可以打开该文件。以下是Command1_Click事件过程的两种算法算法1:Private Sub Command1_Click()CommonDialog1.Show OpenOpen C
A.显示打开文件对话框后若未选择或输入任何文件名,则算法2会出错,算法1不会
B.显示打开文件对话框后若未选择或输入任何文件名,则算法1会出错,算法2不会
C.两种算法的执行结果完全一样
D.算法1允许输入的文件名中含有空格,而算法2不允许
-
窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号()处应填入的内容是。
Private Sub Text1_LostFocus()
Call CheckInput(Text1,500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2,1000)
End Sub
Sub CheckInput(t As ?,x As Integer)
If Val(t.Text)>x Then
MsgBox"请重新输入!"
End If
End Sub
A.Text
B.SelText
C.Control
D.Form
-
(28 ) 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 , 要求文本框 Text1 中输入的数据小于 500 , 文本
框 Text2 中输入的数据小于 1000 ,否则重新输入。为了实现以上功能,在下列程序中问号()处
应填入的内容是()。
Private Sub Text1_LostFocus()
Call CheckInput(Text1,500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2,1000)
End Sub
Sub CheckInput(t As ?,x As Integer)
If Val(t.Text)>x Then
MsgBox" 请重新输入 !"
End If
End Sub
A ) Text
B ) SelText
C ) Control
D ) Form
-
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图1所示),就可以把文本框中的内容写到文件Out.txt中,每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。<img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/9ee39e48e3711140203a592ce77b107b.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/54c76f430783fad60b8a548d0f7a9765.jpg' />
-
在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。程序为:
<img src='https://img2.soutiyun.com/ask/uploadfile/2523001-2526000/b1da673322f0d1df5aa81b5625094699.jpg' />
在下划线上应填入的内容是
A.Time
B.False
C.True
D.Timer
-
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:priva
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。
A.All Files(*.*)
B.Text Files(*.txt)
C.Batch Files(*.bat)
D.不确定
-
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_click() Di
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容,是 ______。
A.79
B.340
C.97
D.死循环
-
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:运行程序后单击命令按钮Command1,窗体上显示的是()
A.12345
B.678910
C.23456
D.62345
-
窗体上有一个名称为CD1的通用对话框控件和由4个命令按钮组成的控件数组Command1,其下标从左到右分别为0、123。窗体外观如图所示。对上述程序,下列叙述中错误的是()
A.单击“打开”按钮,显示打开文件的对话框
B.单击“保存”按钮,显示保存文件的对话框
C.单击“打印”按钮,能够设置打印选项,并执行打印操作
D.单击“退出”按钮,结束程序的运行
-
在窗 体上画 1 个命令按钮 和 1 个通用对话框, 其名称分别 为 Command1 和CommonDialog1,然后编写如下事件过程:Private Sub Command1_Click()CommonDialog1. _________ = "打开文件"" CommonDialog1.Filter = "All Files(*.*)|*.*" CommonDialog1.InitDir =
-
窗体上有一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮,并有如下事件过程:Private Sub Command1_Click()CommandDialog1.DefaultExt=”doc”CommandDialog1.FileName=”VB.txt”CommandDialog1.FileName=&rdq
A.打开的对话框中文件“保存类型”框中显示“All(*.*)”
B.实现保存文件的操作,文件名是VB.txt
C. DefaultExt属性与FileName属性所指明的文件类型不一致,程序出错
D.对话框的Filter属性没有指出txt类型,程序运行出错
-
注意:下面出现的“”均为C:wexam25160002。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立1个名称为Op1的单选按钮数组,含3个单选按钮,它们的标题依次为“选择1”、“选择2”和“选择3”,其下标分别为0、1和2,初始状态下,“选择2”为选中状态。运行后的窗体如图26-1所示。 注意;存盘时必须存放在考生文件夹下,
-
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下: Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form, X As Integer) y=IIf(x>,10,
A.Forml的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
-
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt_|Batch Files (*.bat)|*.bat" CommonDialog1.FilterIndex=