问答题 完成下列问题:

问答题 在名称为Form1的窗体上画一个名称为Command1的命令按钮,标题为“打开文件”,再画一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框。请按下列要求设置属性和编写代码:
①设置适当的属性,使用话框的标题为“打开文件”。
②设置适当的属性,使对话框的“文件类型”下拉列表框中有2个选项:“文本文件”、“所有文件”(如图1所示),默认的类型是“所有文件”。
[*]
③编写命令按钮的事件过程,使得单击按钮可以弹出打开文件对话框。
要求:程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
【正确答案】[操作步骤]
第1步:新建一个标准EXE工程。
第2步:添加命令按钮。在窗体上有一个命令按钮控件,设置其Caption属性为“打开文件”。
第3步:添加通用对话框。选择“工程”菜单下的“部件”子菜单,在弹出的“部件”对话框中的Microsoft Common Dialog Control 6.0前的复选框中打上勾号,再单击“确定”按钮。此时,在工具箱的右下角会显示出通用对话框控件图标,选择该图标在窗体上画一个通用对话框控件。
第4步:设置通用对话框的属性。设置通用对话框的名称属性为CD1,设置DialogTitle属性为“打开文件”,设置Filter属性为“文本文件|*.txt|所有文件|*.*”,设置FilterIndex属性为2,如图1所示。
【答案解析】[解析] 本题需要用到外部控件通用对话框Microsoft Common Dialog Control,通用对话框的标题由DialogTitle属性控制;文件类型的过滤方式由Filter属性控制,当有多种过滤方式时,可用FilterIndex属性指定默认的过滤方式。
问答题 在名称为Form1的窗体上画一个命令按钮,名称为Command1,其标题为“移动本按钮”,如图2所示。
[*]
要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向左移动100。
要求:程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
【正确答案】[操作步骤]
第1步:新建一个标准EXE工程。
第2步:在窗体上画一个命令按钮,设置其Caption属性为“移动本按钮”。
第3步:编写代码。双击命令按钮,进入代码编写状态,编写如下代码:
Private Sub Command1_Click()
Command1.Left=Command1.Left-100
End Sub
第4步:调试并运行程序,并按题目要求保存工程。
【答案解析】[解析] 窗体上的控件位置由其Left和Top属性控制,要使得每单击一次按钮,按钮向左移动100,只需每次单击时将其Left属性值减少100即可。