为Form1上画一个名称为Command1(打开)的命令按钮然后画一个CD1的通用对话框doc.docVIP

基础题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，通用对话框的Name、Filter、FilterIndex属性和ShowOpen方法。 【解题思路】当通用对话框显示为打开或另存为类型时，其FileName属性用于返回或设置所选的文件的路径和文件名。Filter（过滤器）属性用于指定在对话框的文件列表中显示文件的类型。语法为对象名.Filter =描述|文件扩展名。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.232。 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() CD1.ShowOpen End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2）【考点分析】本题考点有：命令按钮的的Name、Caption属性，文本框的Name、Text属性，计时器的Name、、Interval属性。 【解题思路】根据题意添加控件并通过属性窗口设置相应的属性，将计时器的Interval属性设为1000，并将初始的Enabled属性设为False。单击开始计数按钮时，将计时器的Enabled属性设为True，计时器开始工作，文本框中的数每秒自动增加1。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.233。 步骤2：编写程序代码。 参考答案 Private Sub C1_Click() T1.Enabled = True End Sub Private Sub T1_Timer() Text1.Text = Text1.Text + 1 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，窗体的Visible方法。 【解题思路】要把Form2设为启动窗体，只需选择工程菜单下的工程1属性，在通用选项卡中将启动对象选为Form2即可。 【操作步骤】 步骤1：打开本题工程文件，选择工程菜单下的工程1属性，在通用选项卡中将启动对象选为Form2。程序中用到的控件及属性见表3.234。 步骤2：分析并编写程序代码。 程序提供代码 窗体1的代码 Private Sub C1_Click() End End Sub 窗体2的代码 Private Sub C2_Click() Load Form1 Form1.Visible = True End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（2）【考点分析】本题考点有：单选按钮的Name、Value、Caption属性，命令按钮的Name属性，Call语句，Sub( )函数的调用，If判断语句，For循环语句，图片框的Print方法和连接符的使用。 【解题思路】通过For循环，用If语句判断选择了哪个单选按钮，并用图片框的Print方法将所做的选择显示在图片框内。 【操作步骤】 步骤1：打开本题工程文件，为控件添加相应的属性，如下表3.235所示。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub C1_Click() Dim k As Integer For k = 0 To 2 If Op1(k).Value = True Then Call draw(k) End If Next k End Sub Sub draw(a As Integer) P1.Print 选择了 Op1(a).Caption End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 综合题 【考点分析】本题考点有：文本框的Text属性，Function( )函数，数组的定义和应用，Val( )函数，If判断语句和For循环语句。 【解题思路】单击查找按钮，先用Val( )函数将文本框中的字符串转化为数值，然后通过For循环，通过调用Function( )函数用If语句找出满足条件的三个素数，最后通过For循环语句将找到的素数放在标签控件数组中。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Function IsPrime(ByVal x As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(x) If x Mod i = 0 Then IsPrime = False