《名称为Op在Form1上画一个p1的图片框然后建立一个主菜单标题为“操作”名称为OP》由会员分享，可在线阅读，更多相关《名称为Op在Form1上画一个p1的图片框然后建立一个主菜单标题为“操作”名称为OP（4页珍藏版）》请在金锄头文库上搜索。
1、基础题（1） 【考点分析】本题考点有：菜单编辑器的使用（名称，标题，内缩符号）和图片框的Name 属性和Print、Cls 方法。【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。另外，在图片框中显示等级考试的信息通过图片框的Print方法实现，清除图片框信息通过图片框的Cls属性实现。【操作步骤】步骤1：建立界面，添加一个名称为P1 的图片框，然后用菜单编辑器建立如下表3.226 所示的菜单。表3.226标题 操作 显示 清除名称 Op Dis Clea内缩符号 0 1 1步骤2：编写程序代码。参考答案Private Sub Clea_Click()P1.ClsEnd SubPriv
2、ate Sub Dis_Click()P1.Print 等级考试End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题（2） 【考点分析】本题考点有：列表框的的 Name、List、Text属性，AddItem方法和DblClick事件。【解题思路】在列表框的DblClick 事件中，通过AddItem方法将列表框中选中的文本添加到列表框中。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.227。步骤2：编写程序代码。参考答案Private Sub L1_DblClick()L1.AddItem L1.TextEnd Sub步骤3：调试并运
3、行程序，关闭程序后按题目要求存盘。简单题（1） 【考点分析】本题考点有：文本框的Name属性，框架的Name 、Caption属性，单选按钮的Name、Caption 、Value属性，窗体的Click 事件以及If 判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的 Value属性是否为True，即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.228和3.229 。表3.228控件 框架1 框架2 文本框属性
4、 Name Caption Name Caption Name设置值 F1 交通工具 F2 到达目标 Text1表3.229控件 单选按钮1 单选按钮2 单选按钮3 单选按钮4属性 Name Caption Name Caption Name Caption Name Caption设置值 Op1 飞机 Op2 火车 Op3 广州 Op4 昆明步骤2：分析并编写程序代码。程序提供代码Private Sub Form_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & out3.txt
5、For Output As #1Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.TextClose #1End Sub程序结束参考答案If Op1 And Op3 ThenText1.Text = 坐飞机去广州ElseIf Op1 And Op4 ThenText1.Text = 坐飞机去昆明ElseIf Op2 And Op3 ThenText1.Text = 坐火车去广州ElseIf Op2 And Op4 ThenText1.Text = 坐火车去昆明End If步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单
6、题（2） 【考点分析】本题考点有：文本框的Name、Text属性，单选按钮的 Name、Caption、Value属性，&连接符以及If 判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择交换单选按钮并单击窗体时，通过一个文本框的Caption属性作为中间变量将文本框 1和文本框 2的内容交换，并将文本框的Caption 属性设为交换成功；选择连接单选按钮并单击窗体时，用&连接符将文本框1和文本框 2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.230。步骤2：分析并编写程序代码。程序提供代码Priv
7、ate Sub Text3_Click()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer)Open out4.txt For Output As #1Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Lab1.CaptionClose #1End Sub程序结束参考答案If Op1 ThenText3.Text = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextText3.Text = 交换成功Els
8、eIf Op2 ThenText3.Text = Text1.Text & Text2.TextEnd If步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【考点分析】本题考点有：Sub( )函数，Int( )函数，文件操作，App.Path相对路径，数组的定义和应用，窗体的Print方法和For循环语句。 【解题思路】在读入数据命令按钮中，通过调用Sub过程来实现对datain1.txt和datain2.txt文件的读数据操作。单击计算按钮，利用For循环实现将把一个数组的元素的第 n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素，数字的截尾取整用Int(
9、 )函数来实现；并用窗体的Print 方法将结果显示在窗体上。单击存盘按钮，将结果存在Dataout.txt文件中。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.231。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerDim Sum As IntegerSub ReadData1()Open App.Path & & datain1.txt For Input As #1For i = 1 To 20Input #1, Arr1(i)Ne
10、xt iClose #1End SubSub ReadData2()Open App.Path & & datain2.txt For Input As #1For i = 1 To 20Input #1, Arr2(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & & Filename For Output As #1Print #1, NumClose #1End SubPrivate Sub C1_Click() 要求考生编写的内容End SubPrivate S
11、ub C2_Click() 要求考生编写的内容End SubPrivate Sub C3_Click() 要求考生编写的内容End Sub程序结束参考答案Private Sub C1_Click()ReadData1ReadData2End SubPrivate Sub C2_Click() Dim Arr3(20) As IntegerSum = 0For i = 1 To 20Arr3(i) = Int(Arr1(i) / Arr2(i)Sum = Sum + Arr3(i)Next iPrint Sum = ; SumEnd SubPrivate Sub C3_Click()WriteData DataOut.txt, SumEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
