国二VB-题库2.doc

第一套题基本操作题：（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属性NameCaptionNameCaption设置值Label1姓名Label2年龄步骤3：编写程序代码。参考答案Private Sub Command1_Click() Form1.Print Text1.Text & ,现年 & Text2.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 = 10End SubPrivate Sub HScroll1_Change() Picture1.Width = HScroll1.ValueEnd 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控件列表框文本框属性NameName设置值List1Text1步骤2：分析并编写程序代码。程序提供代码Private Sub Form MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenText1.Text = InputBox(请输入要添加的项目)List1.AddItem ?End IfIf Button = 2 ThenText1.Text = InputBox(请输入要删除的项目)For i = 0 To ?If List1.List(i) = ? ThenList1.RemoveItem ?End IfNext iEnd IfEnd 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 1Private Function FindMin(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart = ？(a)Finish = ？(a)Min = ？(Start) For i = Start To Finish If a(i) ? Min Then Min = ? Next i FindMin = MinEnd FunctionPrivate Sub Command1 Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)For i = 1 To 4arr2(i) = CInt(arr1(i)Next iM = FindMin(？)Print 最小值是： ； MEnd Sub程序结束参考答案第1个？处填入：LBound第2个？处填入：UBound第3个？处填入：a第4个？处填入：第5个？处填入：a(i)第6个？处填入：arr2步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题解析：【解题思路】根据题意在读数命令的Click事件过程中，通过调用ReadData过程将数据从in5.txt文件读入到数组Arr(窗体变量)中；在计算命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中，并将其值累加到变量sum；在保存命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件out5.txt。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、1、2、3四种值，0表示没有滚动条(默认值),1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置0以外的值时MultiLine属性值必须为True。Space()函数用于返回特定数目空格的 Variant (String)。语法：Space(number)必要的 number 参数为字符串中想要的空格数，Space 函数在格式输出或清除固定长度字符串数据时很有用。【操作步骤】步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜 单项，并在窗体Form1中添加一个文本框。其相关属性及其值见表3.23和3.24。表3.23标题控件读入数据计算并输出存盘名称ReadCalc Save内缩符号000表3.24控件文本框属性NameMultiLineScrollBarsText设置值Text1TRUE2步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim Arr(100) As IntegerSub ReadData()Open App.Path & & datain1.txt For Input As #1For i = 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & & Filename For Output As #1Print #1, NumClose #1End Sub程序结束参考答案Dim