第一套题
基本操作题：
（1）在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别显示为\姓名\和\年龄\、两个文本框(名称分别为Text1和Text2，初使内容均为空)和一个命令按钮(名称为Command1，标题为\显示\。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击\显示\按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
（2）在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为\设置属性\，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：
Min 100 Max 1500 LargeChange 100 SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
简单应用题：
（1）在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框，如图1所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
综合题：
在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后再添加一个文本框，名称为Text1，MultiLine属性设置为True，scrollBars属性设置为2(如图所示)。程序运行后，如果执行\读入数据\命令，则读入考生文件夹下datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击\存盘\按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sjt5.vbp，窗体文件名仍保存为sjt5.frm。
第一套题答案、解析
基本操作题解析：
(1)【解题思路】通过标签的Name 、Caption属性设置标签的名称和标题，通过文本框Name、 Text属性设置文本框的名称和文本，通过命令按钮的Name 、Caption属性设置命令按钮的名称和标题，\和\＋\运算符均可将两个表达式作字符串连接。在窗体上输出文本内容可使用Print方法。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置标签属性。
步骤2：按照步骤1设置其他控件相关属性，程序用到的控件及其属性见表3.19和3.20。
表3.19 控件 标签1 标签2 Name Caption Name Caption 属性 Label1 Label2 设置值 姓名 年龄
步骤3：编写程序代码。 参考答案
Private Sub Command1_Click()
Form1.Print Text1.Text & \现年\岁\End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
(2) 【解题思路】在设计阶段通过Picture属性为图片框指定显示的图片，通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max、Min属性限定了滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置图片框的属性
步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其 属性见表3.21。
步骤3：编写程序代码。
参考答案
Private Sub Command1_Click() HScroll1.Max = 1500 HScroll1.Min = 100
HScroll1.LargeChange = 100 HScroll1.SmallChange = 10 End Sub
Private Sub HScroll1_Change()
Picture1.Width = HScroll1.Value End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
简单应用题解析：
(1)【解题思路】当在窗体上点击鼠标按键时将触发其MouseDown事件，该事件过程的参数Button值为1时表示当前按下的是鼠标左键；当Button值为2时表示当前按下的是鼠标右键。向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。当执行删除操作时，本题在For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。
程序中用到了InputBox()函数，其格式为：
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。
title：是一个字符串，它是对话框的标题，显示在对话框顶部的标题区。 default：是一个字符串，用来显示输入缓冲区的默认信息。
xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们的单位为twip。
helpfile，context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名称；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。
【操作步骤】
步骤1：打开本题工程文件，按表3.22所列在窗体建立控件并设置其属性。
表3.22 控件 列表框 文本框 Name Name 属性 List1 Text1 设置值
步骤2：分析并编写程序代码。 程序提供代码
Private Sub Form MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single) If Button = 1 Then
Text1.Text = InputBox(\请输入要添加的项目\ 'List1.AddItem ? End If
If Button = 2 Then
Text1.Text = InputBox(\请输入要删除的项目\ 'For i = 0 To ?
'If List1.List(i) = ? Then 'List1.RemoveItem ? End If Next i End If End Sub 程序结束 参考答案
第1个？处填入：Text1.Text
第2个？处填入：List1.ListCount － 1 第3个？处填入：Text1.Text 第4个？处填入：i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【解题思路】文本框里的内容(包括数字)默认都是当作字符串来处理的，如果需要参与数据运算，则需先用Val()函数将其转化为数字(如Val(Text1.Text))。CInt 函数将一数值转换为整型。
这里需要指出的是，利用Array对数组各元素赋值，声明数组的类型只能是Variant。
在本题的FindMin过程中，用变量Min记录最小值，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果小于Min的值则与之交换，依次类推，最终Min的值就是数组各元素中的最小值。
在窗体上打印信息可以通过Print方法来实现，其形式为： [对象．]Print 要显示的内容 【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1
Private Function FindMin(a() As Integer) Dim Start As Integer
Dim Finish As Integer, i As Integer 'Start = ？(a) 'Finish = ？(a) ''Min = ？(Start)
For i = Start To Finish
'If a(i) ? Min Then Min = ? Next i
FindMin = Min End Function
Private Sub Command1 Click() Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)) For i = 1 To 4
arr2(i) = CInt(arr1(i)) Next i
'M = FindMin(？)
Print \最小值是： \； M End Sub 程序结束 参考答案
第1个？处填入：LBound 第2个？处填入：UBound 第3个？处填入：a 第4个？处填入：< 第5个？处填入：a(i) 第6个？处填入：arr2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。