网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上画一个名称为File的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1．FileName，1) End Sub以下关于该程序的叙述中，错误的是
A．x没有实际作用，因此可以将该语句写为：Call Shell(FilE.FileName，1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过File1．FileName指定
D．File1中显示的是当前驱动器、当前目录下的文件
参考答案
更多 “ 在窗体上画一个名称为File的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1．FileName，1) End Sub以下关于该程序的叙述中，错误的是A．x没有实际作用，因此可以将该语句写为：Call Shell(FilE.FileName，1)B．双击文件列表框中的文件，将触发该事件过程C．要执行的文件的名字通过File1．FileName指定D．File1中显示的是当前驱动器、当前目录下的文件 ” 相关考题
考题
在窗体上画一个名称为File1的文件列表框，并编写如下程序：Private Sub File1_DblClick（）x=Shell（File1.FileName,1）End Sub以下关于该程序的叙述中，错误的是（ ）。A．x没有实际作用，因此可以将该语句写为：Call Shell（File1,FileName,1）B．双击文件列表框中的文件，将触发该事件过程C．要执行的文件的名字通过File1.FileName指定D．File1中显示的是当前 驱动 器、当前目录下的文件
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=iNext ix=1MsgBoxa(f(x)+x)End SubFunction f(y As Integer)y=y+2f=yEnd Function程序运行后，单击命令按钮，消息框的输出结果为______。
考题
在窗体上画一个名称为File1的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1_FileName，1) End Sub 以下关于该程序的叙述中，错误的是A．x没有实际作用，因此可以将该语句写为：Call Shell(File1．FileName，1)B．双击文件列表框中的文件，将触发该事件过程C．要执行的文件的名字通过File1．FileName指定D．File1中显示的是当前驱动器、当前目录下的文件
考题
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．10 5B．20 5C．20 40D．10 40
考题
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程； Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．10 5B．20 5C．20 40D．10 40
考题
在窗体上画一个名称为Filel的文件列表框，并编写如下程序： Private Sub FUel_DblClick() x=Shell(File1_ileName，1) End Sub 以下关于该程序的叙述中，错误的是( )。A．x没有实际作用，因此可以将该语句写为：Call Shell(Filel.FileName,1)B．双击文件列表框中的文件，将触发该事件过程C．要执行的文件的名字通过File1.FileName指定D．Ffle1中显示的是当前驱动器、当前目录下的文件
考题
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序： Pfivate Sub Commandl_Click() Dima(10) As Integer Dimx As Integer Fori=1 To 10 a(i)=8+i NeXt X=2 Print a(f(x)+x) End Sub Function f(X As Integer) X=X+3 f=X End FuA．12B．15C．17D．18
考题
在窗体上画一个名称为Filel的文件列表框，并编写如下程序： Private Sub Filel_DblClick() x=Shell(Filel. FileName, 1) End Sub 以下关于该程序的叙述中，错误的是______。A．x没有实际作用，因此可以将该语句写为：Call Shell(Filel. FileName, 1)B．双击文件列表框中的文件，将触发该事件过程C．要执行的文件的名字通过Filel. FileName指定D．Filel中显示的是当前驱动器、当前目录下的文件
考题
在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签kabel1中显示当前文件夹中文件的数量，如图所示。能够正确实现上述功能的程序是A．Private Sub Dir1_Change( ) Filc1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubB．Private Sub Dir1_Change( ) File1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End SubC．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubD．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.List End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub
热门标签
最新试卷