在窗体上画一个名称为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中显示的是当前驱动器、当前目录下的文件

相似考题

1.在窗体上画一个名称为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中显示的是当前 驱动 器、当前目录下的文件

2.在窗体上画一个名称为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中显示的是当前驱动器、当前目录下的文件

3.设有如下通用过程： 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

4.在窗体上画一个命令按钮，其名称为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程序运行后，单击命令按钮，消息框的输出结果为______。

更多“在窗体上画一个名称为File的文件列表框,并编写如下程序: Private Sub File1_DblClick()x=Shell(F ”相关问题

  • 第1题：

    设有如下通用过程： 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 5

    B．20 5

    C．20 40

    D．10 40


    正确答案：C
    解析：在f过程中实参x的值被改变，值为20。而y的值是函数返回的值，为40。

  • 第2题：

    在窗体上画一个命令按钮，其名称为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 Fu

    A．12

    B．15

    C．17

    D．18


    正确答案：D

  • 第3题：

    在窗体上画一个名称为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 Sub

    B．Private Sub Dir1_Change( ) File1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub

    C．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 Sub

    D．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


    正确答案：C
    解析：List属性用来列出表项的内容，可以加下标用“()”括起来配合使用。根据题意，应选择文件列表框的ListCount属性，该属性用于返回文件的数量值。故B、D项错误。A项缺少“Label1.Caption=File1.ListCount”这一语句，从而使得在仅触动Dir1的Change事件时，Label1l没有反应。

  • 第4题：

    在窗体上画一个名称为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中显示的是当前驱动器、当前目录下的文件


    正确答案：A

  • 第5题：

    在窗体上画一个名称为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中显示的是当前驱动器、当前目录下的文件


    正确答案：C
    解析：文件列表框接收DblClick事件。利用这一点，可以执行文件列表框中的某个可执行文件。也就是说，只要双击文件列表框中的某个可执行文件，就能执行该文件。这可以通过Shell函数来实现。上述过程中的FileName是文件列表框中被选择的可执行文件的名字，双击该文件名就能执行。

相关内容