问答题
完成下列问题：
问答题
在名称为Form1的窗体上画一个名称为Drive1的驱动器列表框、一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，一个名称为Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle为1的标签。窗体的标题没置为“文件系统控件”，如图1所示。请编写适当的程序，使得这3个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
【正确答案】[操作步骤]
第1步：新建一个标准EXE工程，修改窗体的Caption属性为“文件系统控件”。
第2步：在窗体上画一个驱动器列表框、一个目录列表框、一个文件列表框，保持各控件的默认属性不变。
第3步：在窗体上画一个标签控件，修改其Caption属性为“文件名”；再画一个标签控件，修改其BorderStyle属性值为1。
第4步：编写程序。
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dirve1_Change()
Dir1.Path=Drive1.Drive
End Sub
Private Sub File1_Click( )
Label2=File1.FileName
End Sub
第5步：调试、运行并保存程序。
第1步：新建一个标准EXE工程，修改窗体的Caption属性为“文件系统控件”。
第2步：在窗体上画一个驱动器列表框、一个目录列表框、一个文件列表框，保持各控件的默认属性不变。
第3步：在窗体上画一个标签控件，修改其Caption属性为“文件名”；再画一个标签控件，修改其BorderStyle属性值为1。
第4步：编写程序。
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dirve1_Change()
Dir1.Path=Drive1.Drive
End Sub
Private Sub File1_Click( )
Label2=File1.FileName
End Sub
第5步：调试、运行并保存程序。
【答案解析】[解析] 驱动器列表框显示系统下的盘符，目录列表框显示当前盘符下的目录文件路径，文件列表框显示当前目录下的文件名。通过下面的事件，使得三者同步变化：
Private Sub Drive1_Change()
Dir1.path=Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
单击文件列表框时，可以通过文件列表框的FileName属性取得当前从列表框中选取的文件名。
Private Sub Drive1_Change()
Dir1.path=Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
单击文件列表框时，可以通过文件列表框的FileName属性取得当前从列表框中选取的文件名。
问答题
在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置，运行情况如图2所示。
[*]
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
[*]
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】[操作步骤]
第1步：新建一个标准EXE工程，保持窗体默认属性不变。
第2步：在窗体上画一个水平滚动条，将其Min属性设置为1，Max属性设置为100。由于先添加滚动条，后添加文本框，滚动条的TabIndex属性默认为0，所以无须修改。
第3步：添加文本框。在窗体上画一个文本框，将其Text属性改为1。
第4步：编写代码。双击窗体上的滚动条控件进入代码编辑窗口，编写如下事件过程：
Private Sub HScroll1_Change()
Text1.Text=HScroll1.Value
End Sub
第5步：调试并运行程序，按题目要求保存工程。
第1步：新建一个标准EXE工程，保持窗体默认属性不变。
第2步：在窗体上画一个水平滚动条，将其Min属性设置为1，Max属性设置为100。由于先添加滚动条，后添加文本框，滚动条的TabIndex属性默认为0，所以无须修改。
第3步：添加文本框。在窗体上画一个文本框，将其Text属性改为1。
第4步：编写代码。双击窗体上的滚动条控件进入代码编辑窗口，编写如下事件过程：
Private Sub HScroll1_Change()
Text1.Text=HScroll1.Value
End Sub
第5步：调试并运行程序，按题目要求保存工程。
【答案解析】[解析] 滚动条的刻度范围由Min和Max两个属性决定，对于本题只需将滚动条的Min属性设置为1，Max属性设置为100即可满足刻度范围要求。窗体上控件焦点的顺序由各控件的TabIndex属性控制。程序运行时，要求焦点在滚动条上，只需将滚动条的TabIndex属性设置为0即可。滚动条的滑块位置由其Value属性设置，当Value属性值发生改变时会引发滚动条的Change事件。