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

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

2、ub 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、性NameCaptionNameCaptionName设置值F1交通工具F2到达目标Text1 表3.229控件单项选择按钮1单项选择按钮2单项选择按钮3单项选择按钮4属性NameCaptionNameCaptionNameCaptionNameCaption设置值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 #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1End Sub程序结束参考答案 If Op1 And Op3 Then Text1.Text = "坐飞机去广州" ElseIf Op1 And Op4 Then Text1.Text = "坐飞机去昆明" ElseIf Op2 And Op3 Then Text1.Text = "坐火车去广州" ElseIf Op2 And Op4 Then Text

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

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

8、xt2.Text, Lab1.Caption Close #1End Sub程序结束参考答案 If Op1 Then Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = "交换成功" ElseIf Op2 Then Text3.Text = Text1.Text & Text2.Text End If步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【考点分析】此题考点有：Sub( )函数，Int( )函数，文件操作，App.Path相对路径，

9、数组的定义和应用，窗体的Print方法和For循环语句。 【解题思路】在"读入数据"命令按钮中，通过调用Sub过程来实现对"datain1.txt"和"datain2.txt"文件的读数据操作。单击"计算"按钮，利用For循环实现将把一个数组的元素的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素，数字的截尾取整用Int( )函数来实现；并用窗体的Print方法将结果显示在窗体上。单击"存盘"按钮，将结果存在"Dataout.txt"文件中。【操

10、作步骤】步骤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 #1 For i = 1 To 20 Input #1, Arr1(i) Next i Close #1End SubSub

11、 ReadData2() Open App.Path & "" & "datain2.txt" For Input As #1 For i = 1 To 20 Input #1, Arr2(i) Next i Close #1End SubSub WriteData(Filename As String, Num As Integer) Open App.Path & "" & Filename For Output As #1 Print #1, Num Close #1End SubPrivate Sub C1_Click()' 要求考生编写的内容End SubPrivate Sub C2_Click()' 要求考生编写的内容End SubPrivate Sub C3_Click()' 要求考生编写的内容End Sub程序结束参考答案Private Sub C1_Click() ReadData1 ReadData2End SubPrivate Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) =