在Form1上加一个名称为CD1(初始路径为C盘)的通用对话框.docVIP

基础题(1)【解题思路】通过通用对话框的Name 、DialogTitle、FileName和InitDir属性设置对话框，使CD1的初始路径为c：\，默认的文件名为None标题为保存等级考试。 【操作步骤】 步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中涉及的控件及属性见表3.157。 表3.157 控件 工程-部件-选择Microsoft commom Dialog Control 控件 属性 Name Dialog Title FileName InitDir 设置值 CD1 保存等级考试 None C:\ 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 Private Sub Form_Load() CD1.ShowSave End Sub 基础题(2) 【解题思路】根据题意编辑菜单，在Form Load事件过程中，设置menu1 的Enabled 属性为False，menu2的Checked属性为True，使运行程序时，menu1菜单项为灰色，menu2菜单项前有√。 【操作步骤】 步骤1：建立界面，并设置菜单的属性见表3.158。 表3.158 步骤2：编写程序代码。 参考答案 Private Sub menu2_Click() menu1.Enabled = True End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】Int函数和Rnd函数用于生成10个整数元素，并把这10个数存入数组a。再通过对单选按钮Value属性的判断，确定是 查找最大值还是查找最小值，循环判断语句用于找出数组中的最大值(或最小值)，通过标签的Caption属性将结果显示在标签Label2中。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(10) As Integer Private Sub Form_Load() For i = 1 To 10 　　　　a(i) = Int(Rnd * 100) Next End Sub Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 　　　　If Option1.Value = True Then 　If a(i) ? x Then 　？= a(i) 　　　　　　End If 　ElseIf a(i) ? y Then 　？= a(i) 　　　　End If Next If Option1.Value = True Then 　　　　Label2.Caption = x Else 　　　　Label2.Caption = y End If End Sub 程序结束 参考答案 第1个？处填入： 第2个？处填入：x 第3个？处填入： 第4个？处填入：y 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2)【解题思路】在List1 DblClick事件过程中，通过Call语句调用MoveItem函数，使该项目被添加到List2中，同时在List1中清除该项目。在Command1 Click事件过程中，通过Call语句调用MoveAll函数，使List1中所有的项目显示在List2中(List2中已有项目不变)，List1中的内容不变。 MultiSelect属性设置该列表框是否能选择多项。可能的取值如下： 0(默认值)：表示不允许多重选择，用户一次只能选择一个。 1：表示简单多重选定，用户用鼠标单击或按Space键来选取多重列表项，但一次只能增减一个项目。 2：表示高级多重选定，用户可利用Ctrl键与鼠标的配合来进行重复选取，或利用与Shift键的配合进行连续选取。 【操作步骤】 步骤1：打开本题工程文件， 设置List1列表框的MultiSelect属性为2。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub List1_DblClick() 　Call MoveItem(？) End Sub Private Sub Command1_Click() Call MoveAll End Sub Public Sub MoveItem(L1 As ListBox, L2 As ListBox) 　L2.AddItem ? 　L1.RemoveItem ? End Sub Public Sub MoveAll() Fo