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

基础题（1）【考点分析】本题考点有：菜单编辑器的使用（名称，标题，内缩符号）和图片框的Name属性和Print、Cls方法。

【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。另外，在图片框中显示"等级考试"的信息通过图片框的Print方法实现，清除图片框信息通过图片框的Cls属性实现。

【操作步骤】

步骤1：建立界面，添加一个名称为P1的图片框，然后用菜单编辑器建立如下表3.226所示的菜单。

表3.226

步骤2：编写程序代码。

参考答案

Private Sub Clea_Click()

P1.Cls

End Sub

Private 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.Text

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题（1）【考点分析】本题考点有：文本框的Name属性，框架的Name、Caption属性，单选按钮的Name、Caption、Value属性，窗体的Click事件以及If判断语句。

【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True，即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。

【操作步骤】

步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.228和3.229。

表3.228

表3.229

步骤2：分析并编写程序代码。

程序提供代码

Private Sub Form_Click()

'需要考生编写的内容

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out3.txt" For Output As #1

Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text

Close #1

End 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

Text1.Text = "坐火车去昆明"

End If

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题（2）【考点分析】本题考点有：文本框的Name、Text属性，单选按钮的Name、Caption、Value属性，"&"连接符以及If判断语句。

【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择"交换"单选按钮并单击窗体时，通过一个文本框的Caption属性作为中间变量将文本框1和文本框2的内容交换，并将文本框的Caption属性设为"交换成功"；选择"连接"单选按钮并单击窗体时，用"&"连接符将文本框1和文本框2中的内容顺序连接起来。

【操作步骤】

步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.230。

步骤2：分析并编写程序代码。

程序提供代码

Private Sub Text3_Click()

'需要考生编写的内容

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open "out4.txt" For Output As #1

Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Lab1.Caption

Close #1

End 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相对路径，数组的定义和应用，窗体的Print方法和For循环语句。

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

【操作步骤】

步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.231。

步骤2：分析并编写程序代码。

程序提供代码

Option Base 1

Dim Arr1(20) As Integer

Dim Arr2(20) As Integer

Dim Sum As Integer

Sub ReadData1()

Open App.Path & "\" & "datain1.txt" For Input As #1

For i = 1 To 20

Input #1, Arr1(i)

Next i

Close #1

End Sub

Sub ReadData2()

Open App.Path & "\" & "datain2.txt" For Input As #1

For i = 1 To 20

Input #1, Arr2(i)

Next i

Close #1

End Sub

Sub WriteData(Filename As String, Num As Integer)

Open App.Path & "\" & Filename For Output As #1

Print #1, Num

Close #1

End Sub

Private Sub C1_Click()

' 要求考生编写的内容

End Sub

Private Sub C2_Click()

' 要求考生编写的内容

End Sub

Private Sub C3_Click()

' 要求考生编写的内容

End Sub

程序结束

参考答案

Private Sub C1_Click()

ReadData1

ReadData2

End Sub

Private Sub C2_Click()

Dim Arr3(20) As Integer

Sum = 0

For i = 1 To 20

Arr3(i) = Int(Arr1(i) / Arr2(i))

Sum = Sum + Arr3(i)

Next i

Print "Sum = "; Sum

End Sub

Private Sub C3_Click()

WriteData "DataOut.txt", Sum

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。