在Form上用名称为Shape的形状控件画一个椭圆,高、宽分别为、。.doc

基础题(1) 【考点分析】本题考点有:窗体的 Caption 、 MaxButton 属性, 形状控件的 Name 、 Height 、 Width 、 Shape 、 BorderColor 属性。【解题思路】根据题意建立相应的控件并设置其属性。椭圆的边线颜色通过形状控件的 BorderColor 属性来设置。【操作步骤】步骤 1:建立界面,添加控件并设置控件的属性。程序中用到的控件及属性见表 . 表 步骤 2:调试并运行程序,关闭程序后按题目要求存盘。基础题(2) 【考点分析】本题考点有: 命令按钮的 Name 、 Caption 属性, 窗体的 Caption 属性,窗体的 Show 和 Hide 方法以及窗体的 Click 事件。【解题思路】要把 Form2 设为启动窗体,只需选择"工程"菜单下的"工程 1属性", 在通用选项卡中将启动对象选为 Form2 即可。【操作步骤】步骤 1 :新建一个工程文件并建立两个窗体 Form1 和 Form2 ,选择" 工程" 菜单下的" 工程 1 属性" ,在通用选项卡中将启动对象选为 Form2 。程序中用到的控件及属性见表 。表 步骤 2:编写程序代码。参考答案窗体 1的代码 Private Sub Form_Click() End Sub 窗体 2的代码 Private mand1_Click() End End Sub Private Sub Form_Click() End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。简答题( 1) 【考点分析】本题考点有:文本框的 Text 属性单选按钮的 Name 、 Caption 、 Value 属性, Mid( )函数, If判断语句和 For 循环语句。【解题思路】用 Unum 来表示大写字母的个数, Lnum 来表示小写字母的格式。通过 Mid( ) 函数对变量 s中的内容进行逐个判断, 将满足条件的字母个数加 1; 选择不同的单选按钮, Unum 和 Lnum 之间将运用不同的计算大小写字母的个数关系,最后将统计的结果显示在文本框中。【操作步骤】步骤 1:打开本题工程文件,建立单选按钮并设置其属性。程序中用到的控件及属性见表 。表 步骤 2:分析并编写程序代码。程序提供代码 Dim s As String Private mand1_Click() Open "" For Input As #1 s= Input$(LOF(1), #1) Close #1 End Sub Private mand2_Click() '由考生编写的内容 End Sub Private Sub Form_Unload(Cancel As Integer) Open "" For Output As #1 Print #1, , , , Close #1 End Sub 程序结束参考答案 Lnum =0 Unum =0 For i=1 To Len(s) If Mid(s, i, 1) >= "A" And M