在Form1上为Shape1的形状控件画1个椭圆,高、宽分别为1000、2000.docVIP

基础题（1）【考点分析】本题考点有：窗体的Caption、MaxButton属性，形状控件的Name、Height、Width、Shape、BorderColor属性。 【解题思路】根据题意建立相应的控件并设置其属性。椭圆的边线颜色通过形状控件的BorderColor属性来设置。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.246. 表3.246 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2） 【考点分析】本题考点有：命令按钮的Name、Caption属性，窗体的Caption属性，窗体的Show和Hide方法以及窗体的Click事件。 【解题思路】要把Form2设为启动窗体，只需选择工程菜单下的工程1属性，在通用选项卡中将启动对象选为Form2即可。 【操作步骤】 步骤1：新建一个工程文件并建立两个窗体Form1和Form2，选择工程菜单下的工程1属性，在通用选项卡中将启动对象选为Form2。程序中用到的控件及属性见表3.247。 表3.247 步骤2：编写程序代码。 参考答案 窗体1的代码 Private Sub Form_Click() Form1.Hide End Sub 窗体2的代码 Private Sub Command1_Click() End End Sub Private Sub Form_Click() Form1.Show End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（1）【考点分析】本题考点有：文本框的Text属性单选按钮的Name、Caption、Value属性，Mid( )函数，If判断语句和For循环语句。 【解题思路】用Unum来表示大写字母的个数，Lnum来表示小写字母的格式。通过Mid( )函数对变量s中的内容进行逐个判断，将满足条件的字母个数加1；选择不同的单选按钮，Unum和Lnum之间将运用不同的计算大小写字母的个数关系，最后将统计的结果显示在文本框中。 【操作步骤】 步骤1：打开本题工程文件，建立单选按钮并设置其属性。程序中用到的控件及属性见表3.248。 表3.248 步骤2：分析并编写程序代码。 程序提供代码 Dim s As String Private Sub Command1_Click() Open in3.dat For Input As #1 s = Input$(LOF(1), #1) Close #1 End Sub Private Sub Command2_Click() 由考生编写的内容 End Sub Private Sub Form_Unload(Cancel As Integer) Open out3.dat For Output As #1 Print #1, Option1.Value, Option2.Value, Option3.Value, Text1.Text Close #1 End Sub 程序结束 参考答案 Lnum = 0 Unum = 0 For i = 1 To Len(s) If Mid(s, i, 1) = A And Mid(s, i, 1) = Z Then Unum = Unum + 1 If Mid(s, i, 1) = a And Mid(s, i, 1) = z Then Lnum = Lnum + 1 Next i If Option1.Value = True Then Text1 = Unum - Lnum If Option2.Value = True Then Text1 = Unum + Lnum If Option3.Value = True Then Text1 = Unum * Lnum 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（2）【考点分析】本题考点有：图片框的Visible属性和DragDrop事件图片控件数组，If判断语句和For循环语句。 【解题思路】在VB窗体上拖动图像程序设计，直接使用DragDrop事件实现对图像框的随意拖动、精确拖动，这种方法也适用于其它可以拖动的控件。通过For循环语句将图片框数组的Visible属性设为True或False来实现香蕉被放入图片框的效果。 【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Pr