名称为op在form1上画一个p1的图片框,然后建立一个主菜单,标题为“操作”,名称为op,

《名称为op在form1上画一个p1的图片框,然后建立一个主菜单,标题为“操作”,名称为op,》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基础题（1）【考点分析】本题考点有：菜单编辑器的使用（名称，标题，内缩符号）和图片框的Name属性和Print、Cls方法。【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。另外，在图片框中显示"等级考试"的信息通过图片框的Print方法实现，清除图片框信息通过图片框的Cls属性实现。【操作步骤】步骤1：建立界面，添加一个名称为P1的图片框，然后用菜单编辑器建立如下表3.226所示的菜单。表3.226标题操作显示清除名称OpDisClea内缩符号011步骤2：编写程序代码。参考答案PrivateSubClea_Cli

2、ck()P1.ClsEndSubPrivateSubDis_Click()P1.Print"等级考试"EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题（2）【考点分析】本题考点有：列表框的的Name、List、Text属性，AddItem方法和DblClick事件。【解题思路】在列表框的DblClick事件中，通过AddItem方法将列表框中选中的文本添加到列表框中。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.227。步骤2：编写程序代码。参考答案PrivateS

3、ubL1_DblClick()L1.AddItemL1.TextEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（1）【考点分析】本题考点有：文本框的Name属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性，窗体的Click事件以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True，即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。【操作步骤

4、】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.228和3.229。表3.228控件框架1框架2文本框属性NameCaptionNameCaptionName设置值F1交通工具F2到达目标Text1表3.229控件单选按钮1单选按钮2单选按钮3单选按钮4属性NameCaptionNameCaptionNameCaptionNameCaption设置值Op1飞机Op2火车Op3广州Op4昆明步骤2：分析并编写程序代码。程序提供代码PrivateSubForm_Click()'需要考生编写的内

5、容EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"out3.txt"ForOutputAs#1Print#1,Op1.Value,Op2.Value,Op3.Value,Op4.Value,Text1.TextClose#1EndSub程序结束参考答案IfOp1AndOp3ThenText1.Text="坐飞机去广州"ElseIfOp1AndOp4ThenText1.Text="坐飞机去昆明"ElseIfOp2AndOp3ThenText1.Text="坐

6、火车去广州"ElseIfOp2AndOp4ThenText1.Text="坐火车去昆明"EndIf步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题（2）【考点分析】本题考点有：文本框的Name、Text属性，单选按钮的Name、Caption、Value属性，"&"连接符以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择"交换"单选按钮并单击窗体时，通过一个文本框的Caption属性作为中间变量将文本框1和文本框2的内容交换，并将文本框的Caption属性设为"交换成功"；选择"连接"

7、单选按钮并单击窗体时，用"&"连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.230。步骤2：分析并编写程序代码。程序提供代码PrivateSubText3_Click()'需要考生编写的内容EndSubPrivateSubForm_Unload(CancelAsInteger)Open"out4.txt"ForOutputAs#1Print#1,Op1.Value,Op2.Value,Text1.Text,Text2.Text,L

8、ab1.CaptionClose#1EndSub程序结束参考答案IfOp1ThenText3.Text=Text1.TextText1.Text=Text2.TextText2.Text=Text3.TextText3.Text="交换成功"ElseIfOp2ThenText3.Text=